- Perlについての質問箱 63箱目
534 ：デフォルトの名無しさん[age]：2014/08/27(水) 09:16:11.60 ID:r0Oo6qoj - STDINのデータを全てファイルに書き込んで
そのファイルを読み込んでseekを使えばいいだろ
| - Perlについての質問箱 63箱目
535 ：デフォルトの名無しさん[age]：2014/08/27(水) 11:32:48.05 ID:r0Oo6qoj - でも
while(read(IN,$buffer,20)){
seek(IN,-1,1);
print "$buffer<br>";
}
だとエラーになるのに
for(1...20){
read(IN,$buffer,20);
seek(IN,-1,1);
print "$buffer<br>";
}
だとエラーにならないのはよくわからんな
| - Perlについての質問箱 63箱目
539 ：デフォルトの名無しさん[age]：2014/08/27(水) 13:25:41.33 ID:r0Oo6qoj - >>536
２０バイト進んで１バイト戻るのどこが無限ループなんだ？
>>538
そうだよ
|
|