開発環境
- 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) の15章(スマートマッチとgiven-when), 15.6(練習問題)3を解いてみる。
3.
やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))
コード(TextWrangler)
#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
for(@ARGV){
my $result = "";
when(!(-e $_)){$result .= "ファイルが存在しません";continue;}
when(-r _){$result .= "読み出し可能 ";continue;}
when(-w _){$result .= "書き込み可能 ";continue;}
when(-x _){$result .= "実行可能";continue;}
print "$_\n\t$result\n";
}
入出力結果(Terminal)
$ perl sample.pl * kamimura numbers 読み出し可能 perl_kamimura_blog 読み出し可能 書き込み可能 perl_program.bak.bak 読み出し可能 書き込み可能 実行可能 perl_program.pl 読み出し可能 書き込み可能 実行可能 perl_program1 読み出し可能 書き込み可能 実行可能 perl_program1.bak 読み出し可能 書き込み可能 実行可能 sample.bak 読み出し可能 書き込み可能 sample.pl 読み出し可能 書き込み可能 実行可能 sample_folder 読み出し可能 書き込み可能 実行可能 sample_text 読み出し可能 sample_text.bak 読み出し可能 sample_text.out 読み出し可能 書き込み可能 sample_text.out.bak 読み出し可能 書き込み可能 sortable_hash 読み出し可能 test 読み出し可能 書き込み可能 test.bak 読み出し可能 書き込み可能 test_folder 読み出し可能 書き込み可能 実行可能 test_link 読み出し可能 書き込み可能 test_new 読み出し可能 書き込み可能 kamimura ファイルが存在しません $
0 コメント:
コメントを投稿