Hi,
Can someone tell me what is going on in this peice of code?
Especially, line 409.
--code start--
405 my $fh;
406 my $txtfile = $file->fileName();
407 open $fh, $txtfile;
408 my $plain_text = '';
409 $plain_text .= $_ foreach (<$fh>);
close $fh;
--code end--
I keep getting this error:
readline() on closed filehandle $fh at
/home/ars/sys/libperl/site/ARS/REPORTS/AggregateFills.pm line 409.
Thanks!
--Rs
--
It is all a matter of perspective. You choose your view by choosing where
to stand.
Larry Wall
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
