To See if a Directory Exists in Perl

To see if a directory already exists in Perl:

if (-d "../citydata") {
print "There is a directory named citydata!";
}
else {
print "There is a no such directory.";
}


-We use -d to check for the directory.
-We enclose the path to the directory in quotation marks. In this instance, one directory up is where we want to look for our directory citydata, 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 (-d "../citydata") {
print "There is a directory named citydata!";
}
else {
print "There is a no such directory.";
}

exit;


Resources:
Check for Existing File in Perl
If, Elsif, and Else in Perl


Click HERE to comment or discuss at iLoveTheCode GOOGLE Group

Previous Article: Check for Existing File in Perl

Next Article: To Sort an Array in Perl

HTML Gary B. Shelly, Th... New $84.55	Creating Web Sites Matthew MacDonald New $19.77	HTML, XHTML, and CSS, Sixth Edition ... Elizabeth Castro New $23.09
Bulletproof Web Design Dan Cederholm New $23.99	jQuery in Action Bear Bibeault, Yeh... New $26.39	Learning Web Design Jennifer Niederst ... New $26.99
CSS Eric Meyer New $29.69	New Perspectives on HTML and XHTML 5... Partrick Carey New $67.45	CSS Mastery Andy Budd, Simon C... New $23.85

Privacy Information