GD::Graph probs

[Steve Tattersall]

GD(help)....

I have been fiddling with this my perl GD:Graph prog and just can't get it
to work, get the following error can anyone help???

I have managed to successfully plot a graph previously what am I doing
wrong?
-----------------------------------------------------------
Illegal division by zero at
/home/zzchesh/perl/lib/site_perl/5.6.1/GD/Graph/axestype.pm line 1176,
<INFILE> line 858.
-----------------------------------------------------------
Here is a stdout of my array of array which the GD::Graph uses as its data
sets.
=----------------------------------------------------------
Welsh emigrants' letters
 Benllech Congregational Chapel Minute Books
 Papers of Owen Lewis, Arthog
 World War II Newspapers
 Hugh Derfel Hughes Papers

6
 5
 4
 4
 4
------------------------------------------------------------
HERE IS MY PROGRAM :-


#!/home/zzchesh/perl/bin/perl -w

# Reads in stats from all html tables in the Hub_Stat directory, produces a
graph on the top ten searches on the Hub

#use strict;
#use GD::Graph::Data;
use GD::Graph::bars;
#use GD::Graph::pie;
#use GD::Graph::lines;
#use GD::Graph::points; #
#use GD::Text; #

for $file (<*02.html>){
  open (INFILE, "/home/zzchesh/WWW/docs/Hub_Stats/$file") or die "there is
no file $!" ;

  while ($line = <INFILE>){

      #chomp $line;

        if ($line =~ /<td headers="header2">(.*?)<\/td>/i){ # Record name
          $name = $1;
          chomp $name;
          $name .= "\n";
          #push (@title, $name);

        }

        if ($line =~ /<td headers="header3">(.*?)<\/td>/i){ # Search frequency
          $num = $1;
          chomp $num;
          $num .= "\n";
          #push (@searches, $num);
        }

        $hash{$name} = $num;

      }
}

foreach $name(sort { $hash{$b} <=> $hash{$a} } keys (%hash)){ #compares
  if ($count < 5){
    #print "The Key  is $name and the value is: $hash{$name}\n";
    push @title, $name;
    push @searches, $hash{$name};
    #print $hash{$name};
    #print $name;
   $count ++;
  }



}

push @graph_data, [ @searches];
push @graph_data, [ @title];

$graph = GD::Graph::bars->new(750, 400);
$graph->set ( x_labels_vertical => 1);

$graph->set(
            x_label => 'TITLE',
            y_label => 'NO. of SEARCHES',
            title => 'TOP TEN RECORDS FOR MARCH 2002',
            bar_spacing => 20,
            bar_width => 20,
           # y_min_value => 0,
           # y_max_value => 15
           )
  or warn $graph->error;



print "##########TITLE @title#####################\n";
print "############## SEARCHES @searches################\n";
#print "@title\n";
#print "@searches\n";
#print "$name\n";

#$graph->wanted(1,2,3,4,5,6,7,8,9,10) or die $data->error;
$graph->plot(\@graph_data) or die $graph->error;

open (GRAPH, ">Topsearches.jpg") || die "Cannot open Topsearches.jpg: $!\n";
print GRAPH $graph->gd->jpeg(200);

print "@searches\n";
print "@title\n";
#print "$num";
$count =0;

close (INFILE);




Steve Tattersall
Archives Hub Programmer
MIMAS
Manchester Computing
Oxford Road
Manchester
M13 9PL
Tel: 0161 275 6054

[EMAIL PROTECTED]