<div class="gmail_quote"><div>Thank you Mark for quick response.<br>However, it turns out that the shared folder was not mounted due to some problem on the server yesterday.<br><br>By the way is there any debugger available for Perl scripts. <br>
I used -d option in perl but I don't know the commands like how to step over or mark a line.<br><br>Thank you.<br> <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
From: "Mark Fowle" <<a href="mailto:mfowle@navicominc.com">mfowle@navicominc.com</a>><br>To: "Ibrahim Amin" <<a href="mailto:ibrayem@gmail.com">ibrayem@gmail.com</a>>, <<a href="mailto:toronto-pm@pm.org">toronto-pm@pm.org</a>><br>
Date: Fri, 31 Oct 2008 11:36:19 -0400<br>Subject: Re: [tpm] Spreadsheet::WriteExcel and Spreadsheet::ParseExcel<br>
<div link="blue" vlink="purple" lang="EN-US">
<div>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;">I think it's telling you that </span></font>/Server1/sambaFolder/test.xls
does not exit.</p>
<p><font size="3" face="Times New Roman"><span style="font-size: 12pt;"> </span></font></p>
<p><font size="3" face="Times New Roman"><span style="font-size: 12pt;">On the command line try ls /Server1/sambaFolder/test.xls</span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;">Maybe you want ./</span></font>Server1/sambaFolder/test.xls<font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"></span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"> </span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;">Code wise you might want</span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;">My $file = </span></font>"/Server1/sambaFolder/test.xls"<font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"></span></font></p>
<p><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"> die ("no such file $file\n") unless
(-e $file ); </span></font></p>
<p><font size="3" face="Times New Roman"><span style="font-size: 12pt;">unless(defined($wb = $parser->Parse($file"))){<br>
die "$!";<br>
}<br>
<br>
</span></font><font size="2" color="navy" face="Arial"><span style="font-size: 10pt; font-family: Arial; color: navy;"></span></font></p></div></div></blockquote></div><br>