Perl Loop Problem

Applications Infrastructure Monitoring
1

Another newbie question... I can not figure out how to get this running using a loop. Here is what I have now.

#!/usr/bin/perl
use SNMP::Info;                     
$list="list.list";
open(DAT, $list) || die("Can't Open List");
@raw_data=<DAT>;
close(DAT);
foreach $dest (@raw_data)
{
chomp($dest);
 my $ciscostats = new SNMP::Info(
                    AutoSpecify => 1,
                    Debug       => 1,
                    # These arguments are passed directly on to SNMP::Session
                    DestHost    => '$dest',
                    Community   => 'com',
                    Version     => 2
)
 
 my $serial = $ciscostats->serial();
 my $description = $ciscostats->description();
 
print "$dest - $description\n";
print "$serial\n";
}

This is the error I am stuck on.

syntax error at ios1.pl line 23, near ")
 my "
Execution of ios1.pl aborted due to compilation errors.

Thanks in advance.

2

You forgot a semi-colon at the end of a statement in the foreach loop.

tyler_durden

3

Thanks, I must be blind..