Perl - ファイルテスト(複数の属性をテストする方法)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (いずれはこのフル機能版のBBEditを入手したい！)
• Script言語:Perl

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

3.

ファイルテスト演算子を積み重ねることができるのがPerl 5.10より新しいバージョンのいいところ！

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; die "フィアイル名のリストを指定してください！" unless @ARGV; print "所有していて、読み出し書き込みがともに可能なファイル名一覧\n"; for(@ARGV){ print "$_\n" if -o -r -w $_; }

入出力結果(Terminal)

$ ls -l total 8 -rwxr-xr-x@ 1 kamimura staff 271 Dec 28 13:39 perl_program -rw-r--r--@ 1 kamimura staff 0 Dec 28 13:39 sample1 -r--r--r--@ 1 kamimura staff 0 Dec 28 13:39 sample2 -rw-r--r--@ 1 kamimura staff 0 Dec 28 13:39 sample3 -r--r--r--@ 1 kamimura staff 0 Dec 28 13:39 sample4 $ ./perl_program sample* 所有していて、読み出し書き込みがともに可能なファイル名一覧 sample1 sample3 $