List :: MoreUtils'ten zip/mesh'in tersini nasıl yapabilirim?

Question

İki diziler var: Ben List::MoreUtils den mesh/zip onları zip Eğer

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

, ben olsun bu:

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

Ben geriye bu operasyonu yapabilir Nasıl yani nasıl @zipped den olabilir başlayan @foo ve @bar olsun?

Answer 1

Liste :: Util :: çiftleri.

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

$foo ve $bar sırasıyla ('1'..'3') ve ('A'..'C') içeren diziler referansları olacaktır. Eğer 2'den fazla diziler varsa

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;