What? Perlscript... It is client-side or server-side?
Maruf From: Luca Leonardi <[EMAIL PROTECTED]> > I'm trying to test the ParseExcel module but with mixed fortunes. If I run > it from the command line it works fine, but if I add it to the HTML code the > result is a blank page. Machine is a PC running II 5.0 on Windows 2000 and > the latest version of ActivePerl 5.6. Code follows ... > > <html> > <head> > <title>Test of Perl parser for Excel</title> > </head> > <body> > <SCRIPT LANGUAGE="PerlScript"> > # Spreadsheet::ParseExcel > # by Kawai, Takanori (Hippo2000) 2000.10.2 > # 2001. 2.2 (Ver. 0.15) > use strict; > use Spreadsheet::ParseExcel; > my $oExcel = new Spreadsheet::ParseExcel; > > #1.1 Normal Excel97 > my $oBook = $oExcel->Parse('test.xls'); > my($iR, $iC, $oWkS, $oWkC); > print "FILE :", $oBook->{File} , "\n"; > print "COUNT :", $oBook->{SheetCount} , "\n"; > print "AUTHOR:", $oBook->{Author} , "\n"; > for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) { > $oWkS = $oBook->{Worksheet}[$iSheet]; > print "--------- SHEET:", $oWkS->{Name}, "\n"; > for(my $iR = $oWkS->{MinRow} ; > defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) { > for(my $iC = $oWkS->{MinCol} ; > defined $oWkS->{MaxCol} && $iC <= > $oWkS->{MaxCol} ; $iC++) { > $oWkC = $oWkS->{Cells}[$iR][$iC]; > print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC); # > Formatted Value > print "( $iR , $iC ) =>", $oWkC->{Val}, "\n" if($oWkC); # > Original Value > } > } > } > </SCRIPT> > </body> > </html> > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]