プログラミング学習の記録 478.1 『初めての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(練習問題)、2を解いてみる。

3.

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

コード(TextWrangler)

#!/usr/bin/perl -w # この変数に1番目のカラムの幅を格納する $key_length=0; # 一番長いkeyの長さを上記の変数に格納 foreach (keys %ENV){ if($key_length<length($_)){ $key_length=length($_); } } # カラムの幅を設定して出力 foreach (sort keys %ENV){ # -は左寄せのため printf "%-${key_length}s %s\n",$_,$ENV{$_}; }

入出力結果(Ternimal)

Apple_PubSub_Socket_Render /tmp/launch-ikMSbP/Render COMMAND_MODE unix2003 DISPLAY /tmp/launch-MOGqsl/org.x:0 HOME /Users/kamimura LANG en_US.UTF-8 LOGNAME kamimura OLDPWD /Users/kamimura PATH /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-Qbz7Fy/Listeners TERM xterm-color TERM_PROGRAM Apple_Terminal TERM_PROGRAM_VERSION 273 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

出力する際に2つのカラムが縦に揃うようにできたので追加点！

Perlのお気に入りのデフォルト「$_」(制御変数)を少しずつ使い慣れてきた。けど、まだ「{}」を使う箇所をスムーズに記述できない状態。慣れてくれば問題なくなると期待しつつ次へ進む！

次の章はPerlを学習してみたいと思ったきっかけ(15)の正規表現の世界なので楽しみ！！！