and the following code (excuse the poor quality)Start comments 1 2 3 4 5 6 7 8 quotes End Start comments 8 7 6 5 4 3 2 1 quotes End
If I include the code for the graph, the IF never makes it to the second set of data (8 7, 6 5, 4 3, 2 1)use GD::Graph::linespoints; my $data_file = "retestfileIN.txt"; open DATA, "$data_file" or die "can't open $data_file $!"; undef $/; $_ = <DATA>; close DATA; $/ = "\n"; for my $r (0 .. 1) { if (/comments(.*?)quotes/sg) { my $tempvar = $1; $tempvar=~ s/^\s+|\s+$//g; @alltemp = split(/\n/,$tempvar); foreach my $line (@alltemp) { $line =~ /(\d)\s(.*)/g; push(@first, $1); push(@second, $2); push (@data, ([@first, @second])); } } my $g = GD::Graph::linespoints->new(500,300); # graph code $g->set( x_label => 'X Label', y_label => 'Y label', title => 'Some simple graph', y_max_value => 10, y_tick_number => 8, y_label_skip => 2 ) or die $g->error; my $format = $g->export_format; open (IMG, ">squot$r.$format") or die $!; binmode IMG; print IMG $g->plot(\@data)->$format(); # end graph code }
there's my problem
In reply to Re^4: GD::GRAPH:linespoints problem
by v_d_g
in thread GD::GRAPH:linespoints problem
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |