Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

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?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2015-11-25 02:36 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (668 votes), past polls