作者flu (Crazy Rhythm)
看板Perl
标题Re: [问题] 初学者问题 关於my 急 求解惑 谢谢
时间Mon Apr 6 20:35:19 2015
(引第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://webptt.com/cn.aspx?n=bbs/Perl/M.1428323721.A.726.html