【Perl】環境変数の取得

Webエンジニアの雄大です。
環境変数を取得したい場合のPerlを書いてみました。

use strict;
use warnings;
my $key;

#get all environment data
foreach $key (keys %ENV) {
  print "$key ：$ENV{$key}\n";
}
#get hostname
print $ENV{"HOSTNAME"};

参考:
keys関数:http://www.perlplus.jp/func/hash/index1.html