perl - 如何获取打开文件的文件名？

Question

我正在处理这个简单的脚本。我必须承认，我是 PERL 的新手，有点被这个愚蠢的问题困住了。

open(IN, "<def/t.html") or die();
while(<IN>) {
    chomp;
    if($_ =~ m/FF0000/) {
        print "\n".$_."\n";
    }
}

所以...我打开了 t.html 并在文件中找到了给定的字符串。输出没问题，但我还需要打印在其中找到字符串的文件的文件名。我真的不知道如何返回它，我需要它紧跟在 $_ 之后。提前感谢您的帮助。

Answer 1

只需在打开文件之前将文件名保存在一个变量中，然后从那里开始:

my $filename = 'def/t.html';
open( IN, '<', $filename ) or die $!;
...
print "\n$filename: " . $_ . "\n";

请注意，上面使用了 3-arg 形式的 open()，这样更安全。

(此外，语言是“Perl”，而不是“PERL”。)