On Wed, 2006-14-06 at 15:59 +0400, Mazhar wrote:
> Hello,
>
> I am writing perl on windows installing Activestate Perl and the code is
> reading a text file and processing it,
>
> the code what i use is...
>
> ##################################
> use strict;
> use warnings;
>
> my $file_name="XXXXXXXX.txt";
>
> open(FILE,"$file_name") || die "Not been Accessed";
> while (<FILE>) {
> print $_ "\n";
print $_, "\n"; # print double-spaced
# See `perldoc -f print`
>
> }
>
> ################################################
>
> I get a wired output when i run the above code..
>
> *Useless use of a constant in void context at gathercheck.pl line 9.
> Can't use string ("2006/06/11 00:00:02 (7):(4480) t") as a symbol ref while
> "str
> ict refs" in use at gathercheck.pl line 11, <FILE> line 1.*
>
> Some lines in the imput file is like the below,
>
> 2006/06/11 00:00:02 (7):(4480) tc1a-pgw-1m, Waiting for another gather on
> REPORTER_GATHER_MUTEX_FOR_TC1A_PGW_1M
> 2006/06/11 00:00:02 (7):(5852) tc1a-pgw-1m, Waiting for another gather on
> REPORTER_GATHER_MUTEX_FOR_TC1A_PGW_1M
> 2006/06/11 00:00:02 (7):(4492) tc1a-pgw-1m, Waiting for another gather on
> REPORTER_GATHER_MUTEX_FOR_TC1A_PGW_1M
>
> Please help me out on the above as i am not able to understand the error
> output..
--
__END__
Just my 0.00000002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is 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>
