perl output

[ravimath]

Hi all ,

I have written script to view some router output , my script executes successfuly , but does'nt show any output, why ?, it always shows output as 1.

use Net::Telnet;
use Term::ReadKey;
print "Enter username\n";
$user = <STDIN>;
chomp($user);
ReadMode( "noecho", STDIN );
print "Enter password\n";
$pwd = <STDIN>;
chomp($pwd);
ReadMode ("original", STDIN) ;
 $epwd='pass';
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open('x.x.x.x');
$telnet->waitfor('/Username:/');
$telnet->print($user);
$telnet->waitfor('/Password:/');
$telnet->print($pwd);

sleep(1);
$telnet->print('en');
$telnet->waitfor('/Password:/');
$telnet->print($epwd);

sleep(1);
 @lines=$telnet->print('sh ver | inc System serial');
sleep(1);
print @lines;

$telnet->close;

please suggest some solution

[chorny]

From documentation:

$ok = $obj->print(@list) ;

This method writes @list followed by the output_record_s eparator to the open object and returns 1 if all data was successfully written.


P.S. Also you can try "dump_log" method.

[ravimath]

can you suggest changes in above program to get output insted of output 1

[chorny]

Use "cmd" method instead of "print".

[ravimath]

I have tried "cmd" method instead of "print". but no change , it still gives output as 1 please help

[RonB]

Try this version and then check the 2 log files.

#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet;
use Term::ReadKey;

print "Enter username\n";
chomp(my $user = <STDIN>);

ReadMode 'noecho';
print "Enter password\n";
chomp(my $pwd = <STDIN>);
ReadMode 'normal';

my $epwd = 'pass';

my $telnet = Net::Telnet->new(
                              Input_log => 'inputlog',
                              Dump_log  => 'dumplog'
                             );

$telnet->open('x.x.x.x');
$telnet->waitfor('/Username:/');
$telnet->print($user);
$telnet->waitfor('/Password:/');
$telnet->print($pwd);
 
sleep(1);
$telnet->print('en');
$telnet->waitfor('/Password:/');
$telnet->print($epwd);
 
sleep(1);
my @lines = $telnet->cmd('sh ver | inc System serial');
sleep(1);
print @lines;
 
$telnet->close;

[ravimath]

I have tried above version , it gives error at line 35 and shows command_timeout at line 35 and not printing any output on monitor ,
but when i checked inputlog it shows proper output which includes username , password , banner and required output of router . i want only the result of line 35 in that file . please suggest changes

[chorny]

How long is 'sh ver | inc System serial' executed before returning to command prompt, if run directly?

->cmd method may receive some lines, but it waits for command to finish.

[RonB]

What is the exact wording of the error?

What router (brand and model) are you connecting to?

What is the expected output of your command supposed to be?

Are you sure your router's cli supports (what appears to be) a piped command?

[ravimath]

Hi,
it takes just 2 seconds before returning to command prompt ,
i am connecting to cisco 1841 router ant it supports a piped command