作者stevekevin10 (hippo泡)
看板Perl
标题[问题] 初学者问题 关於my 急 求解惑 谢谢
时间Mon Apr 6 19:06:15 2015
先附上程式片段
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://webptt.com/cn.aspx?n=bbs/Perl/M.1428318378.A.82D.html