enviar archivo

[Salvador Ortiz Garcia]

On Fri, 22 May 1998, Juan Carlos Alvarez Alvarez wrote:

>  Estoy haciendo un cgi en el cual pueda enviar un
> archivo, en mi programa de perl tengo
> las siguientes lineas:
> 
> 
> `ftp -n -i dsc.uaemex.mx <<EOF;
> user jcaa Hola!2;
> as;
> put reporte.txt;
> bye;
> EOF`;
    
En general usar la sintaxis `comando` cuando la salida del comando no es
usada se considera mal estilo en perl, y de hecho es reportado bajo -w.

Mejor usar system('comando');

En tu caso particular, tendrias mucho mayor control del proceso con un:

	open(FTP,"| ftp -n -i dsc.uaemex.mex");
	print FTP "user jcaa...";
	...

Y ya entrado en opciones, es _mucho_ mejor: 

        use Net::FTP;  # de netlib en CPAN

       	$ftp = Net::FTP->new("some.host.name");
        $ftp->login("anonymous","me@here.there");
        $ftp->cwd("/pub");
        $ftp->put("that.file");
        $ftp->quit;




Saludos

Salvador Ortiz

--------------------------------------------------------------------------
Matias Software Group                                  (525) 256-0214
Soporte comercial para Linux y Apache en Mexico         info@msg.com.mx
--------------------------------------------------------------------------