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]

In reply to Problems with Net::OpenSSH by aeaton1843

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.