Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: perl can find the file but can not open the file

by graff (Chancellor)
on Mar 09, 2013 at 19:42 UTC ( #1022618=note: print w/replies, xml ) Need Help??

in reply to perl can find the file but can not open the file

You're using quotes where you don't need to, and as indicated above, the single-quotes in the open statement are not only unnecessary, but cause the "file not found" error. Try it like this:
die "$file not found\n" unless ( -e $file ); open( FH0, $file ) or die "Unable to open $file: $!\n"; ...
In that version, I took advantage of the fact that "open" assumes "for reading" as a default; if the file name returns "true" with '-e', then it exists. But there might still be issues with being able to read it. If '-r' returns true for the file, then it's virtually certain that "open" for reading will succeed.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1022618]
[Corion]: Good morning Discipulus!

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2018-06-19 07:12 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (111 votes). Check out past polls.