PR

[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

コメント

タイトルとURLをコピーしました