#将删除此评论

我的$name =“”; #不会删除此评论

#！/usr/bin/perl -w< - 不会删除此特殊评论 要编辑的文件名称通过终端作为参数传递

die "You need to a give atleast one file-name as an arguement\n" unless (@ARGV);

foreach (@ARGV) {
    $^I = "";
    (-w && open FILE,$_) || die "Oops: $!";
    /^\s*#[^!]/ || print while(<>);
    close FILE;
    print "Done! Please see file: $_\n";
}

现在我通过终端运行它：
perl removeComments file1.pl file2.pl file3.pl

我得到了输出：
完成！请看文件：

这个脚本正如我所期待的那样完全正常工作

问题1：为什么$_没有打印文件的名称？

问题2：由于循环运行3次,为什么要完成！请看文件：只打印一次？

如何在尽可能少的行中编写此脚本？

如果你有时间,请评论我的代码.

谢谢.