Select Code to Download

Select or download this

  # remove extra spaces
  my $fields = () = $summary =~ /[\s+,:]/g;

Select or download this

>perl -MYAPE::Regex::Explain -E 'say YAPE::Regex::Explain->new(q<[\s+,
+:]>)->explain'
The regular expression:
...
)                        end of grouping
----------------------------------------------------------------------

Select or download this

  elsif ( $fields == 10 ) {
    ( $Star, $Intf, $IHQ, $IQD, $OHQ, $OQD, $RXBS, $RXPS, $TXBS, $TXPS
+, $TRTL )
      = split( ' ', $summary );

Select or download this

  my $Star = 0;
  my $Intf = 0;
...
      $interface_bytes{$Track} += $TXBS;
  # ...
  }

Select or download this

      $Track = join "<<-", $rec, $Intf;
      $interface_bytes{$Track} += $RXBS;

Select or download this

      $interface_bytes{"$rec<<-$Intf"}+=$RXBS;

Select or download this

    if    ( $Star ne "*" )  { next; }
    elsif ( $RXBS =~ /\D/ ) { next; }
    elsif ( $TXBS =~ /\D/ ) { next; }

Select or download this

  } else {
    print STDERR
"Danger Will Robinson - my sensors detect an invisible hole that may c
+onsume you\n";
  }