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]
