作者xlissvia (红尘浪影)
看板Perl
标题[问题] 奇妙的输出问题
时间Thu Apr 10 14:09:35 2008
一直想不透为什麽有差
以下这个输出到123.txt，没有显示任何结果。
======================
#! /usr/bin/perl
open(W, "> 123.txt") || die "$!\n";
for $i ( aaaaaaaa .. zzzzzzzz)
{
if ($i =~ /^(....).*zzzz$/)
{
print W "$1 complete\n";
print "$1 complete\n";
}
}
close(W);
======================
以下这个输出到123.txt，就能正确显示结果
======================
#! /usr/bin/perl
open(W, "> 123.txt") || die "$!\n";
for $i ( aaaaaaaa .. zzzzzzzz)
{
if ($i =~ /^(.....).*zzz$/)
{
print W "$1 complete\n";
print "$1 complete\n";
}
}
close(W);
=====================
试了很多次，明明就只差那一行
到底是哪里有问题呢？ 感谢各位解答^^
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.246.45
1F：推 cutecpu:第一种法写我有跑出结果耶... 04/10 15:13
2F：推 wgfbyb:两种都有跑结果 第二才会写入.txt 04/10 15:53
3F：→ xlissvia:所以有人知道为什麽吗？ 04/10 18:48
4F：推 ArchRanger:应该是缓冲区问题 04/14 08:44