Foro - Perl en Español

por **enric73** » 2012-05-31 10:57 @498

Hola, buenas tardes.

Necesito copiar, en Perl, unos ficheros de una máquina Linux a otra.

De momento lo hago en scp en shell: $ scp fitxer.xxx enric-2:/path y luego me pide el login

¿Cómo sería en Perl?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Net::SCP;
$hostname = "server.ip.address";
$username = "enric";
$file = "temp.dat";
$folder = "/home/$username/";
$scp = Net::SCP->new( { "host"=>$hostname, "user"=>$username } );
$scp->put("$file","$folder$file") or die $scp->{errstr};
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias

En la propia página de manual de Net::SCP, en la sección de preguntas más frecuentes, se indica que no se puede indicar una contraseña, al menos con ese módulo, así que la opción es la de usar claves RSA o DSA entre las máquinas, lo cual está bien porque te facilitará también el entrar por ssh en ellas.

Otra opción es usar Net::SCP::Expect (como también indica la misma página de manual.

Otra opción, con Net::OpenSSH (que a su vez requerirá tener instalado el módulo IO::Pty) Este módulo usará el comando scp y ssh del sistema.

por **enric73** » 2012-05-31 12:19 @555

Gracias explorer,

De momento he escrito esto, buscando por la red

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use Net::SSH::Perl;
 
my $host = "1xx.xx.xx.xxx";
my $user = "enric";
my $password = "bruce";
 
#-- set up a new connection
my $ssh = Net::SSH::Perl->new($host);
#-- authenticate
$ssh->login($user, $pass);
#-- execute the command
my($stdout, $stderr, $exit) = $ssh->cmd("scp /home/$user/Desktop");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este script, ¿dónde le digo la carpeta donde está el archivo y dónde se ha de guardar?

Gracias

Foro - Perl en Español

scp entre dos máquinas Linux

scp entre dos máquinas Linux

Publicidad

Re: scp entre dos máquinas Linux

Re: scp entre dos máquinas Linux

¿Quién está conectado?