Linux/Perl: dodatkowe bufory wyjściowe inne niż STDOUT i STDERR?

Question

Czy z ciekawości możliwe jest tworzenie, tworzenie instancji lub uzyskiwanie w inny sposób dodatkowych buforów wyjściowych oprócz STDOUT i STDERR z poziomu skryptu Perla?

Przypadek byłyby do dodatkowych wyjść z rurą do plików lub innych poleceń, na przykład ./doublerainbow.pl 3>full_on.txt 4>all_the_way!.txt

Answer 1

Oczywiście. Polecenie open z trybem >&= pozwala otwierać uchwyty plików na dowolnych deskryptorach plików.

# 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