Re^2: Separate column results?!

Hi Choroba, Thank you for replying, please ignore that line, I've taken the split suggestion on board and have come up with the following :) :

#!/usr/bin/perl  

use warnings;
use strict;

my $PHONE_FILE =  'phones.txt';

open(PHONE_FILE, $PHONE_FILE) or die "Can't open file: $!\n";
my @lines = <PHONE_FILE>;


foreach $_ (@lines) {
    

    my @columns = split('\t', $_);

            my $col1 = $columns[0];
            my $col2 = $columns[1];
            chomp $col1;
            print "\$columns[0]\t$columns[1]\n";
            
        }
[download]

The data used in the text file is the following:

Apple iPhone 4            test 
Apple iPhone 4s     test1 
Apple iPhone 3G     test2
Apple iPhone 3GS     test3
[download]

The output is:

$columns[0]     test
$columns[0]     test1 
$columns[0]     test2
$columns[0]     test3
[download]

Please can you help me fix this? the output should be the phone name and not $columns[0]?? Thank you :)

Comment on Re^2: Separate column results?! Select or Download Code

Replies are listed 'Best First'.
Re^3: Separate column results?! by perlnoobster (Sexton) on Aug 29, 2012 at 09:33 UTC
update: I've changed it to the following: `print "\n$columns[0]\t$columns[1]";` [download] works fine now :) however there is a blank space between the lines the chomp function doesn't seem to work? `#!/usr/bin/perl use warnings; use strict; my $PHONE_FILE = 'phones.txt'; open(PHONE_FILE, $PHONE_FILE) or die "Can't open file: $!\n"; my @lines = <PHONE_FILE>; foreach $_ (@lines) { my @columns = split('\t', $_); my $col1 = $columns[0]; my $col2 = $columns[1]; chomp $col1; chomp $col2; print "\n$columns[0]\t$columns[1]"; }` [download] ??	[reply] [d/l] [select]
Re^4: Separate column results?! by perlnoobster (Sexton) on Aug 29, 2012 at 09:36 UTC
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]"; }` [download]	[reply] [d/l]
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;` [download] Produces: 111 aaa 222 ccc 333 eee	[reply] [d/l]