Perl - ファイルテスト(読み出し(-r)、書き込み(-r)、実行(-x)、存在(-e))

初めてのPerl 第6版
Randal L. Schwartz,
Tom Phoenix, brian d foy 共著
近藤 嘉雪 翻訳

開発環境

• OS X Lion - Apple(OS)
• BBEdit(Text Editor)
• プログラミング言語:Perl

『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2)の12章(ファイルテスト)、12.5(練習問題)1を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

1.

コード(BBEdit)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

sub file_test {
    my $file = shift;
    return "does not exists\n" unless -e $file;
    my $result = "";
    $result .= "    readable\n" if -r $file;
    $result .= "    writable\n" if -w _;
    $result .= "    executable\n" if -x _;
    return $result;
}
for  (@ARGV) {
    print "$_\n";
    print file_test $_;
}

入出力結果(Terminal)

$ echo "Hello, World" > some_file
$ chmod 0 some_file
$ ./sample.pl some_file
some_file
$ ./sample.pl sample*
sample
    readable
    writable
    executable
sample.pl
    readable
    writable
    executable
sample.pl.bak
    readable
    writable
    executable
sample.py
    readable
    writable
    executable
sample_folder
    readable
    writable
    executable
sample_text
    readable
$