我写的代码出错了，但是不知道怎么改，求大神们帮助！！！

旋转小马

  1 #!/usr/bin/perl -w
  2 use strict;
  3 open IN,"6h.sam"or die"Can not open IN\n";
  4 open OUT,">/share/work1/staff/wangyu/test/miRNA-works/BFC2013156/sec.xls"or die"Can not open OUT\n";
  5 my ($num,$sum,$hi,$single,$double)=(0,0,0,0,0);
  6 my %hash;
  7 my %chek;
  8 while(<IN>){
  9         chomp;
10         if($_=~/^@/){
11           next;
12         }
13         my @line=split/\t/,$_;
14         if($line[2]!~/\*/){
15            $hi++;
16            if(exists $hash{$line[2]}){
17               $hash{$line[2]}++;
18               if(exists $chek{$line[0].$line[2]}){
19                  $chek{$line[0].$line[2]}++;
20               }else{
21                  $chek{$line[0].$line[2]}=1;
22               }
23            }else{
24               $hash{$line[2]}=1;
25            }
26         }
27 }
28 foreach my $key(sort {$hash{$a}<=>$hash{$b}} keys %hash){
29         print OUT "$key\t$hash{$key}\t$chek{$_}\n";
30 }                                    
31 print $hi,"\n";                       
32 close IN;
33 close OUT;  系统提示29行$_出错，怎么改，求大神们指教，谢谢！！！

grshrd49

28 foreach my $key(sort {$hash{$a}<=>$hash{$b}} keys %hash){
29         print OUT "$key\t$hash{$key}\t$chek{$_}\n";

你28行都my $key
29行还用$_ ？

旋转小马

那要怎样改呢，现在不是有两个哈希嘛？？？回复 2# grshrd49


   

pitonas

那要怎样读写%chek呢？

旋转小马

???回复 4# pitonas


   

pitonas

我惊呆了{:2_179:}
大牛你都不提提怎样打印%chek
那要怎样改代码呢?

旋转小马

我初学者，确实不懂~~~回复 6# pitonas


   

jason680

回复 7# 旋转小马

you have to tell us what do you want to do or get ...
then 大神们 can help you
(maybe you need the 目测大神, but he is on the Shell group
   

stanley_tam

文件/share/work1/staff/wangyu/test/miRNA-works/BFC2013156/sec.xls貌似是一个excel。
这么写入估计有问题，下面的代码，假设你用的是ativeperl。报错的第29行是想写入$chek{$key}{:3_198:}

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Excel::Writer::XLSX;
   
4. 
   
5. BEGIN {
   
6.     if (system('perl -e "use Excel::Writer::XLSX"')){
   
7.         system('ppm install Excel::Writer::XLSX');
   
8.     }
   
9. }
   
10. 
    
11. open IN, "6h.sam" or die "Can not open IN\n";
    
12. my $output_file                          = '/share/work1/staff/wangyu/test/miRNA-works/BFC2013156/sec.xls';
    
13. my $output_workbook                      = Excel::Writer::XLSX->new( $output_file );
    
14. my $row                                  = 0;
    
15. my $worksheet                            = $output_workbook->add_worksheet();
    
16. my ( $num, $sum, $hi, $single, $double ) = ( 0, 0, 0, 0, 0 );
    
17. my %hash;
    
18. my %chek;
    
19. while (<IN>) {
    
20.     chomp;
    
21.     next if /^@/;
    
22. 
    
23.     my @line = split /\t/, $_;
    
24. 
    
25.     if ( $line[2] !~ /\*/ ) {
    
26.         $hi++;
    
27.         if ( exists $hash{ $line[2] } ) {
    
28.             $hash{ $line[2] }++;
    
29.             $chek{ $line[0] . $line[2] }++;
    
30.         }
    
31.         else {
    
32.             $hash{ $line[2] } = 1;
    
33.         }
    
34.     }
    
35. }
    
36. close IN;
    
37. 
    
38. foreach my $key ( sort { $hash{$a} <=> $hash{$b} } keys %hash ) {
    
39.     $worksheet->write_string($row, 0, $key);
    
40.     $worksheet->write_string($row, 1, $hash{$key});
    
41. 
    
42.     # suppose you want to write $chek{$key}.....
    
43.     $worksheet->write_string($row, 2, $chek{$key});
    
44.     $row++;
    
45. }
    
46. 
    
47. print $hi, "\n";
    
48. 
    
49. __END__

复制代码

rubyish

28 foreach my $key(sort {$hash{$a}<=>$hash{$b}} keys %hash){
29         print OUT "$key\t$hash{$key}\t$chek{$_}\n";
30 }

两条不相同 KEY 的 HASH~{:3_188:}
$hash 的 key 是 $line[2]
$chek 的 key 是 $line[0] . $line[2]