There is a group of built-in Perl functions to do this sort of thing (checking the existence of files, whether they're readable/writeable/executable, whether they're directories, files or something else, etc). This group of functions is unusual in that their names all begin with a hyphen; usually hyphens are not permitted in function names.
if (-e "C:\\Data\\Logs") {
print "it exists!\n";
}
if (-d "C:\\Data\\Logs") {
print "it is a directory!\n";
}
if (-r "C:\\Data\\Logs") {
print "it is readable!\n";
}
if (-w "C:\\Data\\Logs") {
print "it is writeable!\n";
}
See the documentation for -X in perlfunc.
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
|