Perl - ファイルテスト(ファイルテスト演算子の積み重ね)

開発環境

• 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(練習問題)3を解いてみる。

3.

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

コード(TextWrangler)

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

die "コマンドライン引数をしてしてください。" unless @ARGV;
for(@ARGV){
  print "$_\n" if -o -w -r ;
}

入出力結果(Terminal)

$ ./perl_program ../perl/* ../python/* ../y/*y
../perl/perl_kamimura_blog
../perl/perl_kamimura_blog.bak
../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
../perl/sample
../perl/sample.bak
../perl/sample_text.out
../perl/sample_text.out.bak
../perl/test
../perl/test.bak
../python/c_program
../python/c_program.c
../python/c_program.dSYM
../python/myfile.txt
../python/python_kamimura_blog
../python/python_program.py
../python/python_program.pyc
../python/python_program1.py
../python/sample.py
../python/sample.txt
../ruby/birth_day_helper
../ruby/ruby_kamimura_blog
../ruby/ruby_program.rb
$