Изнутри скрипта perl вы можете узнать имя файла, на который вы перенаправляете вывод?

Question

Так у меня есть:

test.pl > test.log 

есть способ узнать внутри test.pl что я outputing к «test.log»? В конце моего сценария я хочу сделать некоторые манипуляции с test.log без жесткого кодирования имени.

Answer 1

Вы можете перенаправить стандартный вывод из Perl, с минимальными изменениями в вашем сценарии,

test.pl test.log 

---

my ($file) = @ARGV; 
if (@ARGV) { 
    open STDOUT, ">", $file or die $!; 
} 

print "output is redirected to $file\n"; 

# use $file at the end 

Answer 2

Может быть. Следующие работы на Linux, но не очень подходит для других систем ...

#!/usr/bin/env perl 

use strict; 
use warnings; 

my $out = readlink("/proc/$$/fd/1"); 
print STDERR "I am being output to $out\n"; 

Естественно, это, вероятно, плохая идея. Лучше явно открыть файл и записать его в Perl, вместо того, чтобы настроить перенастройку оболочки.