radhika wrote:
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;
open $fh, $txtfile or die "cannot open $txtfile: $!\n";
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
--
Just my 0.00000002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is available at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
