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

Re: When <> fails

by pc88mxer (Vicar)
on Jul 29, 2008 at 19:32 UTC ( #700904=note: print w/ replies, xml ) Need Help??


in reply to When <> fails

The current file handle that <> is using is stored in ARGV, but my testing shows that perl has alrady closed ARGV when the while (<>) {...} loop terminates.

You might try checking $! to see if that gets set when the NFS server stops serving the file:

while (<>) { ... } # check $! which is probably from the last close
Update: ikegami pointed out that testing $! (as in if ($!) ... doesn't make sense here.

One issue is that $! is only set when there is an error. One way around this is to force a known error at the end of the loop so that you can tell if readline generated an error.

Update 2: One can assign to $!, so this should be able to detect if readline failed:

while (<>) { ... $! = undef; } if (defined($!)) { # $! contains error from last <c>close
} </c>


Comment on Re: When <> fails
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://700904]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (7)
As of 2015-07-05 20:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (67 votes), past polls