unable to open existing file after trying to open a non-existing one

monk_of_gaia has asked for the wisdom of the Perl Monks concerning the following question:

1. I open an existing file. Result: OK
2. I try to open or test the existance of a non-existing file with "-e"
3. I open an existing file. Result: ERROR
I tried it with Perl v5.003_07 for Win32 Build 316, Perl v5.004_02 Win32 and 5.005_03 built for MSWin32-x86-object build 518. I have BMC Patrol on this Win2k machine, and these Perls comes with BMC Patrol. It is not possible at this moment to upgrade Perl on this machine.
The test program:

open TT1, "<test.out";
if ($! == 0) {
    print "1. [OK]\n";
    @x = <TT1>;
    close TT1;
} else {
    print "[ERROR]\n";
}

if (-e "tt1") {
    open TT2, "<tt1";
    if ($! == 0) {
        print "2. [OK]\n";
        close TT2;
    } else {
        print "2. [ERROR]\n";
    }
}

open TT1, "<test.out";
if ($! == 0) {
    print "3. [OK]\n";
    @x = <TT1>;
    close TT1;
} else {
    print "3. [ERROR]\n";
}
[download]

test.out is an existing file, tt1 is not. The output is:

1. [OK]
3. [ERROR]
[download]

If I comment out the middle part, the if (-e "tt1") { ... and just simply open & read & close the file twice, I get:

1. [OK]
2. [OK]
[download]

This is more, than annoying and more than weird. Could you please suggest any workarounds?

Comment on unable to open existing file after trying to open a non-existing one Select or Download Code

Replies are listed 'Best First'.
Re: unable to open existing file after trying to open a non-existing one by liz (Monsignor) on Sep 23, 2003 at 15:40 UTC
You're checking $! without checking whether the open() failed! From the documentation: This means that the value of $! is meaningful only immediately after a failure: `if (open(FH, $filename)) { # Here $! is meaningless.` [download] Liz	[reply] [d/l]
Re: Re: unable to open existing file after trying to open a non-existing one by monk_of_gaia (Initiate) on Sep 23, 2003 at 16:00 UTC
ok, thanks :)	[reply]
Re: unable to open existing file after trying to open a non-existing one by pzbagel (Chaplain) on Sep 23, 2003 at 15:48 UTC
Welcome from the shell scripting world. I know that $! has been your trusty friend for a long time, but Perl relies on return values. The $! serves to communicate error information about failures but it itself does not return true or false regarding successes or failures of specific system calls. If you want to check for success or failure, you should really capture the return value of the open. Although, in Perl, we rarely do that, instead you'd feed it right into an if-then-else statement: `open TT1, "<test.out" ? do { print "1. [OK]\n"; @x = <TT1>; close TT1; } : print "[ERROR]\n";` [download] Notice how we get the desired behavior. You can do the same for the other sections as well. HTH	[reply] [d/l]
Re: unable to open existing file after trying to open a non-existing one by asarih (Hermit) on Sep 23, 2003 at 15:42 UTC
For one thing, I think you're confusing Perl's open and C's open. Perl's open returns 1 if successful, whereas C's `open()` returns 0. Update: While the above statement is true, the OP is not confused. I'm the one who is confused about what OP's code was doing. Apologies.	[reply] [d/l]