On Thursday, June 6, 2002, at 04:35 , Jenda Krynicky wrote:
[..]
>
> P.S.: It's not just the *input why I said it was a Perl4 code. It was
> also the & and besides the readparse() is part of the old cgi-lib.pl
> library.
ah, I see, sorta like when they had that episode
of Star Track the Next Invention when Worf shows
up in the Troubles with Tribbles and has to explain
that there are some klingOn's we do not talk about....
use FileHandle - that was what I was thinking about...
The only problem I have had is swapping STDOUT when
I really want to play that gag...
sub foo {
my ($fh, $msg) = @_;
print $fh $msg ;
}
# this form fails...
#my $stdOut = FileHandle::new_from_fd(fileno(STDOUT), "w");
my $stdOut = new_from_fd FileHandle fileno(STDOUT), 'w';
# this from also works...
#my $stdOut = FileHandle::new_from_fd FileHandle fileno(STDOUT), "w" ;
if( defined $stdOut ) {
foo($stdOut, "We got you StdOut\n";
}
I really thought the first was the wave - but it will not work - in
part I guess because It does not 'see its own selfness'???
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
