初めてのPerl 第6章 練習問題3

#!/usr/bin/perl

use strict;
use warnings;

foreach my $key(sort(keys %ENV)){
  print "$key => $ENV{$key}  \n";
}

=pod
while (my($key, $value)=each %ENV){
  printf "%2s => %2s\n", $key, $value;
}
=cut

BLOCKSIZE => K
EDITOR => vi
ENV => /home/vagrant/.shrc
HOME => /home/vagrant
LANG => ja_JP.eucJP
LC_ALL => ja_JP.eucJP
LC_MESSAGES => ja_JP.eucJP
LOGNAME => vagrant
MAIL => /var/mail/vagrant
MANPATH => /usr/share/man:/usr/local/man:/usr/share/openssl/man:/usr/local/lib/perl5/5.16/man:/usr/local/lib/perl5/5.16/perl/man
MM_CHARSET => ja_JP.eucJP
OLDPWD => /home/vagrant
PAGER => more
PATH => /home/vagrant/perl5/perlbrew/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin:/home/vagrant/bin:/sbin:/usr/bin/perl:usr/sbin/:.:
PERLBREW_BASHRC_VERSION => 0.67
PERLBREW_HOME => /home/vagrant/.perlbrew
PERLBREW_ROOT => /home/vagrant/perl5/perlbrew
PWD => /home/vagrant/perltest/hash/practice
SHELL => /usr/local/bin/bash
SHLVL => 2
SSH_CLIENT => 10.0.2.2 49979 22
SSH_CONNECTION => 10.0.2.2 49979 10.0.2.15 22
SSH_TTY => /dev/pts/0
STY => 928.pts-0.vagrant-freebsd-92
TERM => screen
TERMCAP => SC|screen|VT 100/ANSI X3.64 virtual terminal:\
        :DO=\E[%dB:LE=\E[%dD:RI=\E[%dC:UP=\E[%dA:bs:bt=\E[Z:\
        :cd=\E[J:ce=\E[K:cl=\E[H\E[J:cm=\E[%i%d;%dH:ct=\E[3g:\
        :do=^J:nd=\E[C:pt:rc=\E8:rs=\Ec:sc=\E7:st=\EH:up=\EM:\
        :le=^H:bl=^G:cr=^M:it#8:ho=\E[H:nw=\EE:ta=^I:is=\E)0:\
        :li#60:co#120:am:xn:xv:LP:sr=\EM:al=\E[L:AL=\E[%dL:\
        :cs=\E[%i%d;%dr:dl=\E[M:DL=\E[%dM:dc=\E[P:DC=\E[%dP:\
        :im=\E[4h:ei=\E[4l:mi:IC=\E[%d@:ks=\E[?1h\E=:\
        :ke=\E[?1l\E>:vi=\E[?25l:ve=\E[34h\E[?25h:vs=\E[34l:\
        :ti=\E[?1049h:te=\E[?1049l:us=\E[4m:ue=\E[24m:so=\E[3m:\
        :se=\E[23m:md=\E[1m:mr=\E[7m:me=\E[m:ms:\
        :Co#8:pa#64:AF=\E[3%dm:AB=\E[4%dm:op=\E[39;49m:AX:G0:\
        :as=\E(0:ae=\E(B:\
        :ac=\140\140aaffggjjkkllmmnnooppqqrrssttuuvvwwxxyyzz{{||}}~~..--++,,hhII00:\
        :k0=\E[10~:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:k5=\E[15~:\
        :k6=\E[17~:k7=\E[18~:k8=\E[19~:k9=\E[20~:k;=\E[21~:\
        :F1=\E[23~:F2=\E[24~:kb=^H:K2=\EOE:kB=\E[Z:kh=\E[1~:\
        :@1=\E[1~:kH=\E[4~:@7=\E[4~:kN=\E[6~:kP=\E[5~:kI=\E[2~:\
        :kD=\E[3~:ku=\EOA:kd=\EOB:kr=\EOC:kl=\EOD:km:
USER => vagrant
WINDOW => 2
_ => ./practice3.pl