開発環境
- OS X Lion - Apple(OS)
- TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
- Script言語:Perl
『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2) の15章(スマートマッチとgiven-when)、15.6(練習問題)3を解いてみる。
その他参考書籍
3.
コード(TextWrangler)
sample.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.012;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
for(@ARGV){
print "$_: ";
when(! -e $_){print "存在しない\n";}
when(-r _){print "読み出し可能 ";continue;}
when(-w _){print "書き込み可能 ";continue;}
when(-x _){print "実行可能";continue;}
default {print "\n";}
}
入出力結果(Terminal)
$ ./sample.pl * abcde Oogaboogoo: 読み出し可能 書き込み可能 実行可能 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: 読み出し可能 perl_kamimura_blog: 読み出し可能 書き込み可能 perl_program.bak.bak: 読み出し可能 書き込み可能 実行可能 perl_program.pl: 読み出し可能 書き込み可能 実行可能 perl_program1: 読み出し可能 書き込み可能 実行可能 perl_program1.bak: 読み出し可能 書き込み可能 実行可能 professor.info: 読み出し可能 書き込み可能 result: 読み出し可能 書き込み可能 sample: 読み出し可能 書き込み可能 実行可能 sample.pl: 読み出し可能 書き込み可能 実行可能 sample.pl.bak: 読み出し可能 書き込み可能 実行可能 sample.pl.bak.bak: 読み出し可能 書き込み可能 実行可能 sample_folder: 読み出し可能 書き込み可能 実行可能 sample_text: 読み出し可能 sample_text.out: 読み出し可能 書き込み可能 sample_text.out.bak: 読み出し可能 書き込み可能 skipper.info: 読み出し可能 書き込み可能 some_folder: 読み出し可能 書き込み可能 実行可能 sortable_hash: 読み出し可能 standings.db: 読み出し可能 書き込み可能 test.bak: 読み出し可能 書き込み可能 test.out: 読み出し可能 書き込み可能 test.txt: 読み出し可能 書き込み可能 test_folder: 読み出し可能 書き込み可能 実行可能 test_link: 読み出し可能 書き込み可能 test_new: 存在しない thurston.info: 読み出し可能 書き込み可能 tmp_folder: 読み出し可能 書き込み可能 実行可能 total_bytes.dat: 読み出し可能 書き込み可能 abcde: 存在しない $
0 コメント:
コメントを投稿