Chinaunix

标题: 哪位大神帮忙看一看，到底是哪里出了错误？？？ [打印本页]

作者: 旋转小马 时间: 2013-11-07 17:28
标题: 哪位大神帮忙看一看，到底是哪里出了错误？？？
1 #!/usr/bin/perl -w
  2 use strict;
  3 open IN,"blast.out"or die"Can not open IN\n";
  4 open OUT,">klm.xls"or die"Can not open OUT\n";
  5 my $hash;
  6 while(<IN>){
  7       chomp;
  8       my @line=split/\t/,$_;
  9       if(exists $hash{$line[1]}){
10          $hash{$line[1]}++;
11       }else{
12          $hash{$line[1]}=1;
13       }
14 }
15 foreach my $key(sort {$hash{$b}<=>$hash{$a}} keys %hash){
16       print OUT "$key\t$hash{$key}\n";
17 }
18 close IN;
19 close OUT;
这是我写的小代码，系统一直提示编译错误，不知道哪里出了错，大神们帮忙看一看，万分感谢！！！

作者: 旋转小马 时间: 2013-11-07 17:30
好吧，终于找到了····my，%hash 这的错误！！！回复 1# 旋转小马

作者: pitonas 时间: 2013-11-07 19:35
万分感谢！！！

作者: 旋转小马 时间: 2013-11-08 09:03

回复 3# pitonas

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)