2010-06-23から1日間の記事一覧
use strict; use warnings; use Data::Dumper; <---- ここ! %p={・・・}; print Dumper(\%p); #リファレンスを渡す!
while ( my ($key, $value) = each(% { $user1->{labels} }) ) { $buffer->{ "form_label_" . $key} = $value ; }
use strict; use warnings; use Data::Dumper; <---- ここ! %p={・・・}; print Dumper(\%p); #リファレンスを渡す!
while ( my ($key, $value) = each(% { $user1->{labels} }) ) { $buffer->{ "form_label_" . $key} = $value ; }