Linux/Perl: Zusätzliche Ausgabepuffer außer STDOUT und STDERR?

Question

Aus Neugier, ist es möglich, zusätzliche Ausgabepuffer außer STDOUT und STDERR innerhalb eines Perl-Skripts zu erstellen, instanziieren oder anderweitig darauf zuzugreifen?

Der Anwendungsfall würde zusätzliche Ausgänge, um Dateien oder andere Befehle Rohr sein, zB ./doublerainbow.pl 3>full_on.txt 4>all_the_way!.txt

Answer 1

Absolut. Mit dem Befehl open mit dem Modus >&= können Sie Dateihandles für beliebige Dateideskriptoren öffnen.

# perl 4fd.pl > file1 2> file2 3> file3 4> file4 5< file5 

open STDFOO, '>&=3'; 
open STDBAR, '>&=4'; 
open STDBAZ, '<&=5'; # works for input handles, too 

print STDOUT "hello\n"; 
print STDERR "world\n"; 
print STDFOO "42\n"; 
print STDBAR <STDBAZ>; 

---

$ echo pppbbbttt > file5 
$ perl 4fd.pl >file1 2>file2 3>file3 4>file4 5<file5 
$ cat file1 
hello 
$ cat file3 
42 
$ cat file4 file2 
pppbbbttt 
world