Re: Doubt regarding parsing

[toolic]

Tip #2 from the Basic debugging checklist: print

use Spreadsheet::ParseExcel;

my $filename = shift || "C:\Earthlink.xls";

print "$filename\n";
my $parser   = Spreadsheet::ParseExcel->new();

my $workbook = $parser->parse("$filename");


if ( !defined $workbook ) {
    die $parser->error(), ".\n";
}

This prints:

C:arthlink.xls
File not found.

Use single quotes to prevent interpolation of \E:

my $filename = shift || 'C:\Earthlink.xls';

A good text editor with syntax highlighting is also helpful in distinguishing literal strings from escape sequences.