Question

我正在为Perl编写一个用于Perl的小程序，我是Perl的新手。

我写的代码为我提供了我需要的完全相同的值，但是在创建条形图时我遇到了这个错误。

Invalid data set: 0 at line 67

第67行在下面的代码中标有注释。

存储在x轴上的值为：

40 44 48 52 64 76 83 104 105 148 149 249 431 665 805 1420 1500

y_axis是：

16 1  1 6 1 1 1 1 1 1 1 1 1 1 1 2 5

这是我的代码：

use GD::Graph::bars;

open(CHECKBOOK,"c:\\Perl\\bin\\ip_packet_trace1.txt");

my $counter = -1;
my @sizearray = {};
while ($record = <CHECKBOOK>) {
    @array = split(/\t/,$record);
    $counter++;
    $sizearray[$counter] = $array[6];

}

$counter++;

my @array1 = sort {$a <=> $b} @sizearray;
print "$counter\n";
print "@array1\n";


my @freq = {0...0};

foreach $elem (@array1){

    my $s = $freq[$elem]+1;

    $freq[$elem] = $s;
}


my $size = @freq;
my @x_axis = {};
my @y_axis = {};

my $count2 = -1;


for($i = 1; $i < $size; $i++){

    my $elem = $freq[$i];

    if($elem  and $elem > 0  ){

        $count2++;

        $x_axis[$count2] =  $i;

        $y_axis[$count2] = $elem;
    }

}


print "@x_axis \n";
print "@y_axis \n";




my $mygraph = GD::Graph::bars->new(500, 300); # line 67

$mygraph->set(x_label     => 'Month',

y_label     => 'Number of Hits',

title       => 'Number of Hits in Each Month in 2002',

) or warn $mygraph->error;

my @data = {@x_axis,@y_axis};



my $myimage = $mygraph->plot(\@data) or die $mygraph->error;

open(IMG, '>C:\\image\\file.gif') or die $!;

binmode IMG;

print IMG $myimage->gif;

close IMG;

Answer 1

我认为您对@data的任务可能是罪魁祸首。

my @data = {@x_axis,@y_axis};

这将创建一个包含一个元素的数组。那个元素是一个哈希。 GD::Graph文档显示您需要一个数组数组。正如daotoad所述，这就是Data::Dumper派上用场的地方。试试以下内容：

use Data::Dumper;
my @x_axis = 1...100;
my @y_axis = "a"..."z";
my @data = {@x_axis,@y_axis};
warn Dumper(\@data);

您可以看到数据的解释方式，并看到它与GD::Graph example不同：

@data = ( 
    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
    [    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
    [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ]
  );

Answer 2

请use strict和use warnings。如果你使用这些编译指示，那么你在这段代码中发生的许多麻烦都会被标记出来。

您还需要花费大量精力才能追加到阵列的末尾。您可以使用push执行此操作，而无需知道最后一项的索引。像这样使用push可以让你简化代码。

使用()制作一个空数组（确实是好列表）。使用[]创建数组引用。使用{}来创建哈希引用。你一直在很多地方使用哈希引用。

最好使用词法文件句柄而不是全局文件句柄。使用全局文件句柄是使用不必要的全局变量，这是一个麻烦。同时检查您拨打open的电话是否成功。

open( my $fh, '<', 'path/to/file)
    or die "Unable to open data file - $!\n";

当您使用数据结构时，Data :: Dumper是一个有用的模块，可以查看正在发生的事情。

use Data::Dumper;

my $foo = {
  bar => [ 0..5],
  baz => { a..z },
};

my @qux = ( [qw/a b c d/], [0..5] );

print Dumper $foo;
print Dumper \@qux;

另外，看看perldsc和perlreftut他们有很好的例子来说明如何使用引用和嵌套数据结构。

Answer 3

我不确定我在看什么，但有一件事突然出现在我身上：你正在将数组初始化为哈希引用：

hektor ~ $ perl -e '@sizearray = {}; print @sizearray, "\n"'
HASH(0x8031c0)

如果你想要的只是一个空数组，你可以简单地说：

my @sizearray;

如果你想清楚它是新的和空的，你需要括号;见下文。（正如布拉德在评论中所说，这是多余的。你应该习惯于看到和编写更简单的版本。）

my @sizearray = ();

数组存储有序列表和列表放在括号中。有关详情，请参阅perldoc perldata。

Answer 4

ķ。我测试并修改了你的代码。以下代码有效。每个人都提到的阵列部分很重要，但不是你唯一的问题。 cpan中的示例是一个匿名数组，因此您只需要将2个引用传递给@data，而不是传递@data 2数组。

#!/usr/bin/perl
#
use GD::Graph::bars;

my $size = @freq;
my @x_axis = qw(40 44 48 52 64 76 83 104 105 148 149 249 431 665 805 1420 1500);
my @y_axis = qw(16 1  1 6 1 1 1 1 1 1 1 1 1 1 1 2 5);

my $mygraph = GD::Graph::bars->new(500, 300); # line 67
$mygraph->set(x_label     => 'Month',
            y_label     => 'Number of Hits',
            title       => 'Number of Hits in Each Month in 2002',
) or warn $mygraph->error;
my @data = (\@x_axis,\@y_axis); # the important part.
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;

open(IMG, '>helping_graph.gif') or die $!;
binmode IMG;
print IMG $myimage->gif;
close IMG;

为什么Perl的GD :: Graph抱怨“数据集无效”？

4 个答案: