[perl] 配列

配列処理のいろいろ

シンプル

my $ret = [];
push @$ret, 'メッセージが入力されていません。' if !$CGI->get('Detail');

いろいろ

my $result = [];
while(my $data = $sth->fetchHash) {
push @$result, { %$data };
}




my $result = [];
while (my $data = $sth->fetchArray) {
push @$result, [ @$data ];
}




$data = $data ? [@$data] : undef;




push @urls, [$url, $save];



push @{$this->{DATA}}, "100,100,,トップ";




foreach my $r (@list){
foreach my $k (keys %{$r}){
print "$k:$r->{$k}<br>\n";
}
}

配列かどうかを調べる

if (ref($data) eq ‘ARRAY’) {
# 配列
}

参考文献

Perl:配列かどうか調べる < ホームページ作成・WEB制作・CMSカスタマイズ・ツール作成ならtiny-p :
http://blog.tiny-p.com/?p=29