Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: need help to print some lines

by toolic (Bishop)
on Nov 28, 2012 at 18:10 UTC ( #1006084=note: print w/replies, xml ) Need Help??

in reply to need help to print some lines

One way is to store the 2nd column in an array as you read the lines:
use warnings; use strict; my @c2; while (<DATA>) { my @cols = split; push @c2, $cols[1]; print "$cols[0]\n"; } print "$_\n" for @c2; __DATA__ a f b g c h d i e j

Replies are listed 'Best First'.
Re^2: need help to print some lines
by Anonymous Monk on Nov 29, 2012 at 00:41 UTC

    without taking anything away from toolic beautiful solution, one can also still write this:

    use warnings; use strict; my $array_organizer = [ [], [] ]; while (<DATA>) { push @{ $array_organizer->[0] }, [split]->[0]; push @{ $array_organizer->[1] }, [split]->[1]; } for my $value ( @{$array_organizer} ) { print map { $_ } @{$value}, $/; } __DATA__ a f b g c h d i e j

      Instead of repeating push function, why not:

      ... while (<DATA>) { for my $index ( 0 .. 1 ) { push @{ $array_organizer->[$index] }, [split]->[$index]; } } ...

      If you tell me, I'll forget.
      If you show me, I'll remember.
      if you involve me, I'll understand.
      --- Author unknown to me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006084]
[LanX]: typo sorry meant protlose
[LanX]: ;)
[LanX]: see protwin situation
[QM]: Anything like a qualtoo?
[QM]: er, quatloo

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (9)
As of 2017-08-17 10:07 GMT
Find Nodes?
    Voting Booth?
    Who is your favorite scientist and why?

    Results (286 votes). Check out past polls.