diff --git a/bin/snmp6 b/bin/snmp6 new file mode 100755 index 0000000..9f67366 --- /dev/null +++ b/bin/snmp6 @@ -0,0 +1,29 @@ +#!/usr/bin/perl +# Show /proc/net/snmp6 continuously. Loosely based on +# http://svn.openmoko.org//developers/werner/bin/snmp +# +# usage: snmp6 +# +$SNMP = "/proc/net/snmp6"; +$LINE = 78; +$continuous = $ARGV[0]; +do { + open(PROC, $SNMP) || die "open $SNMP: $!"; + while () { + 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);