 ファイルの有無を確認する
ファイルの有無を検査するサンプルになります。 Perlではファイル演算子と呼ばれるものが存在していますので、それらを使用することでファイルの有無や、そのファイルがどのような状態であるのかを容易に確認する事が出来ます。
if ( -e "sample.txt" ) {
print "sample.txt は存在します。" ;
}else {
print "sample.txt 存在しません。" ;
}
その他のファイル検査演算子は以下の通りです。
| 記号
| 意味
|
| -r |
読み込み可能であれば |
| -w |
書き込み可能であれば |
| -x |
実行可能であれば |
| -o |
自分のものであれば |
| -R |
実uid/gidで読み込み可能であれば |
| -W |
実uid/gidで書き込み可能であれば |
| -X |
実uid/gidで実行可能であれば |
| -O |
実uidのものであれば |
| -e |
ファイルが存在すれば |
| -z |
ファイルサイズが0であれば |
| -s |
サイズが0でなければ |
| -f |
通常ファイルであれば |
| -d |
ディレクトリであれば |
| -l |
シンボリックリンクであれば |
| -p |
名前付きパイプであれば |
| -S |
ソケットであれば |
| -b |
ブロック型スペシャルファイルであれば |
| -c |
キャラクタ型スペシャルファイルであれば |
| -u |
setuidビットが立っていれば |
| -g |
setgidビットが立っていれば |
| -k |
stickyビットが立っていれば |
| -t |
ファイルハンドルが tty としてオープンされていれば |
| -T |
ファイルがテキストファイルであれば |
| -B |
ファイルがバイナリファイルであれば |
| -M |
perl起動時における、ファイルの更新時刻からの日数 |
| -A |
perl起動時における、ファイルの参照時刻からの日数 |
| -C |
perl起動時における、ファイルの作成時刻からの日数 |
|
|
