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)