use IO qw(File Handle);
my $io = do
my $tmp = IO::Handle->new;
die "open failed: $!" unless $tmp->fdopen(fileno(STDOUT),"w");
my $tmp = IO::File->new('tmp.out', 'w');
I'm confused about this line:
What are you shifting off? Or is it just a general "put a condition here" line? Also, how does this benefit over:
if(my $filename = shift)
open $fh, '>', $filename or die "Can't open $filename: $!";
open $fh, '>&', STDOUT;
print $fh "Where do you want to go today?\n";
By rote learning.
Via Genetic memory.
It's provided by my firmware.
I just remember them.
Thirty days hath September
My computer gets it right, usually.
I just ask someone else.
Someone punches me on the first of the month.
Results (202 votes),