Perl - ハッシュ(環境変数(%ENV))

初めてのPerl 第6版
Randal L. Schwartz,
Tom Phoenix, brian d foy 共著
近藤嘉雪翻訳

開発環境

OS X Lion - Apple(OS)
TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
Script言語:Perl

『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤嘉雪訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2) の5章(ハッシュ)、6.6(練習問題)3を解いてみる。

その他参考書籍

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';

my $width = 0;
for(keys %ENV){
  $width = length $_ if length $_ > $width;
}
for(sort keys %ENV){
  printf "%-${width}s => %s\n", $_, $ENV{$_};
}

入出力結果(Terminal)

$ ./sample.pl
Apple_PubSub_Socket_Render => /tmp/launch-yqgace/Render
Apple_Ubiquity_Message     => /tmp/launch-yLl89O/Apple_Ubiquity_Message
COMMAND_MODE               => unix2003
DISPLAY                    => /tmp/launch-jumiaw/org.x:0
HOME                       => /Users/kamimura
LANG                       => ja_JP.UTF-8
LOGNAME                    => kamimura
OLDPWD                     => /Users/kamimura/documents/python
PATH                       => /Users/kamimura/pear/bin/:/opt/local/bin:/opt/local/sbin:/usr/local/mysql/bin/:/Library/Frameworks/Python.framework/Versions/3.2/bin:/Library/Frameworks/Python.framework/Versions/Current/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin:/usr/local/MacGPG2/bin
PWD                        => /Users/kamimura/documents/perl
SECURITYSESSIONID          => 186a5
SHELL                      => /bin/bash
SHLVL                      => 1
SSH_AUTH_SOCK              => /tmp/launch-az54kP/Listeners
TERM                       => xterm-256color
TERM_PROGRAM               => Apple_Terminal
TERM_PROGRAM_VERSION       => 303.2
TERM_SESSION_ID            => 3B66149E-646D-4A4E-AEB8-82078AD5146E
TMPDIR                     => /var/folders/1v/dvc2tljs2_z3zqn56g_29rl00000gn/T/
USER                       => kamimura
_                          => ./sample.pl
__CF_USER_TEXT_ENCODING    => 0x1F5:0:0
$

pythonの場合。

sample.py

コード(TextWrangler)

#!/usr/bin/env python3.3
#-*- coding:utf-8 -*-

import os

width = 0
for key in os.environ.keys():
    if len(key) > width: width = len(key)

for key, value in os.environ.items():
    print(("{0:" + str(width) + "} => {1}").format(key, value))

入出力結果(Terminal)

 ./sample.py
Apple_PubSub_Socket_Render => /tmp/launch-yqgace/Render
HOME                       => /Users/kamimura
SHLVL                      => 1
TERM_SESSION_ID            => 3B66149E-646D-4A4E-AEB8-82078AD5146E
SHELL                      => /bin/bash
OLDPWD                     => /Users/kamimura/documents/python
SSH_AUTH_SOCK              => /tmp/launch-az54kP/Listeners
Apple_Ubiquity_Message     => /tmp/launch-yLl89O/Apple_Ubiquity_Message
__CF_USER_TEXT_ENCODING    => 0x1F5:0:0
DISPLAY                    => /tmp/launch-jumiaw/org.x:0
_                          => ./sample.py
USER                       => kamimura
SECURITYSESSIONID          => 186a5
TMPDIR                     => /var/folders/1v/dvc2tljs2_z3zqn56g_29rl00000gn/T/
TERM_PROGRAM               => Apple_Terminal
LANG                       => ja_JP.UTF-8
TERM                       => xterm-256color
PATH                       => /Users/kamimura/pear/bin/:/opt/local/bin:/opt/local/sbin:/usr/local/mysql/bin/:/Library/Frameworks/Python.framework/Versions/3.2/bin:/Library/Frameworks/Python.framework/Versions/Current/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin:/usr/local/MacGPG2/bin
COMMAND_MODE               => unix2003
TERM_PROGRAM_VERSION       => 303.2
__PYVENV_LAUNCHER__        => /opt/local/bin/python3.3
LOGNAME                    => kamimura
PWD                        => /Users/kamimura/documents/perl
$

Kamimura's blog

2012年11月30日金曜日

Perl - ハッシュ(環境変数(%ENV))

0 コメント:

コメントを投稿