my $currentNode1 = '123.45.6.890'; my $userName1 = sprintf("name1\n"); my $password1 = sprintf("password1\n"); use Net::Telnet; $b = Net::Telnet->new( Errmode => 'return', Telnetmode => 1, Output_record_separator => '', Prompt => '/[#]/', Timeout => 70, Host => $currentNode ); @results = $b->login($userName1, $password1) or die "Connect failed: @ +{[ $b->errmsg() ]}\n"; my $comString = sprintf("cd \/etc\/theDir\n"); @output = $b->cmd($comString); my $currentNode2 = '123.45.6.892'; my $userName2 = sprintf("name2\n"); my $password2 = sprintf("password2\n"); use Net::Telnet; $c = Net::Telnet->new( Errmode => 'return', Telnetmode => 1, Output_record_separator => '', Prompt => '/[#]/', Timeout => 70, Host => $currentNode2 ); @results = $c->login($userName2, $password2) or die "Connect failed: @ +{[ $c->errmsg() ]}\n";
$currentNode2 is legitimate, but you can only access it from $currentNode1error message: Can't call method "login" on an undefined value at tMo +nitor.pl line 63.
running from NT boxes to linux redhat version 7
I appreciate all help.
Thanks.
Janitored by Arunbear - added code tags, as per Monastery guidelines
In reply to Re^2: telnet from telnet
by Anonymous Monk
in thread telnet from telnet
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |