fork download
copy 
  1. #!/usr/bin/perl
  2. use v5.10;
  3.  
  4. my @x;
  5. my ($m, $n, $p) = (4,3,2);
  6. my $v = 0;
  7.  
  8. foreach my $mx (0..$m-1) {
  9.     foreach my $nx (0..$n-1) {
  10.         foreach my $px (0..$p-1) {
  11.             $x[$mx][$nx][$px] = $v++;
  12.         }
  13.     }
  14. }
  15.  
  16. # print nicely
  17. my $ii;
  18. foreach my $m (@x) {
  19.     say "\nrow " . $ii++, ' : ';
  20.     foreach my $n ( @$m ) {
  21.         my $p = join(', ', @$n);
  22.         print "[ $p ], ";
  23.     }
  24. }
  25.  
Success #stdin #stdout 0.01s 5356KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
row 0 : 
[ 0, 1 ], [ 2, 3 ], [ 4, 5 ], 
row 1 : 
[ 6, 7 ], [ 8, 9 ], [ 10, 11 ], 
row 2 : 
[ 12, 13 ], [ 14, 15 ], [ 16, 17 ], 
row 3 : 
[ 18, 19 ], [ 20, 21 ], [ 22, 23 ],
https://ideone.com/OKt5uk
Idiom #27 Create a 3-dimensional array
language:
Perl (perl 5.28.1)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!