- 311 名前：デフォルトの名無しさん [2009/03/14(土) 10:04:59 ]
- 少しお聞きしたいのです。
以下のようなソースがありまして、
$| = 1;
print "Start\n";
$i = 0;
while($a = <>){
print "Loop: $a $i\n";
$i++;
}
print "End\n";
コマンドラインから perl test.pl などとして起動すると、
Ctrl+Z(ENTER)でEOFを渡して（よくわかってない？）中断して終了できますよね。
しかし、EOF(0x1a)を、
ファイルで渡したり(perl test.pl < test.txt)、Delphi等のプログラムから渡したりすると
上記プログラムでは終了してくれなす。
これを終了してくれるようにするにはどうしたらよいでしょうか？
