2012-05-25から1日間の記事一覧
use 5.14.2; use Data::Dumper; my %hoge = (aaa => 1 , bbb => 2); my %fuga = (ccc => 3 , ddd => 4); my @hoge = ( map{"HOGE::$_"}keys %hoge , map{"FUGA::$_"}keys %fuga, ); say Dumper @hoge; $VAR1 = 'HOGE::bbb'; $VAR2 = 'HOGE::aaa'; $VAR3 = 'H…