プログラミング学習の記録 591.2 10章(さまざまな制御構造)の練習問題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) の10章(さまざまな制御構造), 10.11(練習問題)、3を解いてみる。

 

3.

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

改造する前の、6章の問題3のプログラム(環境変数を表示するもの)

perl 5.10を使っている場合(defined-or演算子、//を使うバージョン)

コード(TextWrangler)

#!/usr/bin/perl

use 5.010;

use strict;
use warnings;

# このプログラムを実行したら全ての環境変数は
# 値を持っていたので値を持たない環境変数を追加
$ENV{UNDEFINED}=undef;

# 追加点を得るためにキーの長さの値の最大値を求める
my $max_length=0;
foreach (keys %ENV){
  if($max_length<length($_)){
    $max_length=length($_);
    }
}

# %ENVのすべてのキーとその値を表示
# 結果は2カラムでキーをソートしてASCIIコード順に表示
foreach (sort(keys %ENV)){
  # 改造した箇所
  $ENV{$_}=$ENV{$_} // "undefined value";
  printf "%-${max_length}s %s\n",$_,$ENV{$_};
}

入出力結果(Ternimal)

$ ./my_program Apple_PubSub_Socket_Render /tmp/launch-s7hDP9/Render COMMAND_MODE unix2003 DISPLAY /tmp/launch-tSj5PU/org.x:0 HOME /Users/kamimura LANG en_US.UTF-8 LOGNAME kamimura OLDPWD /Users/kamimura PATH /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 SHELL /bin/bash SHLVL 1 SSH_AUTH_SOCK /tmp/launch-uvpoTy/Listeners TERM xterm-color TERM_PROGRAM Apple_Terminal TERM_PROGRAM_VERSION 273.1 TMPDIR /var/folders/1h/1hiq0pCCF8yDxuZAxEYsa++++TI/-Tmp-/ UNDEFINED undefined value USER kamimura VERSIONER_PERL_PREFER_32_BIT no VERSIONER_PERL_VERSION 5.10.0 _ ./my_program __CF_USER_TEXT_ENCODING 0x1F5:0:0

perl 5.10を使っていなくて三項演算子、?:を使う場合。

コード(TextWrangler)

#!/usr/bin/perl

use 5.010;

use strict;
use warnings;

# このプログラムを実行したら全ての環境変数は
# 値を持っていたので値を持たない環境変数を追加
$ENV{UNDEFINED}=undef;

# 追加点を得るためにキーの長さの値の最大値を求める
my $max_length=0;
foreach (keys %ENV){
  if($max_length<length($_)){
    $max_length=length($_);
    }
}

# %ENVのすべてのキーとその値を表示
# 結果は2カラムでキーをソートしてASCIIコード順に表示
foreach (sort(keys %ENV)){
  # 改造した箇所
  $ENV{$_}=defined $ENV{$_}?
            $ENV{$_}:
            "undefined value";
  printf "%-${max_length}s %s\n",$_,$ENV{$_};
}

入出力結果(Terminal)

$ ./my_program Apple_PubSub_Socket_Render /tmp/launch-s7hDP9/Render COMMAND_MODE unix2003 DISPLAY /tmp/launch-tSj5PU/org.x:0 HOME /Users/kamimura LANG en_US.UTF-8 LOGNAME kamimura OLDPWD /Users/kamimura PATH /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 SHELL /bin/bash SHLVL 1 SSH_AUTH_SOCK /tmp/launch-uvpoTy/Listeners TERM xterm-color TERM_PROGRAM Apple_Terminal TERM_PROGRAM_VERSION 273.1 TMPDIR /var/folders/1h/1hiq0pCCF8yDxuZAxEYsa++++TI/-Tmp-/ UNDEFINED undefined value USER kamimura VERSIONER_PERL_PREFER_32_BIT no VERSIONER_PERL_VERSION 5.10.0 _ ./my_program __CF_USER_TEXT_ENCODING 0x1F5:0:0

上記の2つのプログラムとも、ちゃんと値を持っていない(undef)の環境変数UNDEFINEDはundefined valueという値に設定された。

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