mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-11-21 15:37:31 +02:00
30 lines
575 B
Perl
Executable File
30 lines
575 B
Perl
Executable File
#!/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);
|