Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
P is for Practical
 
PerlMonks  

Re^4: Separate column results?!

by perlnoobster (Sexton)
on Aug 29, 2012 at 09:36 UTC ( #990418=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Separate column results?!
in thread Separate column results?!

i got it to work :)

foreach $_ (@lines) { my @columns = split('\t', $_); chomp @columns; my $col1 = $columns[0]; my $col2 = $columns[1]; chomp $col1; chomp $col2; print "\n$columns[0]\t$columns[1]"; }


Comment on Re^4: Separate column results?!
Download Code
Re^5: Separate column results?!
by philiprbrenan (Monk) on Aug 29, 2012 at 10:09 UTC

    Or perhaps:

    use feature ":5.14"; use warnings FATAL => qw(all); use strict; my @lines = split /\n/, << 'END'; 111 aaa bbb 222 ccc ddd 333 eee fff END say join "\t", @{[split]}[0,1] for @lines;

    Produces:

    111	aaa
    222	ccc
    333	eee
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2014-04-21 01:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (489 votes), past polls