Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Get out of the loop

by bl0rf (Pilgrim)
on Sep 08, 2003 at 01:20 UTC ( [id://289651]=poem: print w/replies, xml ) Need Help??

foreach $one ( @us ) { my $journey; while( defined( $one ) ) { open( LIFE, "< $one" ); @choice = stat(LIFE); $truth = $choice[7]; # will vary from person to person seek( FP, $truth, 1 ) || undef( $one ) and next; $journey = "has just begun"; undef( $one ) and @us = split(//,<LIFE>); } print "$one is gone\n" unless $journey =~ /begun/; }
Unwind

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://289651]
Approved by jeffa
Front-paged by jeffa
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2024-04-14 14:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found