|
==[[Perl]]==
[[Category:Perl]]
use File::Spec::Functions qw(catfile rootdir);
#!/usr/bin/perl
# here
sub isFileExists($) {
my ($filename) = @_;
return -e $filename;
# root dir
}
print -e $FileSeperator.catfile rootdir, 'input.txt'; ▼ sub test($$) {
print -d catfile rootdir, 'docs';
my ($type, $filename) = @_;
print "The following " . $type . " called " . $filename .
(isFileExists($filename) ? " exists." : " not exists.");
}
my $FileSeperator = ($^O eq "MSWin32") ? "\\" : "/";
test("file", "input.txt");
test("file", $FileSeperator . "input.txt");
test("directory", "docs");
test("directory", $FileSeperator ."docs". $FileSeperator);
exit;
# Short version
my $FileSeperator = ($^O eq "MSWin32") ? "\\" : "/";
▲ print -e $FileSeperator.'input.txt';
print -e $FileSeperator.'docs'.$FileSeperator;
==[[Pop11]]==
| 