Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^3: measuring IN/OUT traffic on your computer

by ambrus (Abbot)
on Aug 31, 2007 at 09:19 UTC ( #636278=note: print w/ replies, xml ) Need Help??


in reply to Re^2: measuring IN/OUT traffic on your computer
in thread measuring IN/OUT traffic on your computer

That's easy too. Firstly change the print statement so it would print the time (in epoch seconds) and the rate separated by spaces. Write that output to a file, and then graph that file with gnuplot.

I actually have a perl program that draws a graph by calling gnuplot, here are a few parts of its code (I did it as a work so I don't want to publish all of it). The part not shown here opens a tempfile and writes into it the numbers in the simple format mentioned above. I also print some overall statistics to stdout. The following sub graphs the data then (it might need some adaptation for your purposes).

use File::Temp (); sub showgraph { my($cmdfile, $cmdfilename); my $cmds = qq[set key off\nplot "] . quote($outname) . qq[" wi +th lines\n! echo "Press return to continue" ; read\n]; ($cmdfile, $cmdfilename) = File::Temp::tempfile undef, "UNLINK +", 1; $out or die "error creating temporary commands file"; print "Writing gnuplot command to temporary file $cmdfilename\ +n"; print $cmdfile $cmds or die "error writing command file: $!"; flush $cmdfile or die "error flushing comand file"; print "Launching gnuplot\n"; system "gnuplot", $cmdfilename; close $cmdfile; }

Update 2008-01-29: see Plot a spiral with gnuplot.


Comment on Re^3: measuring IN/OUT traffic on your computer
Download Code
Re^4: measuring IN/OUT traffic on your computer
by stark (Pilgrim) on Aug 31, 2007 at 09:34 UTC

    I like it.

    On Linux you can use the tools nload or ipfraf for this... But anyway - short and definitely a cool use of Perl.

Re^4: measuring IN/OUT traffic on your computer
by spx2 (Chaplain) on Aug 31, 2007 at 10:06 UTC
    ___
Re^4: measuring IN/OUT traffic on your computer
by spx2 (Chaplain) on Sep 03, 2007 at 12:17 UTC
    __

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://636278]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-11-29 01:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (201 votes), past polls