Question

I am trying to extract the Interface from an array created from an SNMP Query.

I want to create an array like THIS:

my @array = ( "Gig 11/8",
              "Gig 10/1",
              "Gig 10/4",
              "Gig 10/2");

It currently looks like THIS:

my @array = 
( "orem-g13ap-01    Gig 11/8          166            T       AIR-LAP11 Gig 0",
  "orem-g15ap-06    Gig 10/1          127            T       AIR-LAP11 Gig 0",
  "orem-g15ap-05    Gig 10/4          168            T       AIR-LAP11 Gig 0",
  "orem-g13ap-03    Gig 10/2          132            T       AIR-LAP11 Gig 0");>

I am doing THIS:

foreach $ints (@array) {
         @gig = substr("$ints", 17, 9);
         print("Interface: @gig");

Sure it works, but the hostname [orem-g15ap-01] doesn’t always stay the same length, it varies depending on the site. I need to extract the word “Gig” plus the next 6 characters. I have no idea what is the best way of doing this.

I am a novice at perl but trying. Thanks

Answer 1

# "I need to extract the word "Gig" plus the next 6 characters."
# This looks like a fixed-with file format, so consider using unpack.
foreach ( @lines ) {
    my( $orem, $gig, $rest ) = unpack 'a17 a9 a*';
    print "[$gig]\n";
}

If it’s not fixed-with format, then you need to find out what the file spec is and then maybe use a regular expression, something like:

    my( $orem, $gig, $rest ) = m/(\S+)\s+(.{9})(.*)/;

But this will not work in the general case without a proper file spec.