client/meter/net-traffic

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 for my $iface_path (glob "/sys/class/net/*")
   6 {
   7         my ($iface) = $iface_path =~ /\/([^\/]+)$/;
   8
   9         my $rx_bytes = file_get_int("$iface_path/statistics/rx_bytes");
  10         my $tx_bytes = file_get_int("$iface_path/statistics/tx_bytes");
  11
  12         $\ = "\n";
  13         print "$iface.rx_bytes  $rx_bytes";
  14         print "$iface.tx_bytes  $tx_bytes";
  15 }