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

Hello. I've tried to use your code 
  use Net::OpenSSH;
  use Net::Telnet;
  my $ssh = Net::OpenSSH->new('pa:abc@10.0.0.1');
  my ($fh, $pid) = $ssh->open2socket();
  my $conn = Net::Telnet->new(Fhopen => $fh);
  my @lines = $conn->cmd("sh ver");
  print join "\n";

[download]
But I got message below 
  Pseudo-terminal will not be allocated because stdin is not a termina
+l.
  command timed-out at t1.pl line 6

[download]
Could you please give me a more detailed example?

Replies are listed 'Best First'.
Re^3: Using Net::SSH2 with Net::Telnet::Cisco
by salva (Canon) on Apr 05, 2011 at 08:16 UTC
    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]
[reply]
[d/l]
      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