hash 变量 问题 谢谢～～

Little-C

输入类似这样的数据

a23:01-01-2009:s2
a22:01-05-2009:s2
a37:01-08-2009:s1
a23:01-11-2009:s1
a45:01-17-2009:s2
a37:01-21-2009:s1


想要输出的结果是

Animal Id        Station 1    Station 2
a23                    1               1
a37                    2               0
a45                    0               1

时间去掉  我只能做到输出是       a23      2
                                             a37      2
                                             a45      1

但是怎么分开s1和s2。。。。

jason680

请贴上代码

Little-C

1. 
   
2. my %animal_act;
   
3. 
   
4. while (my $animal = <>) {
   
5.     chomp $animal;
   
6.    
   
7.     my @animal;
   
8.     @animal = split(":",$animal);
   
9.    
   
10.     my ($animal_name, $state) = (shift @animal, pop @animal);
    
11.    
    
12.     if (not exists ($animal_act{($animal_name)})) {
    
13.         $animal_act{($animal_name)} = 0;
    
14.     }
    
15.     $animal_act{($animal_name)}=$animal_act{($animal_name)} + 1;
    
16. }
    
17. 
    
18. foreach my $animal_name (sort keys %animal_act) {
    
19.    
    
20.     print "$animal_name       $animal_act{($animal_name)}\n";   
    
21. }

复制代码

珞水的大叔

回复 3# Little-C


    用两个key的hash
    改第11~14行为：

1.     if (not exists ($animal_act{$animal_name}{$state})) {
   
2.         $animal_act{$animal_name}{$state} = 0;
   
3.     }
   
4.     $animal_act{$animal_name}{$state}++;

复制代码

改第19行为：

1. print "$animal_name       $animal_act{$animal_name}{"s1"}    $animal_act{$animal_name}{"s2"}\n";

复制代码

Little-C

回复 4# 珞水的大叔


但是有bug～～

已经有这个了

1. if (not exists ($animal_act{$animal_name}{$state})) {
   
2.         $animal_act{$animal_name}{$state} = 0

复制代码

但是为什么还是显示显示不出0～～

warning 显示的是 “Use of uninitialized value in concatenation (.) or string at as1.pl line 23, <> line 284.”

珞水的大叔

回复 5# Little-C


    line 23是哪行

Little-C

回复 6# 珞水的大叔

1. print "$animal_name    $animal_act{$animal_name}{s1}    $animal_act{$animal_name}{s2} \n";

复制代码

应该不是这行的问题。
因为输出的结果，显示不出0。
应该是0的地方是空的。

那个warning应该是说没有结果可以输出的意思。

珞水的大叔

回复 7# Little-C


    那就是要么$state会有s1、s2之外的类型，要么是$state里面含有空格之类的异常字符，处理一下看看

Little-C

回复  Little-C


    那就是要么$state会有s1、s2之外的类型，要么是$state里面含有空格之类的异常字符 ...
珞水的大叔 发表于 2010-10-21 11:54

哦哦  我知道了
他好像在这种情况下默认0为 string了
所以在输出的时候没有显示0  还warning说不是数字

我在后面加了一个if  如果是0  就打出数字0 就好了。。。

珞水的大叔

回复 9# Little-C


    这样也可以，呵呵