プログラミング学習の記録 609.2 15章(スマートマッチとgiven-when)の練習問題3 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• 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/perl
use 5.010;
use strict;
use warnings;

for(@ARGV){
  say "\nProcessing $_";
  when(!-e){say "存在しない";}
  when(-r){say "読み出し可能";continue}
  when(-w){say "書き込み可能";continue}
  when(-x){say "実行可能";continue}
  }

入出力結果(Ternimal)

$ ./my_program sample_1 sample_2 sample_3 sample_4 sample_5 Processing sample_1 読み出し可能 Processing sample_2 読み出し可能 書き込み可能 Processing sample_3 読み出し可能 実行可能 Processing sample_4 読み出し可能 書き込み可能 実行可能 Processing sample_5 存在しない

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。