in reply to Finding the length of an array of arrays
sub rscalar { my($count); map { $count++; if (ref eq "ARRAY") { $count = $count + rscalar(@{$_}); } } @_; return $count; }
/****************************/ jason@gost.net, wh@ckz.org http://jason.gost.net /*****************************/
|
|---|