2012年7月3日火曜日

開発環境

『初めての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 コメント:

コメントを投稿