2009-07-08から1日間の記事一覧
sub list_process{ my ($name,$list) = @_; if(@$list > 0){ die "no data\n"; }else{ foreach(@{$list || []}){ # 適当な処理を行う } } } my @list = (); # # (このあたりの処理で@listに適当にハッシュを詰めこむ) # my $name = "$list[0]{name}"; ## (1)…
sub list_process{ my ($name,$list) = @_; if(@$list > 0){ die "no data\n"; }else{ foreach(@{$list || []}){ # 適当な処理を行う } } } my @list = (); # # (このあたりの処理で@listに適当にハッシュを詰めこむ) # my $name = "$list[0]{name}"; ## (1)…