Check for Existing File in Perl

To see if a file already exists:

if (-e "../cities.txt") {
print "File exists!";
}
else {
print "File does not exist.";
}


-We use -e to check for the file.
-We enclose the path to the file in quotation marks. In this instance, one directory up is where we want to look for our file cities.txt so we use ../
-We print the results of our checking.



Copy and Paste Perl Code:

#!/usr/bin/perl

print "Content-type:text/html\n\n";

if (-e "../cities.txt") {
print "File exists!";
}
else {
print "File does not exist.";
}

exit;


Resources:
To See if a Directory Exists in Perl
If, Elsif, and Else in Perl


Click HERE to comment or discuss at iLoveTheCode GOOGLE Group

Previous Article: Getting What is Matched in Perl

Next Article: To See if a Directory Exists in Perl

CSS Mastery Andy Budd, Simon C... New $23.09	Struts 2 in Action Don Brown, Chad Da... New $29.69	CSS Eric Meyer New $29.69
Dreamweaver CS3 David McFarland New $29.69	Head First HTML with CSS & XHTML Eric Freeman, Elis... New $26.39	Build Your Own Website The Right Way... Ian Lloyd New $19.77
HTML, XHTML, and CSS, Sixth Edition ... Elizabeth Castro New $23.09	HTML, XHTML, and CSS All-in-One Desk... Andy Harris, Chris... New $23.09	Beginning Joomla! Dan Rahmel New $29.69

Privacy Information