08/01/30 05:56:58
>735
つーかマテ、その改造コード間違ってるんじゃねーか。
$file が全く関係ないところに書かれてる。
そのコードじゃカレントディレクトリ全部削除されるぞ。
$file = <STDIN>; と書くんだったら、
for (glob '*') { $_ eq $file or unlink $_ } にしなきゃ。
$ARGV[0] はコマンドラインからの引数な。
>734 はファイル名を引数として渡してる。
08/01/30 05:56:58
>735
つーかマテ、その改造コード間違ってるんじゃねーか。
$file が全く関係ないところに書かれてる。
そのコードじゃカレントディレクトリ全部削除されるぞ。
$file = <STDIN>; と書くんだったら、
for (glob '*') { $_ eq $file or unlink $_ } にしなきゃ。
$ARGV[0] はコマンドラインからの引数な。
>734 はファイル名を引数として渡してる。