Re: Max dimensions of multi-dimensional array

use List::Util qw[ max ];

my @array = [];
$array[2][3] = 1;
$array[345][10] = 2;
$array[2][65535] = 10;
;;

print $#array, 'x', max( map $#{ $_ // [] }, @array );;
345 x 65535
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re: Max dimensions of multi-dimensional array Download Code

Replies are listed 'Best First'.
Re^2: Max dimensions of multi-dimensional array by ravi45722 (Pilgrim) on Jul 13, 2016 at 09:22 UTC
Can you Please explain the print statement line a little.	[reply]
Re^3: Max dimensions of multi-dimensional array by BrowserUk (Patriarch) on Jul 13, 2016 at 09:52 UTC
`print $#array, 'x', max( map $#{ $_ // [] }, @array );;` [download] $#array is the largest index of @array; `$#{ $_ }` is the largest index of the array referenced by `$_` map assigns each of the values in `@array` to `$_` in turn. Many of them will be undefined, if so, // [] substitutes an empty array for that value. Thus, the map extracts the highest indexes of all the subarrays in @array and substitutes 0 for those that are empty or don't exist. max() finds and returns the largest of those. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]