Foro - Perl en Español

Buenos días.

Hola, antes que nada les mando un cordial saludo y agradecida porque hasta el momento el foro ha sido de mucha ayuda.
Sin embargo estoy tratando de hacer un script en Perl para ingresar a un servidor y una vez dentro de esa misma sesión "ssh" verificar las instancias que posee él mismo.

Para ingresar al servidor que posee clave, utilicé este script:

#!/usr/bin/perl

use Net::SSH::Perl;
use strict;
use warnings;
use Net::Ping;

my $user = 'xxxxx';
my $host ='10.xxx.xx.xx';
my $pass = 'xxx';
my $cmd = 'pwd';
my $cmd1 = " ruta de archivo";
$ipaddr = "IP";



my $ssh = Net::SSH::Perl->new($host, protocol => '2,1', debug => 1,interactive=>0);
$ssh->login(($user, $pass), *READER, *WRITER, "$cmd1" ) || die "ssh: $!";
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);


while (<>) {
chomp();
print "$_\n";

print "$cmd1";


}

close(READER);
close(WRITER);



Puedo ingresar al servidor. Coloqué como ejemplo un archivo txt para la búsqueda dentro del mismo, pero no lo encuentra. No entiendo por qué no lo toma.

Y si me podrían orientar para saber qué comando podría utilizar para el llamado de instancias dentro de un servidor DHCP. Yo lo trataba con un if(), pero ando atorada aún por la primera duda que les comenté.

El if() ejemplo que tengo pensado es:

if ($ipaddr){
$busqueda_instancia = "llamado de la instancia"($ipaddr);
$busqueda_instancia = "llamado de la instancia"($ipaddr) unless $busqueda_instancia;
$busqueda_instancia = "llamado de la instancia"($ipaddr) unless $busqueda_instancia;
$busqueda_instancia = "llamado de la instancia"($ipaddr) unless $busqueda_instancia;

¡Agradecida de antemano por su ayuda!

¡Ok, gracias! ¡Voy a verificar la librería!