Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Net::Telnet issue getting command output

by VinsWorldcom (Prior)
on Feb 12, 2016 at 14:02 UTC ( [id://1155085]=note: print w/replies, xml ) Need Help??


in reply to Net::Telnet issue getting command output

On a side note, you could use Net::Telnet::Cisco to greatly simplify your script with things like login() and a Cisco-like-prompt string so don't need any of the waitfor() commands.

#!perl use strict; use warnings; use Net::Telnet::Cisco; my $t = Net::Telnet::Cisco->new( Host => "x.x.x.x", dump_log => "file_dump", output_log => "file_out" ) or die "no connection\n"; $t->login( Name => "username_goes_here", Password => "password_goes_here" ) or die "no login\n"; $t->enable("enable_pass_goes_here") or die "no enable\n"; $t->cmd('terminal length 0'); my @showrun = $t->cmd('show run'); print $_ for ( @showrun ); print "\nmoving to next statement\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1155085]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (5)
As of 2024-03-28 20:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found