Parsing SNMP VLAN-numbers

[Dave82764]

Hi, I am fairly new to Perl so would appreciate if someone could point me in the right direction on this one.
I am using Perl to make SNMP gets on a network switch. I retrieve the data and push it onto an array. I now need however to extract just a portion of each string and put that into another array. In the example below, I wish to take the VLAN number (1,2,10,1002,1003) and put into a separate array. I have looked at split but am not sure if this can achieve what I am after. Any assistance is much appreciated.

.1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1:INTEGER:1
.1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.2:INTEGER:1
.1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.10:INTEGER:1
.1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1002:INTEGER:1
.1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1003:INTEGER:1
Thanks,

Dave

2006-05-16 Retitled by Corion, as per Monastery guidelines
Original title: 'Parsing'

[Zaxo]

You can either split on dot or colon and index to the element you want, or else you can do regex matching and capture the field you want. In this case I think regex, since there is a unique pair of delimiters around the number you want,

my @array = qw/
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.2:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.10:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1002:INTEGER:1
    .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1003:INTEGER:1
/;

my @vlans = map {m/\.(\d+):/ ? $1 : undef} @array;

The trinary op makes sure that the elements of @vlans correspond one-to-one with those of @array, even when no match is found.

[davido]

I would probably do it this way:

my @vlan_numbers;
foreach ( @snmp_strings ) {
    if( /\.(\d+):\w/ ) {
        push @vlan_numbers, $1;
    }
}

print "$_\n" foreach @vlan_numbers;

[turo]

Another way ^_^>

#!/usr/bin/perl

$_ = qq(
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.2:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.10:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1002:INTEGER:1
        .1.3.6.1.4.1.9.9.46.1.3.1.1.2.1.1003:INTEGER:1
);
push @vlans, $1 while ( m/\.(\d+):\w+/g );
print "@vlans\n";

[polettix]

Being new to Perl, you may ignore that there is a whole archive of modules to to (nearly) all kind of stuff: it's http://www.cpan.org/ (you can even http://search.cpan.org/). You can also find interesting SNMP stuff there.

[idle]

If you using snmpget, you can specify an option -Oqv, in this case you'll get only value of oid(1,2,10,1002,1003).
And of course take a look at the span, the simplest way to make a things.

[Dave82764]

Thanks for all the replies, I really appreciate your help. Now I am going to get busy trying them all out.
Thanks again,
Dave