Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: convert rows to columns

by Athanasius (Abbot)
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 contemplating the Monastery: (4)
As of 2015-07-04 00:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls