Mailinglist Archive: opensuse-es (424 mails)

< Previous Next >
Re: [opensuse-es] Re: Script de Perl
  • From: A C <eolo_555@xxxxxxxx>
  • Date: Sun, 19 Dec 2010 12:10:31 +0000 (GMT)
  • Message-id: <698488.62292.qm@xxxxxxxxxxxxxxxxxxxxxxxxxxx>
Voy a ver si lo puedo hacer en BASH con expect (una maquina corre solaris 9).

De todas formas he probado el articulo de
http://www.it-suniverse.com/trusted_ssh.php

y parce que funciona perfectamente.


Graias a todos



----- Mensaje original ----
De: Camaleón <noelamac@xxxxxxxxx>
Para: opensuse-es@xxxxxxxxxxxx
Enviado: sáb,18 diciembre, 2010 13:00
Asunto: [opensuse-es] Re: Script de Perl

El Fri, 17 Dec 2010 18:32:23 +0000, A C escribió:

Hola, estoy intentando hacer una copia remota de un fichero con un
script a un host que solo tiene abierto el puerto ssh.

Se me ha ocurrido hacerlo en Perl, y no encuentro la extensión (modulo
CPAN) Net::SCP::Expect;

¿¿Suse tiene este módulo ??

Por lo que parece, no:

http://download.opensuse.org/repositories/devel:/languages:/perl/openSUSE_11.3/i586/


El script es el siguiente:

#!/bin/perl
# Definimos los modulos de perl que vamos a usar use Net::SCP::Expect;

....


# Creamos la conexion para transferir el archivo
$scpe=Net::SCP::Expect->new(host => $host, user => $userS, password =>
$passwordS) or die $!;

# Transferimos el archivo
$scpe->scp(”$host:$archivo”, “$ruta/$archivo”); ....


¿¿ se puede hacer facilmente de otra manera ?

Con bash, scp y expect:

http://www.zedwood.com/article/142/linux-scp-expect-script

Saludos,

--
Camaleón

--
Para dar de baja la suscripción, mande un mensaje a:
opensuse-es+unsubscribe@xxxxxxxxxxxx
Para obtener el resto de direcciones-comando, mande
un mensaje a:
opensuse-es+help@xxxxxxxxxxxx



--
Para dar de baja la suscripción, mande un mensaje a:
opensuse-es+unsubscribe@xxxxxxxxxxxx
Para obtener el resto de direcciones-comando, mande
un mensaje a:
opensuse-es+help@xxxxxxxxxxxx

< Previous Next >
References