in reply to Re^2: Using Net::SSH2 with Net::Telnet::Cisco
in thread Using Net::SSH2 with Net::Telnet::Cisco

It seems that Net::Telnet prefers talking through a tty.

That works for me: 

#!/usr/bin/perl

use strict;
use warnings;

use Net::OpenSSH;
use Net::Telnet;

$Net::OpenSSH::debug = -1;

my $ssh = Net::OpenSSH->new('localhost');
my ($fh, $pid) = $ssh->open2pty();
my $conn = Net::Telnet->new(Fhopen => $fh);
my @lines = $conn->cmd("find /tmp");
print @lines;
my @lines1 = $conn->cmd("ls");
print "\n\nls:\n", @lines1;

[download]

Replies are listed 'Best First'.
Re^4: Using Net::SSH2 with Net::Telnet::Cisco
by gnork (Scribe) on Aug 07, 2012 at 11:02 UTC
    Another late reply:

    I had to make a few adjustments to your code to get it to work properly on a Cisco device:

    use strict;
use warnings;

use Net::OpenSSH;
use Net::Telnet;

$Net::OpenSSH::debug = -1;
my $promptEnd = '/\w+[\$\%\#\>]\s{0,1}$/o';
my $timeout = 60;

my $ssh = Net::OpenSSH->new('your.ciscodevice.here',
                             user => 'johndoe',
                             password => 'secretpass',
                             kill_ssh_on_timeout => 1,
                             timeout => $timeout);

# stderr_to_stdout was required to get Net::Telnets waitfor() to work
my ($fh, $pid) = $ssh->open2pty({stderr_to_stdout => 1});

my %params = (
                fhopen => $fh,
                prompt => $promptEnd,
                timeout => $timeout,
                errmode => 'return',
                telnetmode => 0,
                cmd_remove_mode => 1,
                output_record_separator => "\r",
             );
my $conn = Net::Telnet->new( %params );
my @lines = $conn->cmd("show tech");
print @lines;

    [download]


    PS: Error checks removed, insert them at will.

    cat /dev/world | perl -e "(/(^.*? \?) 42\!/) && (print $1))"
    errors->(c)
[reply]
[d/l]

In Section Seekers of Perl Wisdom