in reply to How to swap rows with columns?
Yet another module:
use Algorithm::Loops "MapCarU"; my @data = MapCarU { [@_] } ['1','2','3'],['a','b','c'],['x','y','z']; use Data::Dumper; $Data::Dumper::Terse=1; $Data::Dumper::Indent=0; print Dumper \@data; __END__ [['1','a','x'],['2','b','y'],['3','c','z']]
|
---|
In Section
Seekers of Perl Wisdom