Re^3: Extract column of excel

Your code works fine! I have only added a chomp but that does not really make a difference...

#!/bin/perl -w 
use strict; 
#variables you can change to suit your needs 
my $column_separator = ","; 
my $column_number = "2";
$column_number--; 
my @lines=<DATA>; 
foreach my $line (@lines){ 
        chomp($line);
        my @columns = split(/$column_separator/,"$line"); 
        print $columns[$column_number],"\n"; 
}

__DATA__
1,2,3,4
A,B,C,D
[download]

Comment on Re^3: Extract column of excel Select or Download Code

Replies are listed 'Best First'.
Re^4: Extract column of excel by MynameisAchint (Novice) on Jun 05, 2013 at 05:17 UTC
Hey thank you for replying , now the problem I am having is that when code gets a blank cell it does not copy it to the array , it copies the next entry in column but I desire that even blank cells be copied as blank entry in array	[reply]
Re^5: Extract column of excel by hdb (Monsignor) on Jun 05, 2013 at 05:27 UTC
Good morning. If you do not post some sample data, it is difficult to provide meaningful suggestions. The description of your problem is inconsistent with the code you have posted. `split` does not skip any empty field, apart from trailing ones. And I cannot see any way that it would use the next entry in column, ie from the next line.	[reply] [d/l]