2010-06-23 while/ハッシュ配列を走査 Perl while ( my ($key, $value) = each(% { $user1->{labels} }) ) { $buffer->{ "form_label_" . $key} = $value ; }