(引第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;
找個入門教材
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.234.218.178
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1428323721.A.726.html