已经解决.结贴 脚本 Perl - 我的代码逻辑哪里错了? (匿名数组)

sunzhiguolu

文本内容如下:

1. 
   
2. Number       start    end         name
   
3. -------------------------------------------------------------
   
4. NO.1          1       10          wf
   
5. NO.1          11      22          wf
   
6. NO.1          29      38          cz
   
7. NO.1          39      51          cz
   
8. NO.1          52      60          cz
   
9. NO.2          2       9           gx
   
10. NO.2          10      22          gx
    
11. NO.2          23      40          gx
    

复制代码

希望根据 name 字段的取值去除重复行. 去重后 start 字段的起始值保持不变, end 字段保持最大值. 最终实现效果如下:

1. 
   
2. Number       start    end         name
   
3. -------------------------------------------------------------
   
4. NO.1          1       22          wf
   
5. NO.1          29      60          cz
   
6. NO.1          2       40          gx
   

复制代码

#以下是一些变量的注释: (希望没有给您读代码造成困扰 ^_^)
#哈希变量 %record_list 保存最终结果, 数组 @record 存储每一条记录
#变量 $k, $next_number 分别存储 name, end 字段的值

1. 
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. @ARGV or die "Give me a file!\n";
   
8. my (%record_list, @record, $k, $next_number);
   
9. while(<>){
   
10.    chomp;
    
11.    @record = split /\s+/;
    
12.    if (!%record_list){
    
13.       $record_list{$record[-1]} = \@record;   #等号右面应改为 [@record];
    
14.    }else{
    
15.          ($next_number, $k) = ($record[-2], $record[-1]);
    
16.       if (exists $record_list{$k}){
    
17.          $record_list{$k}[-2] = $next_number;
    
18.       }else{
    
19.          $record_list{$k} = \@record;         #这里同上
    
20.       }
    
21.    }
    
22. }
    
23. 
    
24. #结果测试:
    
25. foreach my $key (keys %record_list){
    
26.    my ($id, $begin_num, $end_num, $name) = (
    
27.    $record_list{$key}[0],
    
28.    $record_list{$key}[1],
    
29.    $record_list{$key}[2],
    
30.    $record_list{$key}[3]);
    
31. 
    
32.    say "$id, $begin_num, $end_num, $name";
    
33. }
    

复制代码

sunzhiguolu

以下是我的输出结果:

1. 
   
2. NO.2, 23, 40, gx
   
3. NO.2, 23, 40, gx
   
4. NO.2, 23, 40, gx
   

复制代码

一点都不对! 我各个地方都进行了测试感觉数据挺正确的. 就是输出结果的时候就傻眼!

ba_du_co

$record_list{$record[-1]} = \@record;
$record_list{$k} = \@record;

\@record ==> [@record]

sunzhiguolu

回复 3# ba_du_co

1.> $record_list{$record[-1]} = \@record;
2.> $record_list{$k} = \@record;

3.> \@record ==> [@record]

比较笨! 没看懂, 啥意思?

1.> 如果哈希 %record_list 为空, 则用数组元素的最后一个字段作为键, 并将数组的引用作为值进行存储
2.> 如果哈希 %record_list 中不包含指定键的话, ...

等下... 我好像明白您说的了... 稍后回来!

白高兴一场...

ba_du_co

回复 4# sunzhiguolu
     \@record
改成   
      [@record]

sunzhiguolu

回复 5# ba_du_co

[@record]

我是 Perl 语言新手, 请问 [] 一对放括号, 在此处表示啥意思?
或者您告诉我这是一个什么东西, 我自行查找资料也行.


   

sunzhiguolu

回复 5# ba_du_co
方才试了一下, 果真一点问题都没有! 还请您给予指点...
\@record 与 [@record] 之间的区别是啥?

   

ba_du_co

回复 6# sunzhiguolu
array ref
\@a ==> same address
[@a] ==> different address

   

sunzhiguolu

回复 8# ba_du_co
多谢多谢...

   

Eva326

回复 1# sunzhiguolu

您的代码，有的地方没看懂，
if (!%record_list)   这句是判断哈希是否定义吗？不是很理解，在最开始已经声明了哈希，为什么在此还要判断一次呢？

初学perl，望指教！