Oops. I forgot one thing... How can I get the name of the node being walked to display for each port or at least at the beginning of the ports for that node? I will use the script to walk against a lot of devices and need to be able to differentiate between them. I'm guessing it has something to do with the chomp statement. Here's what I have for the script: 
#!/usr/bin/perl

use strict;

# make sure we can open input and output files
open( H, "/opt/home/johnsonr/scripts/nodes" ) or die "/opt/home/johnso
+nr/scripts/nodes: $!";
open( O, ">output.csv" ) or die "output.csv: $!";

# read host list
my @hosts = <H>;
close H;

chomp @hosts;  # remove "\r\n" from ends of lines

my @iplist;
for my $host ( @hosts ) {
    my $ip = `getent hosts $host`;
    $ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*/$1/s;
    # do whatever you do to get $ip for $host (and chomp if needed)
    push @iplist, $ip;
}


my %ipdata;
my @infolist = qw/ifDescr ifOperStatus ifAdminStatus ifLastChange/;
my $cmdarg = "VER143r interfaces.ifTable.ifEntry."; # UPDATED to inclu
+de final "."

for my $ip ( @iplist ) {
    for my $info ( @infolist ) {
        my @pdata = `snmpwalk $ip $cmdarg$info`;

        chomp @pdata;  # remove line-terminations
        s/.* = // for (@pdata);  # remove redundant text

        $ipdata{$ip}{$info} = [ @pdata ]; # create array ref in the ha
+sh structure

        $ipdata{$ip}{lastport} = $#pdata; # keep track of how many por
+ts
    }
}

# now print the csv data

for my $ip ( @iplist ) {
    for my $portid ( 0 .. $ipdata{$ip}{lastport} ) {
        my $outstr = '';
        for my $info ( @infolist ) {
            $outstr .= '"' . $ipdata{$ip}{$info}[$portid] . '",';
        }
        $outstr =~ s/,$/\n/; # replace trailing comma
        print O $outstr;
    }
}

[download]

In reply to Re^4: snmpwalk to CSV #2 by getwithrob
in thread snmpwalk to CSV #2 by getwithrob

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.