why does below fail?
----- where it's failing -----
open my $source, "<", "/tmp/server.log"
or die "Could NOT open /var/log/server.log: $!";
my $file = new IO::Handle;
while ($_ = $file->getline($source) ) {
----------------------------
Uncaught exception from user code:
usage: $io->getline() at ./watch_int1_2.pl line 126
at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/IO/Handle.pm line 411
IO::Handle::getline('IO::Handle=GLOB(0x9af8c5c)',
'GLOB(0x9b12380)') called at ./watch_int1_2.pl line 126
main::shove_it() called at ./watch_server.pl line 98
$io->getline
This works like <$io> described in "I/O Operators" in perlop
<http://search.cpan.org/perldoc?perlop#I/O_Operators> except that
it's more readable and can be safely called in a list context but
still returns just one line. If used as the conditional +within a
|while| or C-style |for| loop, however, you will need to +emulate
the functionality of <$io> with |defined($_ = $io->getline)|.
I was trying to speed up my program which has to go through huge server
log (500Meg+) and when I was going over w/
while ($source) {
}
I discovered(from Dprof) that it was using up too much CPU(it's on old
system) and wanted to use a IO module to get down to lower level to gain
some
speed but I am not too familiar w/ using modules.. can someone help on this?
thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
