Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Excalibor's scratchpad

by Excalibor (Pilgrim)
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?
[1nickt]: Yaerox probably best to whip up an SSCCE demonstrating the failure in what you have now and post to SoPW as a question.
[Corion]: Yaerox: That's a somewhat hard problem. Encode solves the conversion part, but for guessing what encoding a file is in, that's the hard part
[Corion]: Yaerox: There is Encode::Guess, but that needs a limited set of inputs, and it also cannot handle multiple single-byte encodings
[Corion]: If you have a BOM, that's a really easy way to recognize UTF-8. Otherwise, you can try to decode a file from UTF-8, and if that works OK and doesn't crash, most likely the file was valid UTF-8

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (10)
As of 2017-03-28 13:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (331 votes). Check out past polls.