Parsing /proc/net/dev with perl for @ChrisLundquist

procnetdev.pl

#!/usr/bin/env perl
use strict;
use warnings;

my @lines = `cat /proc/net/dev`;
my @rx_fields = qw(bytes packets errs drop fifo frame compressed multicast);
my @tx_fields = qw(bytes packets errs drop fifo frame compressed);

for my $line (@lines) {
  next if $line !~ /:/;

  $line =~ s/^\s+|\s+$//g;
  
  my ($iface, %rx, %tx);

  ($iface, @rx{@rx_fields}, @tx{@tx_fields}) = split /[: ]+/, $line;
  
  print "iface: $iface\n";
  print "rx{$_}: $rx{$_}\n" for sort keys %rx;
  print "tx{$_}: $tx{$_}\n" for sort keys %tx;
}