in reply to Re: telnet from a cisco telnet
in thread telnet from a cisco telnet

i made some changes,it worked without errors but i got this output "command timed-out at C:\Users\Kumar\telnet.pl line 7" where did i go wrong?

use strict;
use Net::Cisco;
use Net::Telnet();
my $t =Net::Telnet::Cisco->new(Host=>'10.0.0.1');
my @output=0;
$t->login('9190','KUM@R425');
$t->cmd("telnet 192.168.203.23");
$t->waitfor('/:$/i');
$t->cmd("public");
$t->waitfor('/>$/i');
@output=$t->cmd("show system");
open(CONFIG,">config.txt");
print CONFIG "@output\n"; 
close(CONFIG);
$t->close;

[download]

Replies are listed 'Best First'.
Re^3: telnet from a cisco telnet
by Kumar Mantri (Novice) on Aug 09, 2011 at 12:15 UTC

    yes finally i did with this..done!!but small problem,here it is writing value 1 to the text file..but declared it as array ..here im expecting some set of commands from the device.....any help please?

    use Net::Cisco;
my $t =Net::Telnet::Cisco->new(Host=>'10.0.2.2');
my @output;
my $tl=0;
$t->login('9190','KUM@R425');
$t->print("telnet 192.168.203.23")or $tl=1;
$t->waitfor('m/password:/');
$t->print("public");
$t->waitfor('m/]>/');
@output=$t->print("show system");
$t->waitfor('m/]>/');
$t->print("exit");
open(CONFIG,">config.txt");
print CONFIG "@output\n"; 
close(CONFIG);
$t->close;

    [download]
[reply]
[d/l]
      @output=$t->print("show system");
$t->waitfor('m/]>/');

      [download]

      This cannot work, because the output of show system will only be available after you have assigned it into @output. You will need to use $t->cmd(...) to collect the output of a command.

[reply]
[d/l]
[select]
        the other device which i am doing telnet from cisco router is not a cisco device thats why im using ...but i change like u suggested but i got a timeout message at that line.. thank u.... 
        $t->print(..);

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom