mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-25 17:03:01 +02:00
30 lines
575 B
Plaintext
30 lines
575 B
Plaintext
|
#!/usr/bin/perl
|
||
|
# Show /proc/net/snmp6 continuously. Loosely based on
|
||
|
# http://svn.openmoko.org//developers/werner/bin/snmp
|
||
|
#
|
||
|
# usage: snmp6 <interval>
|
||
|
#
|
||
|
$SNMP = "/proc/net/snmp6";
|
||
|
$LINE = 78;
|
||
|
$continuous = $ARGV[0];
|
||
|
do {
|
||
|
open(PROC, $SNMP) || die "open $SNMP: $!";
|
||
|
while (<PROC>) {
|
||
|
die unless /^(\S+)(\s+)(\d+)$/;
|
||
|
if (!defined $last{$1}) {
|
||
|
print;
|
||
|
} elsif ($last{$1} != $3) {
|
||
|
printf "$1$2%+d\n", $3-$last{$1};
|
||
|
}
|
||
|
$last{$1} = $3;
|
||
|
}
|
||
|
close(PROC);
|
||
|
|
||
|
if ($continuous) {
|
||
|
sleep($continuous);
|
||
|
print (("-"x$LINE)."\n");
|
||
|
}
|
||
|
$more = 1;
|
||
|
}
|
||
|
until (!$continuous);
|