Programming Perl - さまざまな制御構造(defined-or演算子「//」と環境変数)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (いずれはこのフル機能版のBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の10章(さまざまな制御構造),　10.11(練習問題)、3を解いてみる。

3.

偽の値の新しい環境変数「$ENV{UNDFINED} = undef;$ENV{ZERO} = 0;$ENV{EMPTY} = "";」をセット。

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; $ENV{UNDEFINED} = undef; $ENV{ZERO} = 0; $ENV{EMPTY} = ""; my $cols = 0; for(keys %ENV){ $cols = length ($_) + 1 if length $_ > $cols; } for (sort keys %ENV){ printf "%-${cols}s %s\n", $_, $ENV{$_} // "(undefined value)"; }

入出力結果(Terminal)

$ ./perl_program Apple_PubSub_Socket_Render /tmp/launch-CGP0IR/Render COMMAND_MODE unix2003 DISPLAY /tmp/launch-cZL8B5/org.x:0 EMPTY HOME /Users/kamimura LANG en_US.UTF-8 LOGNAME kamimura OLDPWD /Users/kamimura PATH /Users/kamimura/pear/bin/:/opt/local/bin:/opt/local/sbin:/usr/local/mysql/bin/:/Library/Frameworks/Python.framework/Versions/2.6/bin:/Library/Frameworks/Python.framework/Versions/Current/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin PWD /Users/kamimura/documents SECURITYSESSIONID 186a5 SHELL /bin/bash SHLVL 1 SSH_AUTH_SOCK /tmp/launch-zKiksv/Listeners TERM xterm-256color TERM_PROGRAM Apple_Terminal TERM_PROGRAM_VERSION 299 TERM_SESSION_ID 97D6B799-CE9A-406B-A780-070B6CD8EB56 TMPDIR /var/folders/1v/dvc2tljs2_z3zqn56g_29rl00000gn/T/ UNDEFINED (undefined value) USER kamimura ZERO 0 _ ./perl_program __CF_USER_TEXT_ENCODING 0x1F5:0:0 $

「undef」は偽になってちゃんと「(undefined value)」って表示された。のに、「0」と「""」が偽にならず(?)にdefined-or演算子に引っかからずのそのまま表示されてる。。なんでだろう？線で消した部分がdefined-or演算子の重要な部分てことを忘れてた。偽の値「0,""」でも「(undefined value)」とデフォルト値にならなずに定義された値で実行を終えるところがいいところ。同じことを論理OR演算子「||」でやろうとすると、「0,""」がデフォルト値に置き換えられないようにさらに三項演算子「?:」で

$ENV{$_} = defined $ENV{$_}:"(undefined valued)";

とする必要がでてくる。$ENV{$_}が2回も出てきてdefined-or演算子を使うやり方より長くなるし手間もかかる。