Bug #16983 for Spreadsheet-ParseExcel-Simple: Convert Excel to Text (Spreadsheet::ParseExcel::Simple;) Part 2

This is another question/maybe bug in regards to the following code seen later below. The code takes an excel spreadsheet and converts it to a PIPE delimited text file. This script will create a text file for a SPECIFIC Excel tab. I have an issue with SOME spreadsheets where I will specify a specific sheet to select but it will pick the sheet 3 tabs over to the one I specify. Any ideas on why on some Excel files it would select the sheet 3 tabs over? =====BEGIN PERL SCRIPT===== use Spreadsheet::ParseExcel::Simple; my ($p_src_file) = @ARGV[0]; my ($p_sheet) = @ARGV[1]; my ($p_target_file) = @ARGV[2]; $p_src_file =~ /(.*)\.xls$/i or die "Invalid filename: $p_src_file\a"; my $xls = Spreadsheet::ParseExcel::Simple->read($p_src_file) or die "Can't read $p_src_file: $!\a"; foreach my $sheet ($xls->sheets) { next unless $sheet->sheet->{Name} eq $p_sheet; print("The $p_target_file file has been created!\n"); open(TXT, ">$p_target_file.TXT"); print($sheet->sheet->{Name}); while ($sheet->has_data) { my @row = $sheet->next_row; foreach (@row) { if (/[,"]/) { s/"/""/g; s/^/"/; s/$/"/; } } print TXT join('|', @row), "\n"; } close TXT; } continue { #$index++; } =====END PERL===== Show quoted text