in reply to How to swap rows with columns?
use List::MoreUtils qw( each_array ); my $iterator = each_array( @a, @b, @c ); while ( my @col = $iterator->() ) { print "@col\n"; }
My criteria for good software:
- Does it work?
- Can someone else come in, make a change, and be reasonably certain no bugs were introduced?
|
---|
In Section
Seekers of Perl Wisdom