Re: Problems with split

[Andy Roden]

ok, Appologies to all for not having included the whole thing, but here...

the script is for collecting customer interface stats using snmp, and
I need to destinguish what type of router the customer connects to in
order to have the right MIB. It runs with a cfg file which I have
included, which calls a file containing entries like the following... 

router1=1.1.1.1|cisco
router2=2.2.2.2|juniper
unknown=0.0.0.0|unknown

I've also included most of the main script to show more of what I'm
doing to hopefully clear up and issues about lists/hashs (but that might
still be the problem...) Any info appreciated...

Thanks

Andrew


#!/usr/bin/perl
#
#
$config_file = "configure/monitor.cfg";

# print "Initializing ...\n";
&initialize;

# print "Generating interface-table ...\n";
&mkinterface;

sub initialize
{
#
#       Reading configuration file
#
open (CFG,"$config_file") || die "Can't find configuration file
($config_file)\n";
while (<CFG>)
{
        chomp;
        ($var,$val) = split("=");
        $cfg{$var} = $val;
}
close (CFG);
}
#
#       Reading router database
#
open (CFG,"$cfg{ROUTERS}") || die "Can't open router file $cfg{ROUTERS}\n";
while (<CFG>)
{
        chomp;
        ($name,$address) = split("=");
        $router_tables{$name} = $address;
}
close (CFG);

sub mkinterface
{
open (SH,">$cfg{MKINTERFACE}") || die "Can't create $cfg{MKINTERFACE}\n";
print SH "#!/bin/sh\n";
print SH "# Auto-generated script: ",`date`;
print SH "cat /dev/null > $cfg{INTERFACETABLE}\n";
print SH "for i in ";
foreach $i (sort keys %router_tables)
{
        next if ($i =~ "unknown");
        ($router_table{i},$router_type{$i}) = split(/\|/, $router_tables{i});
        if ($router_table{i} ne "") {
        print SH "\"$router_table{$i}\" ";
        }
        else {
        print SH "\"$router_tables{$i}\" ";
        }
}
print SH "\ndo\n";
print SH "\t$cfg{SNMPINDEX} \$i $cfg{COMMUNITY} >> $cfg{INTERFACETABLE}\n";
print SH "done\n";
close(SH);
}


COMMUNITY=@OU812+
ROUTERS=/home/andrewr/statsprogramme/tarball/monitor/configure/routers
INTERFACETABLE=/home/andrewr/statsprogramme/tarball/monds/cf/apr-interface-table
MKINTERFACE=/home/andrewr/statsprogramme/tarball/monitor/configure/mkinterface
SNMPINDEX=/home/andrewr/statsprogramme/tarball/monitor/configure/snmpindex