{"id":492,"date":"2009-05-04T22:29:26","date_gmt":"2009-05-04T19:29:26","guid":{"rendered":"http:\/\/www.void.gr\/kargig\/blog\/?p=492"},"modified":"2009-05-04T22:54:29","modified_gmt":"2009-05-04T19:54:29","slug":"iftraffic-perl-script-to-measure-inout-traffic-in-realtime","status":"publish","type":"post","link":"https:\/\/www.void.gr\/kargig\/blog\/2009\/05\/04\/iftraffic-perl-script-to-measure-inout-traffic-in-realtime\/","title":{"rendered":"iftraffic.pl: perl script to measure in\/out traffic in realtime"},"content":{"rendered":"

During some QoS tests on Linux I needed to measure the traffic of the system in realtime without being able to compile any new software on it. The system had already perl installed so I googled to find a script that could monitor in\/out traffic of an interface. The first script I found was this: http:\/\/perlmonks.org\/?node_id=635792<\/a><\/p>\n

While it’s actually doing what it says, it only runs just once. I wanted the script to run for a period of time. So I changed it a bit.
\nHere’s the outcome:
\n#!\/usr\/bin\/perl
\nmy $dev=$ARGV[0];
\nsub get_measures {
\n my $data = `cat \/proc\/net\/dev | grep \"$dev\" | head -n1`;
\n $data =~ \/$dev\\:(\\d+)\\D+\\d+\\D+\\d+\\D+\\d+\\D+\\d+\\D+\\d+\\D+\\d+\\D+\\d+\\D+(\\d+)\\D+\/;
\n my $recv = int($1\/1024);
\n my $sent= int($2\/1024);
\n return ($recv,$sent);
\n}
\nmy @m1 = get_measures;
\nwhile(1) {
\n sleep 1;
\n my @m2 = get_measures;
\n my @rates = ($m2[0] - $m1[0], $m2[1]-$m1[1]);
\n foreach ('received' , ' transmit') {
\n printf \"$_ rate:%sKB\",shift @rates;
\n }
\n print \"\\n\";
\n @m1=@m2;
\n}<\/code><\/p>\n

I’ve changed it so that it’s:
\na) running continuously until someone presses ctrl+c to stop it,
\nb) parsing the \/proc\/net\/dev output instead of the ifconfig output. I think this is more efficient\/fast than parsing the ifconfig output.<\/p>\n

Sample output:<\/p>\n

$iftraffic.pl eth0
\nreceived rate:1564KB transmit rate:71KB
\nreceived rate:1316KB transmit rate:44KB
\nreceived rate:1415KB transmit rate:48KB
\nreceived rate:1579KB transmit rate:76KB\n<\/p><\/blockquote>\n

I am sure that someone with more insight into perl than me can make it even more efficient.<\/p>\n

You can also download a version with comments that I made so that one can make the script run for X number of repetitions instead of running until someone stops it.
\nDownload: iftraffic.pl<\/a><\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"

During some QoS tests on Linux I needed to measure the traffic of the system in realtime without being able to compile any new software on it. The system had already perl installed so I googled to find a script that could monitor in\/out traffic of an interface. The first script I found was this: […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ep_exclude_from_search":false,"footnotes":""},"categories":[3,8],"tags":[72,595,70,599,73,48,71,69],"class_list":["post-492","post","type-post","status-publish","format-standard","hentry","category-linux","category-networking","tag-incoming","tag-linux","tag-monitor","tag-networking","tag-outgoing","tag-perl","tag-realtime","tag-traffic"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t