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

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]

Comment on Re: Re: Re: Flat File Database & GD::Graph (REVISITED) Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Flat File Database & GD::Graph (REVISITED) by suggus (Sexton) on Mar 18, 2002 at 18:31 UTC
`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]

Replies are listed 'Best First'.

Re: Re: Re: Re: Flat File Database & GD::Graph (REVISITED)
by suggus (Sexton) on Mar 18, 2002 at 18:31 UTC

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]