Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^5: "open" Best Practices

by hippo (Bishop)
on Jul 13, 2019 at 10:25 UTC ( [id://11102786]=note: print w/replies, xml ) Need Help??


in reply to Re^4: "open" Best Practices
in thread "open" Best Practices

What do you think about if( open($fh, '<', $foo) || open($fh, '<', $bar)

Dogfood time? ;-)

for my $infile ($foo, $bar) { last if open ($fh, '<', $infile); warn "Cannot open '$infile' for reading: $!"; } unless (eof $fh) { ... } else { warn "None of the files could be opened. What a shame."; }

I take your point though and there it's arguable whether on not it's control flow. I would not object to either || or or in such a situation.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2024-03-29 13:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found