Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Excalibor's scratchpad

by Excalibor (Monk)
on Jun 05, 2004 at 12:38 UTC ( #361562=scratchpad: print w/ replies, xml ) Need Help??

for Corion

use threads; use Log::log4perl qw(get_logger); use File::Tail; use My::Object; my $tail = File::Tail->new('file.log'); while( defined( my $line = $tail->read ) ) { next if $line =~ m/^#|^\s*$/; my $obj = My::Object->new($line); my $th = threads->create( foo, $obj ); my $rc = $th->join; $logger->warn("Problem") if $rc; next; } sub foo { (shift)->bar; } __END__ # taking the next; in the while doesn't work, either...
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (12)
As of 2014-09-17 16:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (91 votes), past polls