perlでプロファイルもどき

#外部ファイルをプロパティファイルにみたててみた
print "--プロパティファイルもどき^---\n";
open(IN,"test_properties");
@pro_list = <IN>;
close(IN);

#連想配列に値を設定
foreach $v (@pro_list) {
  @tmp = split(/=/,$v);
  @tmp[1] =~ s/\n//;
  $pro_hash{"$tmp[0]"} = $tmp[1];
}

#中身チェック
print '$pro_hash["aaa.a01"]='.$pro_hash{"aaa.a01"}."\n";
print '$pro_hash["aaa.a02"]='.$pro_hash{"aaa.a02"}."\n";
while ( ($key, $val) = each (%pro_hash) ) {
  if ($key eq "") {
    next;
  }
  print "キー $key 値 $val\n";
}
print "\n";

test.propertiesファイルの中身

aaa.a01=D
aaa.a02=T