print heMentions(\@array), "\n"; sub heMentions { my( $arrayref ) = @_; my $width = 0; my $height = @$arrayref; for my $ref ( @$arrayref ){ my $wee = @$ref; if( $wee > $width ){ $width = $wee; } } return "Dimensions are : $height x $width"; }
In reply to Re: Max dimensions of multi-dimensional array
by Anonymous Monk
in thread Max dimensions of multi-dimensional array
by ravi45722
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |