Linux/Perl: buffer di uscita aggiuntivi diversi da STDOUT e STDERR?

Question

Per curiosità, è possibile creare, creare un'istanza o accedere in altro modo a buffer di output aggiuntivi oltre a STDOUT e STDERR da uno script Perl?

Il caso di utilizzo sarebbe uscite aggiuntivi per tubo a file o altri comandi, ad esempio ./doublerainbow.pl 3>full_on.txt 4>all_the_way!.txt

Answer 1

Assolutamente. Il comando open con la modalità >&= consente di aprire filehandle su descrittori di file arbitrari.

# 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