Как получить имя файла?

Question

У меня есть этот простой скрипт, над которым я работаю. Должен признаться, я совершенно не знаком с PERL и вроде бы застрял в этой глупой проблеме.

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

Итак ... Я открыл t.html и нашел заданную строку в файле. Выход был в порядке, но мне нужно также имя файла, в котором была найдена строка, для печати. Я действительно не знаю, как вернуть это, и мне нужно это сразу после $_. Спасибо за помощь заранее.

Answer 1

Это странная идея, но вы можете, если вы хотите:

$ cat 1.pl 

#somewhere in the code 
open(F, "f.txt"); 
my $f = fileno(F); 

#here you want to find the filename 
open(FILENAME, "ls -l /proc/$$/fd/$f|"); 
my @fn = split(/\s+/, <FILENAME>); 
print $fn[$#fn],"\n"; 

$ perl 1.pl 
/home/ic/f.txt 

Здесь вы знаете только FileDescriptor и найдите имя файла, используя его.

Вы также можете написать намного короче с readlink:

open(F, "f.txt"); 
my $f = fileno(F); 

#here you want to find the filename 
print readlink("/proc/$$/fd/$f"), "\n"; 

я должен отметить, что файл может быть уже удален (но он все еще существует, если она открыта).

Answer 2

Просто сохраните имя файла в переменную, прежде чем открыть ее, а затем перейти оттуда:

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

Обратите внимание, что выше использует 3-Arg форму open(), которая является более безопасным.

(Кроме того, язык является "Perl", а не "PERL".)