in reply to Re: Flat File Database & GD::Graph (REVISITED)
in thread Flat File Database & GD::Graph (REVISITED)

That didn't work.
The reason why I used 
my @data = ( [ qw ( $date ) ], 
             [ qw ( $aaa_partners ) ], 
             [ qw ( $aaa_arf ) ],
);

[download]

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) ] );

[download]

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

Replies are listed 'Best First'.
Re: Re: Re: Flat File Database & GD::Graph (REVISITED)
by busunsl (Vicar) on Mar 18, 2002 at 08:52 UTC
    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
);

    [download]
[reply]
[d/l]
      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
);

      [download]

      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.
[reply]
[d/l]
Re: Re: Re: Flat File Database & GD::Graph (REVISITED)
by PrakashK (Pilgrim) on Mar 18, 2002 at 14:59 UTC
    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) ] );

    [download]
    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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom