http://qs321.pair.com?node_id=864957


in reply to accessing Cisco via SSH

I would definitely start with use strict. In this case I don't know where you get the TRUE and FALSE constants because those don't normally exist in perl. This means that when $ssh = FALSE then if ($ssh) still evaluates to true.

As far as "Doesn't work with SSH devices", you weren't very clear on what doesn't work and what sort of errors you are getting from that so I am not sure how much I can help.

l8rZ,
--
andrew

Replies are listed 'Best First'.
Re^2: accessing Cisco via SSH
by Always Improving (Initiate) on Oct 13, 2010 at 00:51 UTC
    Thanks for that. I thought those were the T/F keywords in Perl, but I can figure that out I reckon. Unfortunately, the SSH part gives no errors at all. It prints out that it is connecting via SSH, but then nothing after that print actually happens. I *think* it is logging into the devices though, as if I spam 'sh users' on the switch, I can see the account log in and then quickly disappear. I also tried adding some sleep statements after each cmd, but to no avail. I also added print statements after every line in the SSH block to see if any of the statements were executing - I know, that is crude - and only the print before the snippet to snarf the hostname was successful.

    Thanks again

[reply]
[d/l]

      In this line:
      my(@hostline, $stderr, $exit) = $cs->cmd('sh run | inc hostname');
      gives you all return values in @hostline and nothing in $stderr or $exit. If you are getting logged in, it should be able to run commands. Using print is a very valuable diagnostic tool. I would probably even go as far as making something very simple for testing.

      use strict;
use warnings;

use Net::SSH::Perl;
$ENV{'HOME'} = 'c:\strawberry';

my $ip   = 'xxx';
my $user = '********';
my $pw   = '********'; # If you use single quotes, only single quotes 
+will to be escaped with '\'

my $cs = Net::SSH::Perl->new($ip);
if ($cs->login( $user, $pw)) {
    print $cs->cmd('sh run | inc hostname');
}
else {
    warn "Unable to login\n";
}
$cs->close;

      [download]
      l8rZ,
      --
      andrew
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom