perl Nx3 Array에서 행 추출하기

Question

Nx3 배열에서 크기가 3x3 인 블록을 추출하려고합니다.

foreach (@TotalData){ 
     print "@{$_}\n"; 
    } 

은 (예를 들어) 저를 제공합니다 : 점은 다른 항목을 나타냅니다

. 
    . 
    0.000 22.00 3.791140e+000 
    0.100 22.00 2.737532e+000 
    0.200 22.00 2.393466e+000 
    . 
    . 

. 이 3x3 블록을 자체 배열에 배치하려고합니다. 어떻게 추출 할 수 있습니까?

Answer 1

블록으로 무엇을 하시겠습니까? 어쩌면 단지 @TotalData 슬라이스 (예 : @TotalData[4,5,6] 또는 splice(@TotalData, 4, 3))를 원할 수도 있습니다. 한 번에 3 번 반복 할 수 있습니다 (예 : List::MoreUtils::natatime). 당신은 정말로 충분한 정보를 말하지 않았습니다. 당신이 부작용으로 @TotalData을 삭제 괜찮다면

:에

while (my @block = splice(@TotalData, 0, 3)) { 
    # do something with @block (which will have 3 elements, 
    # except on the last iteration, where it will have 1-3) 
} 

단지 3의 완전한 블록을 얻을 :

while (3 == (my @block = splice(@TotalData, 0, 3))) { 
    # do something with @block (which will have 3 elements) 
} 

Answer 2

내가 PDL가 메소드가 오히려 확신 이러는거야. 사실, 거의 동일한 문제가 PDL 문서의 Conway's Game of Life example에서 조사됩니다.

Answer 3

List::MoreUtils::natatime을 찾고 계십니까?

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::MoreUtils qw(natatime); 

my @data = (
    [1 .. 3], 
    [4 .. 6], 
    [7 .. 9], 
    ['a' .. 'c'], 
    ['d' .. 'f'], 
    ['g' .. 'i'], 
); 

my $it = natatime(3, @data); 

while (my @set = $it->()) { 
    for my $r (@set) { 
     print "@$r\n"; 
    } 
    print '-' x 30, "\n"; 
} 

출력 :

~/tmp> ./jj.pl 
1 2 3 
4 5 6 
7 8 9 
------------------------------ 
a b c 
d e f 
g h i 
------------------------------