Re: Re: Flat File Database & GD::Graph (REVISITED)

[suggus]

That didn't work.
The reason why I used

my @data = ( [ qw ( $date ) ], 
             [ qw ( $aaa_partners ) ], 
             [ qw ( $aaa_arf ) ],
);

was because the GD::Graph module allows you to format your data without having to use quotes and commas. like so:

$graph->set( dclrs => [ qw(green pink blue cyan) ] );

right? ...remind me not to drink 6 cups of coffee in one sitting. ;)

[busunsl]

I see your problem.

Try to use arrays for $date and so on:

(untested)

while (<HANDLE>) {
   chomp;
   @temp1 = split(/\|/, $_);
   $domain = unpack ("A5", $temp1[17]);
   push @date, $temp1[1];
   push @aaa_partners, $temp1[4];
   push @aaa_arf, $temp1[5];
}
close(HANDLE);

my @data = ( \@date, 
             \@aaa_partners, 
             \@aaa_arf
);

[suggus]

while (<HANDLE>) {
   chomp;
   @temp1 = split(/\|/, $_);
   $domain = unpack ("A5", $temp1[17]);
   push @date, $temp1[1];
   push @aaa_partners, $temp1[4];
   push @aaa_arf, $temp1[5];
}
close(HANDLE);

my @data = ( \@date, 
             \@aaa_partners, 
             \@aaa_arf
);


still doesn't work. Is it because GD::Graph is really picky as to how the multidimensional arrays are formatted? Please enlighten me if anyone has had any experience working with text file databases and the GD::Graph module.

[PrakashK]

GD::Graph module allows you to format your data without having to use quotes and commas. like so:

$graph->set( dclrs => [ qw(green pink blue cyan) ] );

It is not the feature of GD::Graph module that is letting you write code like this. It is the magic of the qw operator. Please see the Quote and Quote-like Operators section in perlop.

/prakash