Date: Tue, 20 Aug 2019 22:34:40 -0700 From: Rudy <crapsh@monkeybrains.net> To: freebsd-net@freebsd.org Subject: packets per second tool for CLI - and question about checksum_errs Message-ID: <380fff29-8df3-2671-69c3-ef47131aaf58@monkeybrains.net>
next in thread | raw e-mail | index | archive | help
Here is a quick tool so show Packets Per Second on the CLI for all your
interfaces (only tested with ix and igb).
It uses the output of sysctl every second. If you like it, great!
Quick question, why am I seeing checksum_errs around 1k on a link doing
3Gbps?
*
**Sample output of script:*
Tue Aug 20 22:28:16 2019 00:00:01
Dev RX bits TX bits RX PPS TX PPS CK Error
igb0 0 2 0
igb1 0 0 0
ix0 2589 M 415 M 311 k 171 k 11
ix1 254 M 2120 M 108 k 248 k 1 k
ix2 171 M 508 M 62 k 63 k 385
ix3 1 k 1 k 0 0 0
Host: yourbox.example.com
Rudy
#!/usr/local/bin/perl
#
# pps - Packets Per Second tool like top
#
# Tue Aug 20 22:09:25 PDT 2019, MonkeyBrains.NET
#
my $SAMPLETIME = shift || 4;
my $DAMPEN = undef; # set to 1 to make Mbps be an average
$SAMPLETIME =~ /^\d{1,4}$/ or die "Usage: $0 [delay]\n";
use Term::ANSIScreen qw/:color :cursor :screen :keyboard/;
# footer text
my $hostname = `hostname`;
chomp($hostname);
my $footer = "Host: $hostname";
# colors in the table
my @c = ('bold white on black', 'green', 'cyan', 'bold green', 'bold
blue', 'bold red'); # columns in table
my @c2 = ('bold yellow on black', 'black on yellow', 'black on yellow');
# header and footer
my @w = (8); # width for columns (decided on 10 for all but first...)
my $totalWidth = $w[0] + 50;
my $width1 = $totalWidth-30;
my $width2 = $totalWidth-$w[0];
# some variables
my %info;
my %avg; # tamper Mbps fluctations...
print cls(); #clear screen
my $s = 0; # number of sysctl runs
while (1) {
open STATS, "sysctl dev | " or die;
my %sum;
while (<STATS>) {
my ($dev,$p1,$p2,$v,$delta);
if (s/^dev\.([a-z]+)\.(\d+)\.//) {
$dev = $1.$2;
} else {
next;
}
if (/^(mac_stats).good_(octets_.*): *(\d+)$/o) {
($p1,$p2,$v) = ($1,$2,$3*8); # bytes * 8
# use a rolling 'last 4 data points' average
$delta=$v-$info{$dev}{$p1}{$p2}{'last'} if
$info{$dev}{$p1}{$p2}{'last'};
$info{$dev}{$p1}{$p2}{'last'}=$v;
if ($DAMPEN) {
# keep a running average...
if ($avg{$dev}{$p2} && $delta) {
# add t0 average over past 2 cycles
$avg{$dev}{$p2} = ($delta + $avg{$dev}{$p2} * 2)/ 3;
$delta = $avg{$dev}{$p2} unless ($delta = 0); #
hard zero at 0
} else {
# first time through
$avg{$dev}{$p2} = 0; # init
}
}
} elsif (/^(mac_stats|queue.*)\.(.*): *(\d+)$/o) {
($p1,$p2,$v) = ($1,$2,$3);
$delta=$v-$info{$dev}{$p1}{$p2}{'last'} if
$info{$dev}{$p1}{$p2}{'last'};
$info{$dev}{$p1}{$p2}{'last'}=$v;
} else {
next;
}
$sum{$dev}{$p2} += $delta; # will aggregate all queues
}
locate 1, 1; # move cursor to top left
my $seconds = time-$^T;
my $hours = int( $seconds / (60*60) );
my $mins = ( $seconds / 60 ) % 60;
my $secs = $seconds % 60;
my $elapsed = sprintf("%02d:%02d:%02d", $hours,$mins,$secs);
print colored
[$c2[0]],sprintf("%-30s%${width1}s\n",scalar(localtime),$elapsed); #
clear line, and return
print colored [$c2[1]],sprintf("%$w[0]s%-${width2}s\n", "Dev"," RX
bits TX bits RX PPS TX PPS CK Error ");
$s++;
foreach my $dev (sort keys %sum) {
my $i = 0;
print colored [$c[0]], sprintf("%$w[$i]s",$dev);
foreach my $p2 (qw(octets_rcvd octets_txd rx_packets tx_packets
checksum_errs)) {
$i++;
my $v = $sum{$dev}{$p2};
$v /= $SAMPLETIME if $s > 2; # need two values
$v =~ s/\..*//; # floor
# conver to M and k for Mega and Kilo
if ($v > 1000000) {
$v /= 1000000;
$v =~ s/\.\d+//;
$v .= ' M';
} elsif ($v > 1000) {
$v /= 1000;
$v =~ s/\.\d+//;
$v .= ' k';
} else {
$v .= ' '; # some padding for alignment
}
my $width = $w[$i] || 10;
print colored [$c[$i]],sprintf("%${width}s",$v);
}
print "\n";
}
print colored [$c2[2]],sprintf("%-${totalWidth}s\n", " $footer");
close STATS;
if ($s == 1) {
sleep 1; # only sleep 1 on startup
next;
}
sleep $SAMPLETIME;
}
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?380fff29-8df3-2671-69c3-ef47131aaf58>