> > perlで配列@hogeがあったとして要素数を得るにはどうすればいいんだろうか
> my $kaunto = 0;
> my $hoge_ref = \@hoge;
> foreach my $item ( @{$hoge_ref} )
> {
>   my $kaunto_back = $kaunto;
>   $kaunto = $kaunto_back + 1;
> }
> 大変だぜ

これが実際に貴殿の仕事のソースに混じってたのかい

参考：2002/10/30(水)02時27分47秒