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

開発環境

• 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) の6章(ハッシュ), 6.6(練習問題)、3を解いてみる。

 

3.

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

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;

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

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

入出力結果(Ternimal)

$ ./my_program Apple_PubSub_Socket_Render /tmp/launch-7yINuM/Render COMMAND_MODE unix2003 DISPLAY /tmp/launch-2jBfFv/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-22ROTP/Listeners TERM xterm-color TERM_PROGRAM Apple_Terminal TERM_PROGRAM_VERSION 273.1 TMPDIR /var/folders/1h/1hiq0pCCF8yDxuZAxEYsa++++TI/-Tmp-/ USER kamimura VERSIONER_PERL_PREFER_32_BIT no VERSIONER_PERL_VERSION 5.10.0 _ ./my_program __CF_USER_TEXT_ENCODING 0x1F5:0:0

意図したとおりASCIIコード順にソートされ、さらに出力する際に2つのカラムが縦に揃うようにして表示できたので追加点！

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