Perlでのファイル操作。

パール子 2000/06/08(木) 09:39:55
皆様、お疲れ様です。

Perlでのファイル操作をしようと思ってます。
やりたい事は、あるファイルの内容をreadして
その内容を変更してそのファイル自身にwriteしたいのです。
open(FP,+<aaa.csv);
このような感じで書いております。
$cnt = 0;
while(<FP>)
    $contents[$cnt] = $_;
    $cnt++;
}
・・・(内容を調べてます。)
・・・
for($i=0; $i<$cnt; $i++){
    if(xxx){
        print FP "xxxx";
    }
}
このような感じの処理をしたいのですが、
readはできているのですがwriteができません。
また、現在のファイルのポインタがどこにあるのかも
解りません。

どうぞよろしくお願いします。

Fuji.♪ [E-Mail] [HomePage] 2000/06/08(木) 10:46:24
ファイルポインタは読み込んだ後にfseekなどで移動していなければファイルの終端にいると思いますが。 (^_^;
書き込みについては、書き込み権限があるかどうかなどを確認してみましょう。

[上に] [前に] [次に]