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

You're probably right.
Don't use qw with variable names.

Try this: 

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

[download]

Replies are listed 'Best First'.
Re: Re: Flat File Database & GD::Graph (REVISITED)
by suggus (Sexton) on Mar 18, 2002 at 08:42 UTC
    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. ;)
[reply]
[d/l]
[select]
      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]
      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