Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie
Easiest way to make graph from text files?
Options
-
18-08-2010 4:41pm#1
Comments
-
-
-
-
-
The following is a simple graph using Perl's GD::Graph, you can then play around with colour (spelled correctly for once
), format (line, chart, bar, etc...), fonts, logos etc.. until you are delighted with the result #!/usr/bin/perl use strict; use warnings; use GD::Graph; use GD::Graph::area; for my $data_file (@ARGV){ my (@motes, @radio); my $x_max=0; my $y_max=0; open (my $data_fh, "<" , $data_file); while (<$data_fh>){ if (/^Mote (\d+), radio total: (\d+\.?\d?)$/){ push @motes, $1; push @radio, $2; $y_max=$2 if ($2 > $y_max); } } my @data = (\@motes, \@radio, ); my $graph = GD::Graph::area->new(1024, 768); $graph->set( x_label => 'Mote', y_label => 'Radio total', title => 'Radio total v\'s Mote', y_max_value => $y_max, y_tick_number => $y_max / 1000, y_label_skip => 2, transparent => 0, ) or die $graph->error; my $gd = $graph->plot(\@data) or die $graph->error; my $image_file = $data_file; $image_file=~ s/(.+)\.[^\.]+/$1.png/; open(my $img_fh, '>', $image_file) or die $!; binmode $img_fh; print $img_fh $gd->png; close $img_fh; }
link to documentation of module0 -
Advertisement
-
-
-
-
-
-
Advertisement
-
-
-
Moderators, Science, Health & Environment Moderators, Social & Fun Moderators, Society & Culture Moderators Posts: 60,098 Mod ✭✭✭✭
Join Date:Posts: 59272
Skrynesaver wrote: »The following is a simple graph using Perl's GD::Graph, you can then play around with colour (spelled correctly for once ), format (line, chart, bar, etc...), fonts, logos etc.. until you are delighted with the result #!/usr/bin/perl use strict; use warnings; use GD::Graph; use GD::Graph::area; for my $data_file (@ARGV){ my (@motes, @radio); my $x_max=0; my $y_max=0; open (my $data_fh, "<" , $data_file); while (<$data_fh>){ if (/^Mote (\d+), radio total: (\d+\.?\d?)$/){ push @motes, $1; push @radio, $2; $y_max=$2 if ($2 > $y_max); } } my @data = (\@motes, \@radio, ); my $graph = GD::Graph::area->new(1024, 768); $graph->set( x_label => 'Mote', y_label => 'Radio total', title => 'Radio total v\'s Mote', y_max_value => $y_max, y_tick_number => $y_max / 1000, y_label_skip => 2, transparent => 0, ) or die $graph->error; my $gd = $graph->plot(\@data) or die $graph->error; my $image_file = $data_file; $image_file=~ s/(.+)\.[^\.]+/$1.png/; open(my $img_fh, '>', $image_file) or die $!; binmode $img_fh; print $img_fh $gd->png; close $img_fh; }
link to documentation of module
Hi was messing around with this and got
Is it easy just to change that so it is a line rather than have all that red under the line?
Also messing up when i try to edit it and take in data from multiple files to make multiple lines. /back to editing0 -
-
-
NeverSayDie wrote: »At a guess, I'd say this line
"my $graph = GD::Graph::area->new(1024, 768);"
is telling it to use an area graph and not the line graph you want it to. The docs for GD::Graph should have the rest.
Correct.my $graph = GD::Graph::lines->new(1024, 768);
Would define a line chart.
gdgraph.com shows a range of charts and the code to generate them
The original code was to graph one file specified on the command line, you wish to have a data structure such that there are an array of data points associated with each Mote ID?
To do this try the following (WARNING: Haven't had any coffee yet and work box doesn't have GD::Graph installed
, this may fail badly, if it does "use Data::Dumper; print Dumper \@data;" before writing graph)
#!/usr/bin/perl use strict; use warnings; use GD::Graph; use GD::Graph::area; my (@motes, %radio, $count); my $x_max=0; my $y_max=0; $count=0; for my $data_file (@ARGV){ open (my $data_fh, "<" , $data_file); while (<$data_fh>){ if (/^Mote (\d+), radio total: (\d+\.?\d?)$/){ push @motes, $1 if $count == 0; #Assumes all files have same Mote count push @{$radio[$count]}, $2; $y_max=$2 if ($2 > $y_max); } } } my @data = (\@motes); push @data, values %radio; my $graph = GD::Graph::area->new(1024, 768); $graph->set( x_label => 'Mote', y_label => 'Radio total', title => 'Radio total v\'s Mote', y_max_value => $y_max, y_tick_number => $y_max / 1000, y_label_skip => 2, transparent => 0, ) or die $graph->error; my $gd = $graph->plot(\@data) or die $graph->error; my $image_file = $data_file; $image_file=~ s/(.+)\.[^\.]+/$1.png/; open(my $img_fh, '>', $image_file) or die $!; binmode $img_fh; print $img_fh $gd->png; close $img_fh; }
ps: Welcome to Perl, it gets in on you quite quickly0 -
-
-
I'm lovin' RRDTool at the moment.
http://oss.oetiker.ch/rrdtool/
It's a round-robin database with a simple output method.
Code example here:
http://owfs.org/index.php?page=garden
0
Advertisement