I have to ponder this for a while, and my time for perl is limited at the
moment. But for the time being I will like to go into more detail about
the filehandle stuff. I read CGI, and I understand the problem, because
returns a variable containing both name and filehandle. I would guess that
a check for reference should avoid this problem.
My assumption about the workings
of $fh='INPUT'; join '',<$fh>; are
based on perldoc:perlop, saying 'If the string
inside the angle brackets is a reference to a scalar variable (e.g., <$foo>), then that variable contains the name of the filehandle to input
from, or a reference to the same.'.
I understand the argument about the pipe and stuff, and I think a open..
"$fh" || open .. "<$fh" should do the trick here. I don't have IO::Scalar
here, I'll ponder that later.
You worry about a trying open and silently failing. Well, I tried it, and
the code simply returns the name if the open failed (and there is nothing
to split on) as the first element. That leaves room for a check.
Furthermore, the code returns a prepared string as well,
if reading as a filehandle fails. I quickly glanced at IO::Scalar, and I think the ref check should allow that as well.
I think the following code should work.
sub _text{
my $fh = shift;
unless (defined($fh)) {
$fh = \*STDIN;
}
if ( (! ref $fh) && ((open INPUT, "$fh") || open INPUT, "<$fh" ))
+{
$fh = join '', <INPUT>;
close INPUT;
}
no strict 'refs';
(join '', <$fh>) || $fh;
}
Bye,
Jeroen
I was dreaming of guitarnotes that would irritate an executive kind of guy (FZ) |