ログファイルを削除するcgiプログラム

ログファイルを削除するcgiプログラム
--------------------
$GYOUSUU = $FORM{'GYOUSUU'};

#--- ログファイルオープン
open(FH,"***.log");
flock(FH,2);
@FILES = <FH>;
flock(FH,8);
close FH;

undef $FILES[$GYOUSUU];

open (FH2,">***.log");
@filew = "@FILES\n";
print FH2@filew;
close(FH2);
--------------------
となっているのですが、修正後にログファイルの行の頭に、半角スペースが入ってしまいます。
どこを修正すればいいのでしょうか？

No.2 ベストアンサー 回答者： jubay 回答日時： 2003/05/13 11:22

すいません。

ちょっと勘違いしていました。
確かに半角スペースが入りますね。

原因はやっぱり、
> @filew = "@FILES\n";
だと思います。
この行は必要ありません。

単純に、
print FH2 @FILES;
にすれば良いと思います。

この回答へのお礼

無事できました。
\nはなんとか自分で「違うかな？」とは思っていたんですが、半角スペースがどうしてもわかりませんでした。

ありがとうございました。

お礼日時：2003/05/13 11:40

No.1 回答者： jubay 回答日時： 2003/05/13 10:58

半角スペース? 改行文字が入っているのだと思いますが。

原因は、
> @filew = "@FILES\n";
の\n(改行文字)です。