どのように2次元配列

Question

オーケーの列方向の細胞によるサイクルに、これは単なる興味のためにある：

何らかの理由で、私は2次元配列の「列」を下に移動します。どうすればいい？

#LEGEND FOR BELOW# 
##Each index of @all_matches, de-referenced, (ie. $$arrayref[0-5]) is a COLUMN 
##Each @$arrayref is a ROW 
##Current Set-up: Each $item is one cell in chart, moving across the row. 
##How to move down column? 

for my $arrayref (@all_matches) { 
    for my $item (@$arrayref) { 
     print $item, "\n\n\n"; 
    } 
} 

いくつかの大まかなアイデア：ループを切り替えますか？ [0-5]のインデックスを実行する

Answer 1

データ構造が行指向であるため、列インデックスをループする必要があります。

for my $i (0 .. 5) { 
    for my $arrayref (@all_matches) { 
    print $arrayref->[$i], "\n\n\n"; 
    } 
} 

Answer 2

アイデア「use（数値）インデックス」は（c）cjmです。しかし、私はSO Perlの質問に対処するための私の '枠組み' を願っています：

# !! http://stackoverflow.com/questions/6311638 
# perl-how-to-cycle-by-cell-in-the-column-direction-of-a-2d-array 
# ============================================================================= 
############################################################################### 

use strict; 
use warnings; 
use English qw(-no_match_vars ); 
use Time::HiRes qw(time); 

our $Problem = [ 
    ['R0C0','R0C1','R0C2','R0C3'] , 
    ['R1C0','R1C1','R1C2','R1C3'] , 
    ['R2C0','R2C1','R2C2','R2C3'] 
]; 

my %XplFncs =(); 

$XplFncs{ lc('Problem') } = [ 'Problem', 'by row is easy', \&problem ]; 
sub problem { 
    my $exit_code = 1; # assume error 
    for my $rowref (@$Problem) { 
     for my $cell (@$rowref) { 
     print $cell, " "; 
    } 
    print "\n"; 
    } 
    return $exit_code; 
} 

$XplFncs{ lc('usenumidx') } = [ 'usenumidx', 'use numerical indices', \&usenumidx ]; 
sub usenumidx { 
    my $exit_code = 1; # assume error 
    for (my $col = 0; $col < scalar @{$Problem->[0]}; ++$col) { 
     for (my $row = 0; $row < scalar @$Problem; ++$row) { 
     print $Problem->[$row]->[$col], " "; 
    } 
    print "\n"; 
    } 
    return $exit_code; 
} 

sub Main { 
    my ($ExitCode, $ToBlame) = (3, join('::', $PROGRAM_NAME, 'Main')); 
    printf "%s started using Perl %s on %s.\n", $ToBlame, $], $OSNAME; 
    my $FncNam = $ARGV[ 0 ] || 'Problem'; 
    my $FncNamLC = lc($FncNam); 
    if (exists($XplFncs{ $FncNamLC })) { 
    my $Xpl = $XplFncs{ $FncNamLC }; 
    printf "will call %s - %s\n", $Xpl->[ 0 ], $Xpl->[ 1 ]; 
    my $tmStart = time(); 
    $ExitCode = $Xpl->[ 2 ](); 
    my $tmEnd = time(); 
    printf "%s returned %d [%f secs]\n", $Xpl->[ 0 ], $ExitCode, $tmEnd - $tmStart; 
    } else { 
    printf "sorry, no '%s' in:\n %s\n" 
      , $FncNam 
      , join("\n ", map { sprintf('%s - %s', $_, $XplFncs{$_}[1]) } sort(keys(%XplFncs))); 
    } 
    printf "%s done. (%d)\n", $ToBlame, $ExitCode; 
    return $ExitCode; 
} 

exit Main(); 

出力：

perl xpl.pl 
xpl.pl::Main started using Perl 5.010000 on MSWin32. 
will call Problem - by row is easy 
R0C0 R0C1 R0C2 R0C3 
R1C0 R1C1 R1C2 R1C3 
R2C0 R2C1 R2C2 R2C3 
Problem returned 1 [0.001498 secs] 
xpl.pl::Main done. (1) 

perl xpl.pl usenumidx 
xpl.pl::Main started using Perl 5.010000 on MSWin32. 
will call usenumidx - use numerical indices 
R0C0 R1C0 R2C0 
R0C1 R1C1 R2C1 
R0C2 R1C2 R2C2 
R0C3 R1C3 R2C3 
usenumidx returned 1 [0.002094 secs] 
xpl.pl::Main done. (1) 

は盗作と非難されることから私を保存します。