Shell Programming and Scripting

field 1	field 2	field 3
test1	1	6
test2	2	
test3	3	7
test4	4	
test5	5	8

#!/usr/bin/perl

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

my $sourcename = shift @ARGV;
my $source_excel = new Spreadsheet::ParseExcel;

my $source_book = $source_excel->Parse($sourcename) or die "Could not open source Excel file $sourcename: $!";
my $storage_book;

foreach my $source_sheet_number (0 .. $source_book->{SheetCount}-1)
{
 my $source_sheet = $source_book->{Worksheet}[$source_sheet_number];

 print "--------- SHEET:", $source_sheet->{Name}, "\n";

 next unless defined $source_sheet->{MaxRow};
 next unless $source_sheet->{MinRow} <= $source_sheet->{MaxRow};
 next unless defined $source_sheet->{MaxCol};
 next unless $source_sheet->{MinCol} <= $source_sheet->{MaxCol};

 foreach my $row_index (1 .. $source_sheet->{MaxRow})
 {
  foreach my $col_index ($source_sheet->{MinCol} .. $source_sheet->{MaxCol})
  {
   if ($col_index == 0 or $col_index == 2 ) {
   my $source_cell = $source_sheet->{Cells}[$row_index][$col_index];
   if ($source_cell)
   {
    #print "( $row_index , $col_index ) =>", $source_cell->Value, "\n";
    print $source_cell->Value, "\t";
    } # end of source_cell check
   }
  } # foreach col_index
  print "\n";
 } # foreach row_index
} # foreach source_sheet_number

perl read_excel.pl myxl.xls

--------- SHEET:Sheet1
test1   6
test2
test3   7
test4
test5   8