Hi all-

I am a bit stumped. I am trying to log into Cisco routers and switches and grab some output with varying amounts of success. At first I was trying to use the capture function to store the output into an array. That was at best inconsistent. After having read through all of the documentation and finding the very first Q/A, I start trying to call expect inside of OpenSSH. At this point the code, times out trying to match the password prompt. I have tried everything conceivable to match the prompt: $expect->expect($timeout, "Password: ") $expect->expect($timeout, ":") $expect->expect($timeout, '-re', "*:*") etcetera to no avail. I am positive that an exact match prompt for the Cisco router is "Password: ". Would someone mind hitting me with a clue stick? :) Thanks! Code follows:

#!/usr/bin/perl

use strict;
use warnings;
use Net::OpenSSH;
use Expect;
$| = 1;


my $username = '...'; #put yours here
my $password = '...'; #put yours here
my $enable = '...';   #put yours here
my $timeout = 30;
my $ip = 'w.x.y.z';   #put yours here

my $ssh = Net::OpenSSH->new("$username:$password\@$ip", timeout => 30)
+;
$ssh->error and die "unable to connect to remote host: ". $ssh->error;

my ($pty, $pid) = $ssh->open2pty("show ip arp")
      or die "unable to run remote command show ip arp";
my $expect = Expect->init($pty);


$expect->raw_pty(1);
#$expect->debug(2);
my $debug and $expect->log_stdout(1);
$debug and print "waiting for password prompt\n";
$expect->expect($timeout, "Password: ")
    or die "expect failed, $expect->exp_error()\n";
$debug and  print "prompt seen\n";

$expect->send("$password\n");
$debug and print "password sent\n";

$expect->expect($timeout, "\n")
    or die "bad password\n";
$debug and print "password ok\n";

while(<$pty>) {
    print "$. $_"
}
[download]