Size of 2D array in Perl

Tags:

multidimensional-array

perl

I need to get the size of the second level in a 2D array. I'm trying this:

my @txt;
$txt[0][0]="text1";
$txt[0][1]="text2";
$txt[0][2]="text3";

$txt[1][0]="text4";
$txt[1][1]="text5";
$txt[1][2]="text6";

print scalar(@txt[1]);

But it doesn't work, and I see "ARRAY(0x804daf0)". How to get the size of the second dimension?

936

asked May 28 '13 13:05

BArtWell

1 Answers

print scalar @{ $txt[1] }; should do the trick...

155

answered Sep 18 '22 22:09

pavel

Related questions
                            
                                Perl multithreading and foreach
                            
                                Perl: Using Loop or Map/Grep?
                            
                                Wildcard for hash element in Perl
                            
                                Why doesn't map read from @ARGV/@_?
                            
                                How to I use a class property/variable as a print filehandle in Perl?
                            
                                Too late for -CSD
                            
                                When using Perl's File::Find what's a quick & easy way to limit search depth?
                            
                                Perl: Sorting 2D array with multiple columns based on a particular column
                            
                                Accessing value of a global variable using require?
                            
                                matching the closest strings to a search term (perl regex)
                            
                                Find number, and remove adjacent characters equal to this number
                            
                                perl replace space with tab
                            
                                How does Unix read a path name with two consecutive slashes? (e.g. /home/user//mystuff)
                            
                                To what precision does perl print floating-point numbers?
                            
                                Perl, Assign to variable from regex match
                            
                                In Perl, would keeping a reference to Catalyst's $c in an attribute cause a memory leak?
                            
                                Subtructing n number of columns from two files with AWK
                            
                                Perl: Slice an array, without creating a whole new array
                            
                                Perl - Template Toolkit - How get list of variables in the template?
                            
                                Why are Perl's $. and $ARGV behaving strangely after setting @ARGV and using <>