|
Simple Sand Samples |
Perl > ファイルやディレクトリの存在を調べる
exists.pl
if (-e "hoge.txt"){
print "Found.\n";
}else{
print "Not Found.\n";
}
$ perl exists.pl
Not Found.
$ touch hoge.txt
$ perl exists.pl
Found.
$
Not Found.
$ touch hoge.txt
$ perl exists.pl
Found.
$
* 確認環境 Debian Linux(Wheezy)