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.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|