hash 变量 问题 谢谢～～

liyangole

我也练习做了一个。散列的散列：
#!/usr/bin/perl
use strict;
my(%animal,$date,$station,$key);

format STDOUT_TOP =
Animal Id         Station 1          Station 2
-----------------------------------------------
.
format STDOUT =
@<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<@<<<<<<<<
     $key           $animal{$key}{s1}     $animal{$key}{s2}
.

open F,"data.txt"||die "Can't open file: $!\n";
while (<F>){
        chomp;           
        ($key,$date,$station)=split/:/;
        $animal{$key}{s1}++ if $station =~ /s1/;
        $animal{$key}{s2}++ if $station =~ /s2/;
}
for $key (sort keys %animal){
       
        $animal{$key}{s1}=0 unless defined $animal{$key}{s1};
        $animal{$key}{s2}=0 unless defined $animal{$key}{s2};
        write ;
        #print "$key:\t$animal{$key}{s1}\t$animal{$key}{s2}\n";
}

liyangole

不过我有个问题 先将$animal{$key}{s1} 换成 $ranimal{$key}=$rec  $rec->{s1}的形式时候有问题，请帮忙添加个引用。

liyangole

我是了 几个位置定义引用都不能显示正确的数据。难道不能使用引用了吗？？？？？？？

liyangole

估计在这 贴 没人能看到吧。

Little-C

估计在这 贴 没人能看到吧。
liyangole 发表于 2010-10-21 16:35

还木有学到散列～～帮你改了个题目～～希望有人能看到吧～～