[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] UNIX Perl Driving Me Mad



Sorry to post to this list--I forgot the "any Perl" list address. I am
having a problem with a script on Solaris 7 (Perl 5.005_04). All of the file
tests (-e, -f, -r etc) on a certain file in a certain directory return
false, but I can open and read the file using open(). Has anyone come across
this? I have checked the permissions, and even granted all permissions and
no dice. Code samples follow.

# This command works--i.e. doesn't die
open TC, "timecard/$tc" or die( "Unable to open $tc: $!" );

# This command fails--i.e. doesn't die
die "I CAN read timecard/$tc!") if( -r "timecard/$tc" );

# This fails--i.e. dies when it shouldn't because file exists.
die "No such file timecard/$tc???") if( ! -e "timecard/$tc" );


-K

"To argue with a man who has renounced his reason is like giving medicine to
the dead."
    - Thomas Paine


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org