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

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

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

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;

sub rwxe{
  my $file = shift;
  print "$file\n";
  if(!(-e $file)){
    print "存在しない\n";
    return;
  }
  print "読み出し可能\n" if -r $file;
  print "書き込み可能\n" if -w _;
  print "実行可能\n" if -x _;
}

for(@ARGV){
  rwxe $_;
}

入出力結果(Terminal)

$ ./perl_program ../*/*_program* kamimura
../c/c_program
読み出し可能
書き込み可能
実行可能
../c/c_program.c
読み出し可能
書き込み可能
../c/c_program.dSYM
読み出し可能
書き込み可能
実行可能
../perl/perl_program
読み出し可能
書き込み可能
実行可能
../perl/perl_program.bak
読み出し可能
書き込み可能
実行可能
../perl/perl_program.bak.bak
読み出し可能
書き込み可能
実行可能
../perl/perl_program.pl
読み出し可能
書き込み可能
実行可能
../perl/perl_program.pl.bak
読み出し可能
書き込み可能
実行可能
../perl/perl_program1
読み出し可能
書き込み可能
実行可能
../perl/perl_program1.bak
読み出し可能
書き込み可能
実行可能
../python/python_program.py
読み出し可能
書き込み可能
実行可能
../python/python_program.pyc
読み出し可能
書き込み可能
../python/python_program1.py
読み出し可能
書き込み可能
実行可能
../ruby/ruby_program.rb
読み出し可能
書き込み可能
実行可能
kamimura
存在しない
$