Ok, I have something to get you going, based on a similar problem I recently solved for myself.
The PERL script test.pl code is below, and in the attachment.
It is completely dynamic.
It reads the list of nodes from a file you can optionally specify defaulting to nodes.txt
It readd the list of columns from a variable you can readily edit.
It stores output in a file you can optionally specify defaulting to test.csv.
Hope this helps,
Enjoy,
Hein.
I can not do that 'snmpwalk' function on my system, so i replaced it with input data from a file. The test inputfile looked like:
------------------------- sample snmpdata.txt ------------
system.sysName.0=lca-sfa-rtr1.somewhere.com
interfaces.ifTable.ifEntry.ifDescr.1=Fa0/1
interfaces.ifTable.ifEntry.ifAdminStatus.1=up
interfaces.ifTable.ifEntry.ifOperStatus.1=down
system.sysName.0=lca-sfa-rtr1.elsewhere.com
interfaces.ifTable.ifEntry.ifDescr.1=Fa0/test
interfaces.ifTable.ifEntry.ifAdminStatus.1=left
interfaces.ifTable.ifEntry.ifOperStatus.1=right
-------------------------- sample nodes.txt --------------------------
lca-sfa-rtr1.somewhere.com
lca-sfa-rtr1.elsewhere.com
----- test result -----------------
C:\sap>perl test.pl < snmpdata.txt
C:\sap>type test.csv
system.sysName.0,interfaces.ifTable.ifEntry.ifDescr.1,interfaces.ifTable.ifEntr
.ifAdminStatus.1,interfaces.ifTable.ifEntry.ifOperStatus.1
lca-sfa-rtr1.somewhere.com,Fa0/1,up,down
lca-sfa-rtr1.elsewhere.com,Fa0/test,left,right
my @columns = qw/system.sysName.0 interfaces.ifTable.ifEntry.ifDescr.1 interfaces.ifTable.ifEntry.ifAdminStatus.1 interfaces.ifTable.ifEntry.ifOperStatus.1/;
my $CSV = "test.csv";
my $NODES = "nodes.txt";
#
use strict 'vars';
use Getopt::Std;
use vars qw/ %opt /;
my (%snmpwalk);
my ($csv, $nodes, $tmp, $i, $x, $nam, $val, $node);
my ($opt_d, $opt_c, $opt_n, $debug, $column, $node, $line);
getopts ('dc:n:',\%opt) or &usage;
$debug = $opt{d} ? 1 : 0;
$csv = $opt{c} ? $opt{c} : $CSV;
$nodes = $opt{n} ? $opt{n} : $NODES;
sub usage()
{
print STDERR << "EOF";
This program read a nodes files and creates a csv file with snmp values for each node.
usage: $0 [-d] [-c:csv_file] [-n:nodes_file] [test-input-file-just-for-demo]
-d : print debugging messages to stderr
-c : csv output file name. Default $CSV
-n : nodes input file name. Default $NODES
EOF
exit;
}
#
# temporary code to replace 'snmpwalk' which I do not have.
# just fakes it with an array read from STDIN
#
while (<>) {
chop;
($nam,$val)=split /=/;
$node = $val if (/sysName/);
$snmpwalk{$node.$nam}=$val;
print "$node|$nam|$val\n" if $debug;
}
open (NODES, "<$nodes") or die "could not open nodes file $nodes";
open (CSV, ">$csv") or die "could not open scv file $csv";
$tmp = join(",",@columns);
print CSV "$tmp\n";
while () {
chop;
$node = $_;
$line = "";
print "- $node\n" if $debug;
foreach $column (@columns) {
$val = $snmpwalk{$node.$column}; # replace with snmpwalk code
$line .= $val . ",";
print "-- $column, $val\n" if $debug;
}
chop $line;
print CSV $line."\n";
}
