Perl - スマートマッチとgiven-when(for-when)

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、15章(スマートマッチとgiven-when)の15.6(練習問題)3.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

15.6(練習問題)3.

コード(BBEdit, Emacs)

sample3.pl

#!/usr/bin/env perl
# use diagnostics;
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

for (@ARGV) {
    print "$_: ";
    when (not -e $_) {say '存在しません。';}
    when (-r _) {print '読み出し可能 '; continue;}
    when (-w _) {print '書き込み可能 '; continue;}
    when (-x _) {print '実行可能';continue;}
    print "\n";
}

入出力結果(Terminal)

$ mkdir dir
$ touch temp.txt
$ chmod 0 temp.txt 
$ ./sample3.pl temp.txt dir sample3.pl abcde
temp.txt: 存在しません。
dir: 存在しません。
sample3.pl: 存在しません。
abcde: 
$ ./sample3.pl temp.txt dir sample abcde
temp.txt: 
dir: 読み出し可能 書き込み可能 実行可能
sample: 存在しません。
abcde: 存在しません。
$ ./sample3.pl temp.txt dir sample3.pl abcde
temp.txt: 
dir: 読み出し可能 書き込み可能 実行可能
sample3.pl: 読み出し可能 書き込み可能 実行可能
abcde: 存在しません。
$ ./sample3.pl *
dir: 読み出し可能 書き込み可能 実行可能
fizz_buzz.pl: 読み出し可能 書き込み可能 実行可能
sample1.pl: 読み出し可能 書き込み可能 実行可能
sample1.pl~: 読み出し可能 書き込み可能 実行可能
sample2.pl~: 読み出し可能 書き込み可能 
sample3.pl: 読み出し可能 書き込み可能 実行可能
sample3.pl~: 読み出し可能 書き込み可能 
temp.txt: 
$