运行结果报错

fish_162

#!/usr/bin/perl -w
use Data:umper;

$/=">";
my %unqs;

while (<DATA>{
        chomp;
        next if (m/^s*>/);
     my @line = (split /\n/,$_,2);
     $unqs{$line[0]}=$line[1] if (length($line[1]) > length($unqs{$line[0]}));
                print Dumper(%unqs);
}

__DATA__
>test1
GAGATGCAATCTTCGCAGCTAGG
>test2
GAGATGAAACAACGAGGGAAACGATGTT
>test1
AGAGCAGTG
>test3
AACGATGTTTGTGTATACCAAAAGCAATAAC
>test1
GCAATCTTCGCAGCTAGGCGAAAGGGAGATGAAACAACGA

运行结果如下：
Use of uninitialized value $line[0] in hash element at scrip_delet.pl line 11, <DATA> chunk 1.
Use of uninitialized value in numeric gt (> at scrip_delet.pl line 11, <DATA> chunk 1.
Use of uninitialized value in numeric gt (> at scrip_delet.pl line 11, <DATA> chunk 1.
Use of uninitialized value in numeric gt (> at scrip_delet.pl line 11, <DATA> chunk 2.

请问：我前面已定义哈希，为什么还提示我没有定义？应怎么修改？

蚊仔perlperl

把 Dumper 移出while,可以了吧

1. #!/usr/bin/perl -w
   
2. use Data::Dumper;
   
3. 
   
4. $/=">";
   
5. my %unqs;
   
6. 
   
7. while (<DATA>){
   
8.         chomp;
   
9.         next if (m/^s*>/);
   
10.      my @line = (split /\n/,$_,2);
    
11.      $unqs{$line[0]}=$line[1] if (length($line[1]) > length($unqs{$line[0]}));
    
12. 
    
13. }
    
14. print Dumper(%unqs);
    
15. 
    
16. __DATA__
    
17. >test1
    
18. GAGATGCAATCTTCGCAGCTAGG
    
19. >test2
    
20. GAGATGAAACAACGAGGGAAACGATGTT
    
21. >test1
    
22. AGAGCAGTG
    
23. >test3
    
24. AACGATGTTTGTGTATACCAAAAGCAATAAC
    
25. >test1
    
26. GCAATCTTCGCAGCTAGGCGAAAGGGAGATGAAACAACGA

复制代码

fish_162

去掉Dumper还是不行。
运行结果报错：

Use of uninitialized value $line[0] in hash element at testf.pl line 10, <DATA> chunk 1.
Use of uninitialized value in numeric gt (>) at testf.pl line 10, <DATA> chunk 1.
Use of uninitialized value in numeric gt (>) at testf.pl line 10, <DATA> chunk 1.
Use of uninitialized value in numeric gt (>) at testf.pl line 10, <DATA> chunk 2.
Use of uninitialized value in numeric gt (>) at testf.pl line 10, <DATA> chunk 3

hztj2005

把计算机当情人！情人节写程序。

1. #!/usr/bin/perl -w
   
2. use Data::Dumper;
   
3. 
   
4. $/=">";
   
5. my %unqs;
   
6. 
   
7. while (<DATA>)
   
8. {
   
9.      chomp;
   
10.      next if (m/^s*>/);
    
11.      print $_."\n";   
    
12.      my @line = (split /\n/,$_,2);
    
13.    
    
14.     if(@line)
    
15.     {
    
16.       if(exists($unqs{$line[0]}))
    
17.       {
    
18.               $unqs{$line[0]}=$line[1] if (length($line[1]) > length($unqs{$line[0]}));
    
19.       }else
    
20.       {
    
21.               $unqs{$line[0]}=$line[1];
    
22.       }
    
23.     }
    
24.    
    
25.     print Dumper(%unqs);
    
26.     print "-----------\n";
    
27. }
    
28. 
    
29. __DATA__
    
30. >test1
    
31. GAGATGCAATCTTCGCAGCTAGG
    
32. >test2
    
33. GAGATGAAACAACGAGGGAAACGATGTT
    
34. >test1
    
35. AGAGCAGTG
    
36. >test3
    
37. AACGATGTTTGTGTATACCAAAAGCAATAAC
    
38. >test1
    
39. GCAATCTTCGCAGCTAGGCGAAAGGGAGATGAAACAACGA

复制代码