はじめまして、CGIと言いますか、perl文法に近い質問かもしれませんが、
よろしくお願いします。
本で良く登場する
open(IN,"+<$file")
に関して、以下[ソース1]のように、オープンしたファイルの中の有る文字列を
発見したら置換するようなプログラムを作ったのですが、実行するとなぜか元の
ファイルが消えてしまいます。なぜなのか教えてください。
--------------------(ソース1)------------------------
#! /usr/local/bin/perl
$file = "sample.txt";
open(IN,"+<$file");
while(<in>){
s/bbb/xxx/;
print IN $_ ;
}
close(IN);
-------------------------------------------------------
-------------------[sample.txt]------------------------
aaa
bbb
ccc
ddd
-------------------------------------------------------