A variation on the theme:
#! perl use Modern::Perl; use Data::Dump; my @array; while (<DATA>) { chomp; my @pairs = /(..)/g; $array[$_] .= $pairs[$_] for 0 .. $#pairs; } dd @array; __DATA__ abcdef abcdef abcdef abcdef
Output:
22:46 >perl 403_SoPW.pl ("abababab", "cdcdcdcd", "efefefef") 22:50 >
Hope that helps,
Athanasius <°(((>< contra mundum
In reply to Re: convert rows to columns
by Athanasius
in thread convert rows to columns
by b00mIR
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |