Mega Code Archive

 

Categories / Perl / Array

 

Using multi-dimensional array references

#!/usr/bin/perl  $line = ['solid', 'black', ['1','2','3'] , ['4', '5', '6']];  print "\$line->[0] = $line->[0] \n";  print "\$line->[1] = $line->[1] \n";  print "\$line->[2][0] = $line->[2][0] \n";  print "\$line->[2][1] = $line->[2][1] \n";  print "\$line->[2][2] = $line->[2][2] \n";  print "\$line->[3][0] = $line->[3][0] \n";  print "\$line->[3][1] = $line->[3][1] \n";  print "\$line->[3][2] = $line->[3][2] \n";  print "\n"; # The obligatory output beautifier.