先附上程式片段
while (my $row = <$fh>) {
chomp $row;
my $reverseRow = reverse_complement($row);
print "$reverseRow\n";
}
這樣子print是OK的
但
while (my $row = <$fh>) {
chomp $row;
my $reverseRow = reverse_complement($row);
}
print "$reverseRow\n";
這樣子無法
就算改成
my $reverseRow = '';
while (my $row = <$fh>) {
chomp $row;
my $reverseRow = reverse_complement($row);
}
print "$reverseRow\n";
也沒辦法印到while裡面的東西
而
$reverseRow = '';
while (my $row = <$fh>) {
chomp $row;
$reverseRow = reverse_complement($row);
}
print "$reverseRow\n";
也是會出錯
請問要怎樣讓print在while迴圈外呢?
我是想在while把所有的字串集合成一個變數
再把那個變數印出
求解 拜託T.T
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.231.192.137
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1428318378.A.82D.html