Re^3: run a perl script on a unix machine from a win machine

[salva]

No, it doesn't work that way. You can only run shell commands there, not Perl code.

Though you can copy some Perl script there using scp and then run it, or even pass some perl code via stdio to a perl interpreter running on the remote machine.

For instance:

open(my $pipe, "plink /usr/bin/perl </some/local/script.pl |")
    or die "unable to run command: $!";

while (<$pipe>) {
  print "response: $_";
}

[Anonymous Monk]

I use ActivePerl+Net::SSH2 on WinXP to execute perlscript to remote hosts. 1. Connect to remote host $ssh->open(); 2. Open channel, start shell, $chan = $ssh->channel(); 3. Issue commands through the channel.. $chan->shell(); when I issue shell commands ie. "who" to the Linux machine, the data comes back through the channel. <$chan> I am using the linux machine as a jumpbox to further SSH to some cisco IOS switches. (firewall restriction) The problem I encounter is, when I issue "ssh -l username 10.1.1.1", nothing comes back through the channel. My script waits for a "Password:" which never reaches the channel. Any suggestions? PS. Same script works fine when issuing Cisco commands to directly SSH connected cisco switches.

[salva]

Any suggestions?

Yes, is there any possibility you can run the script from a Linux box? Because doing this kind of sys admin tasks from Windows is an agony.

Well, in any case, post your script source code.

Can you install software on the Linux gateway or just allowed to run ssh in order to connect to the remote cisco?

[Anonymous Monk]

I work remotely, have to VPN into a network, SSH to the jumpbox(gateway, then ssh to actual cisco devices, only basic user access on the linux box

Every week we have to capture bunch information from various sites' network devices, it is a manual intensive work which suits perlscript perfectly

$chan->shell();

print $chan "ssh -l username 10.1.1.1\n";
while($buf=<$chan>){
   if($buf =~ /"password:"/) 
        { print $chan "password\n"; # got password prompt}
   else { exit; # export debug info, not reachable etc }
}
#
# Once SSH into cisco switches, process cisco commands here
# The actually commands are input from a separate file,
# this is just an example.
#
print $chan "show tech\n";
print $chan "show version\n";