in reply to Recursively changing STDOUT
moritz gave you half the answer. The one thing remaining, is reopening STDOUT, STDERR with the $SAVEOUT, $SAVEERR. The three-argument open covers that:
open(STDOUT, '>&', $SAVEOUT) or die ... open(STDERR, '>&', $SAVEERR) or die ...
print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!
|
---|
In Section
Seekers of Perl Wisdom