Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: convert rows to columns

by Athanasius (Prior)
on Nov 26, 2012 at 12:53 UTC ( #1005637=note: print w/ replies, xml ) Need Help??


in reply to 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

Output:

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

Hope that helps,

Athanasius <°(((><contra mundum


Comment on Re: convert rows to columns
Select or Download Code
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

      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; ...

      but more compact and “Perlish”. See perlvar#General-Variables.

      Hope that helps,

      Athanasius <°(((><contra mundum

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005637]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2014-07-12 05:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (238 votes), past polls