(引第2和4段)
※ 引述《stevekevin10 (hippo泡)》之铭言：
: 但
1 : while (my $row = <$fh>) {
2 : chomp $row;
3 : my $reverseRow = reverse_complement($row);
4 : }
5 : $reverseRow = '';
第3列的 $reverseRow 在第4列过后就找不到了
第5列和第3列的是不同的变量
用 use strict; use warnings; 会给你警告
1: while (my $row = <$fh>) {
2: chomp $row;
3: $reverseRow = reverse_complement($row);
4: }
5: print "$reverseRow\n";
第5列只会印出最后一次第3列执行后的结果，
也就是第n次的结果会被第n+1次盖掉
建议： 用use strict; use warnings;
找个入门教材