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

Comment on Re: need help to print some lines Download Code

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` [download]	[reply] [d/l]
Re^3: need help to print some lines by 2teez (Vicar) on Nov 29, 2012 at 00:57 UTC
Instead of repeating push function, why not: `... while (<DATA>) { for my $index ( 0 .. 1 ) { push @{ $array_organizer->[$index] }, [split]->[$index]; } } ...` [download] 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	[reply] [d/l]