Come posso eseguire il reverse di zip/mesh da List :: MoreUtils?

Question

Ho due matrici:

@foo = (1, 2, 3, 4); 
@bar = ('A', 'B', 'C', 'D'); 

Se li ZIP con mesh/zip da List::MoreUtils, ottengo questo:

@zipped = (1, 'A', 2, 'B', 3, 'C', 4, 'D'); 

Come posso fare questa operazione al contrario, vale a dire a partire dal @zipped come si può Ottengo @foo e @bar?

Answer 1

Elenco :: Util :: coppie.

use List::Util 'pairs'; 
my @zipped = ('1', 'A', '2', 'B', '3', 'C'); 
my ($foo, $bar) = pairs @zipped; 

$foo e $bar saranno riferimenti ad array contenenti rispettivamente ('1'..'3') e ('A'..'C'),.

o se ci sono più di due array, utilizzare list :: :: moreutils parte:

use List::MoreUtils 'part'; 
my @zipped = ('1', 'A', 'a', '2', 'B', 'b', '3', 'C', 'c'); 
my $number_of_arrays = 3; 

my $i = 0; 
my @arrayrefs = part { $i++ % $number_of_arrays } @zipped;