Thanks for the input...but, I am not able to get the script to run properly I got this far:
use strict;
use Net::Telnet::Cisco;
open my $log, '>', 'logfilepath' or die "Cannnot open log file : $!\n"
+;
open my $seed, '+<', 'seedfilepath' or die "Cannot open file : $!\n";
while($seed) {
chomp $seed;
my $Telnet = Net::Telnet::Cisco->new(Host => $_ or die "Cannot ope
+n session to '$seed': $!\n");
$Telnet->login(Name => 'rschuman', Password => 'tagheuer1') or die
+ "Cannot log into device '$_': $!\n";
print $log "$_\n", map $Telnet->cmd($_), 'show line aux 0';
}
I get the following error:
Useless use of a constant in void context at C:\Documents and Settings\rschuman\
Desktop\telnet2.pl line 24.
Cannot open session to 'GLOB(0x1abf15c)':
I also realized that the original script's output was to much so i added a grep of the output:
use strict;
use Net::Telnet::Cisco;
#
open (LOGFILE, '>logfilepath') or die "Cannnot open log file : $!\n";
#
open (SEEDFILE, 'seedfilepath') or die "Cannot open file : $!\n";
my @iplist = <SEEDFILE>;
foreach my $ip (@iplist) {
select LOGFILE;
print "$ip\n";
my $Telnet = Net::Telnet::Cisco->new(Host => $ip) or die "Cannot o
+pen session to '$ip': $!\n";
$Telnet->login(Name => 'user', Password => 'pass') or die "Cannot
+log into device '$ip': $!\n";
my $output = $Telnet->cmd('show line aux 0');
my $matchlines = grep (/Modem hardware state:/, $output);
print "$matchlines\n";
}
close LOGFILE;
close SEEDFILE;
I also get the following error even though the script does run:
Argument "" isn't numeric in numeric gt (>) at C:/Perl/site/lib/Net/Telnet.pm li
ne 2569, <SEEDFILE> line 3. |