我写了一个perl程序 运行不了

hubenxia

下面是我写的 但是运行不了 求助


#!/usr/bin/perl -w
open DATA,"<seq.fna";
open SEQUENCE,">result.txt";
my %hash;
my $last;
while (<DATA>) {
   if (/^\>/) {
    $last = $_ ;
          }
          else {
    $hash{$last} = $_;
          }
}
close DATA;
open DABA, "<list.txt";
while ($line=<DABA>) {
        ($number) = $line =~/^(\S+)\s+/;
        }
close DABA;
if ($last =~/$number/) {
        print SEQUENCE $last;
        print SEQUENCE        $hash{$last};
        print   $last;  
        print        $hash{$last};
}
close SEQUENCE;

gaoyang636

啥叫运行不了？ 有报错么？有的话 贴一下报错信息。
你在win下运行的吧，是不是直接点的这个pl程序? 下次你在cmd里运行试试？ 记得把这几个文件“seq.fna”"list.txt"也放到同一文件夹下哦

jason680

回复 1# hubenxia

1. strict rules
  use strict;
  use warnings;

2. check open file:
  open DATA,"<seq.fna";
  open and check ...
  open DATA,"<seq.fna" or die "cannot open seq.fna file\n";

3. using the good coding style
Note: if you have no idea, perltidy can help you ...
Perl::Tidy - Parses and beautifies perl source

hubenxia

#!/usr/bin/perl -w
open DATA,"<seq.fna";
open SEQUENCE,">result.txt";
my %hash;
my $last;
while (<DATA> {
if (/^\>/) {
$last = $_ ;
}
else {
$hash{$last} = $_;
}
open DABA, "<list.txt";
while ($line=<DABA> {
($number) = $line =~/^(\S+)\s+/;
if ($last =~/$number/) {
print SEQUENCE $last;
print SEQUENCE $hash{$last};
print $last;
print $hash{$last};
}
}
close DABA;
}
close DATA;
close SEQUENCE;