file "exists" problems

Ottawa_IWOV

I am having a problem checking if a file exists in Teamsite, it does actually exist, but my code is saying it doesn't

$file = templatedata\testing\FR\data\final-test
$EN = $file;
$EN =~ s/FR/EN/;

if (-e $EN)
{
print "file exists";
}
else
{
print "file doesn't exist";
}

As you can tell, I am getting the "fiel doesn't exist" written to my log file, but I don't know why. Even when I build the full path (i.e. $area in from on $EN) it still doesn't find the file.

Am I missing something?

Thanks



Lucas Cochrane
lcochrane@dc.com

iwovGraduate

Try
if( -f $file){
....
}
where $file is the full (absolute) path to the file.
eg.: "Y:\default\main\br\WORKAREA\wa\file1.ext"
or "/iwmnt/default/main/br/WORKAREA/wa/file1.ext"

Also for reference here is the list of file type checks:
---------------------------------------------------------------
-r File is readable by effective uid/gid.
-w File is writable by effective uid/gid.
-x File is executable by effective uid/gid.
-o File is owned by effective uid.
-R File is readable by real uid/gid.
-W File is writable by real uid/gid.
-X File is executable by real uid/gid.
-O File is owned by real uid.
-e File exists.
-z File has zero size.
-s File has non-zero size (returns size).
-f File is a plain file.
-d File is a directory.
-l File is a symbolic link.
-p File is a named pipe (FIFO).
-S File is a socket.
-b File is a block special file.
-c File is a character special file.
-u File has setuid bit set.
-g File has setgid bit set.
-k File has sticky bit set.
-t Filehandle is opened to a tty.
-T File is a text file.
-B File is a binary file (opposite of -T).
-M Age of file in days when script started.
-A Same for access time.
-C Same for inode change time.
---------------------------------------------------------------

Edited by iwovGraduate on 01/30/03 08:54 AM (server time).