Checking to see if file exsists

[chanshaw]

I've looked around a bit already and from what I'm seeing, I'm doing it right but for whatever reason I'm not getting a true response even though the file does exist.

print "Enter file name: ";
my $fileName = <>;
my $editedFileName = '~/'.$fileName;
print "File set to: $editedFileName";
chomp($editedFileName);
if(-e $editedFileName){
    print "File exists! Would you like to load the file? \n";
}
else{
    print "File does not exist.\n";
}
 

[KevinADC]

You need to use the full path to the file or be in the directory where the file is stored. The '~' symbol has no meaning in perl in that context.

[chanshaw]

Hey thanks so much! With that information I was able to figure out a solution.

print "Enter file name: ";
my $editedFileName;
my $currentWorkingDirectory;
my $fileName = <>;
&setFileName($fileName);
&checkFileExistence($editedFileName);
 
sub setFileName
{
    $currentWorkingDirectory = getcwd;
    $editedFileName = $currentWorkingDirectory."/".$fileName;
    print "File set to: $editedFileName";
    chomp($editedFileName);
}
 
sub checkFileExistence
{
    if(-e $editedFileName)
    {
        print "File exists! Would you like to load the file? \n";
    }
    else
    {
        print "File does not exist.\n";
    }
}
 
 

[KevinADC]

Very good :)