09/03/02 14:11:16
>>378
Perlで
my %request = ('hoge'=>1, 'fuga'=>2, 'piyo'=>3);
my %a = (); my @keys = ('hoge', 'fuga');
@a{@keys} = @request{@keys};
ググってサンプルを見ながら適当に。なんかおかしいorもっと簡潔に書けるかも。
09/03/02 14:11:16
>>378
Perlで
my %request = ('hoge'=>1, 'fuga'=>2, 'piyo'=>3);
my %a = (); my @keys = ('hoge', 'fuga');
@a{@keys} = @request{@keys};
ググってサンプルを見ながら適当に。なんかおかしいorもっと簡潔に書けるかも。