開発環境
- 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.
コード(TextWrangler)
#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
for(@ARGV){
say $_;
given($_){
when(!(-e)){say "は存在しない";}
when(-r){say "読み出し可能";continue;}
when(-w){say "書き込み可能";continue;}
when(-x){say "実行可能";}
}
}
入出力結果(Terminal)
$ ./sample.pl * barney 読み出し可能 betty 読み出し可能 coconet.dat 読み出し可能 書き込み可能 date.txt 読み出し可能 書き込み可能 fred 読み出し可能 gilligan.info 読み出し可能 書き込み可能 ginger.info 読み出し可能 書き込み可能 link_test 読み出し可能 書き込み可能 log_file.txt 読み出し可能 書き込み可能 lovey.info 読み出し可能 書き込み可能 ls.err 読み出し可能 書き込み可能 ls.out 読み出し可能 書き込み可能 maryann.info 読み出し可能 書き込み可能 monkeyman.info 読み出し可能 書き込み可能 numbers 読み出し可能 oogaboogoo.pm 読み出し可能 書き込み可能 実行可能 perl_kamimura_blog 読み出し可能 書き込み可能 perl_program.bak.bak 読み出し可能 書き込み可能 実行可能 perl_program.pl 読み出し可能 書き込み可能 実行可能 perl_program1 読み出し可能 書き込み可能 実行可能 perl_program1.bak 読み出し可能 書き込み可能 実行可能 professor.info 読み出し可能 書き込み可能 sample 読み出し可能 書き込み可能 実行可能 sample.pl 読み出し可能 書き込み可能 実行可能 sample.pl.bak 読み出し可能 書き込み可能 実行可能 sample_folder 読み出し可能 書き込み可能 実行可能 sample_text.bak 読み出し可能 sample_text.out 読み出し可能 書き込み可能 sample_text.out.bak 読み出し可能 書き込み可能 skipper.info 読み出し可能 書き込み可能 some_file sortable_hash 読み出し可能 test 読み出し可能 書き込み可能 test.bak 読み出し可能 書き込み可能 test.out 読み出し可能 書き込み可能 test_folder 読み出し可能 書き込み可能 実行可能 test_link 読み出し可能 書き込み可能 test_new 読み出し可能 書き込み可能 thurston.info 読み出し可能 書き込み可能 tmp 読み出し可能 書き込み可能 tmp.pl 読み出し可能 書き込み可能 実行可能 tmp1 読み出し可能 tmp_link 読み出し可能 書き込み可能 実行可能 total_bytes.dat 読み出し可能 書き込み可能 $ ./sample.pl abcde abcde は存在しない $
0 コメント:
コメントを投稿