Shell Programming and Scripting

sub xls2csv{  
my ($filename, $csvname, $page) = @_;  
my $xls = Spreadsheet::ParseExcel::Simple->read($filename) or die "Can't read $filename: $!";  
my $cnt = 0;  
for my $sheet ($xls->sheets) {  
next unless $cnt++ == $page;  
open(CSV, ">$csvname") or abnormal_exit($?, $!);  
while ($sheet->has_data) {  
my @row = $sheet->next_row;  
for (@row) { if (/[,"]/) { s/"/""/g; s/^/"/; s/$/"/; } }  
print CSV join("\t", @row), "\n";  
}  
close CSV;  
}

#!/usr/bin/perl

sub xls2csv
{
        my ($filename, $csvname, $page) = @_;
        my $xls = Spreadsheet::ParseExcel::Simple->read($filename) or
                die "Can't read $filename: $!";
        my $cnt = 0;

        for my $sheet ($xls->sheets)
        {
                next unless $cnt++ == $page;
                open(CSV, ">$csvname") or abnormal_exit($?, $!);
                while ($sheet->has_data)
                {
                        my @row = $sheet->next_row;
                        for (@row)
                        {
                                if (/[,"]/)
                                {
                                        s/"/""/g; s/^/"/; s/$/"/;
                                }
                        }
                }

                print CSV join("\t", @row), "\n";
        }
        close CSV;
}