Re: convert rows to columns

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
[download]

Output:

22:46 >perl 403_SoPW.pl
("abababab", "cdcdcdcd", "efefefef")

22:50 >
[download]

Hope that helps,

Athanasius <°(((>< contra mundum

Comment on Re: convert rows to columns Select or Download Code

Replies are listed 'Best First'.
Re^2: convert rows to columns by ack (Deacon) on Nov 26, 2012 at 20:30 UTC
I assume in the second line of your "while" loop that you meant `@pairs =~ /(..)/g;` right? ack Albuquerque, NM	[reply] [d/l]
Re^3: convert rows to columns by Athanasius (Archbishop) on Nov 27, 2012 at 01:43 UTC
No, I did mean `=`, for assignment. On each iteration of the `while` loop, the default variable `$_` is implicitly assigned the next line read from the `DATA` handle. This `$_` variable becomes the implicit argument to `chomp`, and then it’s implicitly bound to the regex match. So, the code I gave is equivalent to this: `while ($_ = <DATA>) { chomp $_; my @pairs = $_ =~ /(..)/g; ...` [download] but more compact and “Perlish”. See perlvar#General-Variables. Hope that helps, Athanasius <°(((>< contra mundum	[reply] [d/l]