Re^2: Extract column of excel

#!/bin/perl -w
use strict;

#variables you can change to suit your needs
my $column_separator = ",";
my $column_number = "8";
$column_number--;
my $file="Working_On.csv";
open(FILE,"<","$file");
my @lines=<FILE>;
close FILE;

foreach my $line (@lines){
 my @columns = split(/$column_separator/,"$line");
 print $columns[$column_number],"\n";
}
[download]

This code is working but the problem is that it does not take the entire column it truncates the column , if anyone can look why the code does not take the entire column . thanks

Comment on Re^2: Extract column of excel Download Code

Replies are listed 'Best First'.
Re^3: Extract column of excel by hdb (Monsignor) on Jun 04, 2013 at 07:29 UTC
While barely readable your code suggests that you are processing a CSV file, not an Excel file. This is quite a different question. Can you please specify in which way the column is truncated? Are you not getting all rows or are entries somehow garbled? Again, quite different approaches would be required.	[reply]
Re^4: Extract column of excel by MynameisAchint (Novice) on Jun 04, 2013 at 09:32 UTC
Yes I am working on csv file , the truncation is such that the entries are taken in the correct sequence but they are taken from somewhere in between not from the starting	[reply]
Re^5: Extract column of excel by hdb (Monsignor) on Jun 04, 2013 at 11:24 UTC
How about an example?	[reply]