Ваше приложение, вероятно, отправляет пакеты на определенный номер порта UDP или TCP или на определенный IP-адрес.
Поэтому вы можете использовать что-то вроде TCPdump для захвата этого трафика.
TCPdump не дает вам желаемую статистику в реальном времени, но вы можете передать ее вывод чему-то, что делает (я постараюсь обновить этот ответ ответом позже).
Обновить:
$ sudo tcpdump -i eth1 -l -e -n | ./netbps
tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
listening on eth1, link-type EN10MB (Ethernet), capture size 96 bytes
11:36:53 2143.33 Bps
11:37:03 1995.99 Bps
11:37:13 2008.35 Bps
11:37:23 1999.97 Bps
11:37:33 2083.32 Bps
131 packets captured
131 packets received by filter
0 packets dropped by kernel
Я прервал это через минуту, нажав Ctrl+C.
Вам нужно добавить подходящее выражение фильтра в конце команды tcpdump
чтобы включить только трафик, генерируемый вашим приложением (например, port 123
)
Программа netbps
выглядит так:
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes;
my $reporting_interval = 10.0; # seconds
my $bytes_this_interval = 0;
my $start_time = [Time::HiRes::gettimeofday()];
STDOUT->autoflush(1);
while (<>) {
if (/ length (\d+):/) {
$bytes_this_interval += $1;
my $elapsed_seconds = Time::HiRes::tv_interval($start_time);
if ($elapsed_seconds > $reporting_interval) {
my $bps = $bytes_this_interval / $elapsed_seconds;
printf "%02d:%02d:%02d %10.2f Bps\n", (localtime())[2,1,0],$bps;
$start_time = [Time::HiRes::gettimeofday()];
$bytes_this_interval = 0;
}
}
}
Это всего лишь пример, приспособиться к вкусу.