Very nice John!!!
I couldn't think it.
*Mukesh Kumar*
*Member of Technical Staff*
*Cadence Design Systems (I) Pvt. Ltd.*
*Mob:- +91-8527749333*
On 7 July 2014 15:26, John Delacour <johndelac...@gmail.com> wrote:
>
> On 7 Jul 2014, at 09:18, Sunita Pradhan <sunita.pradhan.2...@hotmail.com>
> wrote:
>
> > I have a file of contents:
> > -----------
> > 1 6
> > 2 7
> > 3 8
> > 4 9
> > 5 10
> > ----------
> > I want a file with content:
> >
> > 1 2 3 4 5
> > 6 7 8 9 10
>
> Try this:
>
>
> #!/usr/local/bin/perl
> use strict;
> my (@col1, @col2);
> while (<DATA>) {
> chomp;
> my @words = split / /;
> push @col1, $words[0];
> push @col2, $words[1];
> }
> print join " ", @col1;
> print "\n";
> print join " ", @col2;
> __DATA__
> 1 6
> 2 7
> 3 8
> 4 9
> 5 10
>
> #JD
>
>
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
