Hi all. I send this today to ask what in the world is going on with my
program. I am getting the following error:
Argument "" isn't numeric in le at (eval 4099) line 2.
Argument "" isn't numeric in le at (eval 4100) line 2.
Argument "" isn't numeric in le at (eval 4101) line 2.
Line 2 of my program is blank and I can't quite understand. This. If anyone
has any idea, that'd be great. Thanks alot.
jess
Program Text:
1:#!/usr/local/bin/perl -w
2:
3:use lib qw( /qmds/jbalint/perl/lib/site_perl/5.005 );
4:use strict;
5:use Spreadsheet::ParseExcel;
6:
7:my $outpath = "textfiles";
8:my $y = 0;
9:
10:open( LOG, "> combine_files.log" );
11:
12:for my $file_name (<Excel_Files/*.xls>) {
13: my $x = 0;
14: $y++;
15: open( OUTFILE, "> $outpath/File_$y.dat" )
16: or die( "Cannot open output file
($file_name,$outpath/File_$y.dat): $!\n");
17: my $xlBook = Spreadsheet::ParseExcel::Workbook->Parse($file_name);
18: print LOG "Now parsing: $file_name\n";
19: my $xlSheet = $xlBook->{Worksheet}[0];
20: print LOG "Excel says there are ", $xlSheet->{MaxRow}, " rows and ",
$xlSheet->{MaxCol}, " columns.\n";
21: for( my $r = $xlSheet->{MinRow}; defined $xlSheet->{MaxRow} && $r <
$xlSheet->{MaxRow} ; $r++ ) {
22: for( my $c = $xlSheet->{MinCol} ; defined $xlSheet->{MaxCol}
&& $c <= $xlSheet->{MaxCol} ; $c++ ) {
23: my $xlCell = $xlSheet->{Cells}[$r+1][$c];
24: $xlCell ? print OUTFILE $xlCell->{Val}, "," : print
OUTFILE ",";
25: }
26: $x++;
27: print OUTFILE "\n";
28: }
29: close( OUTFILE );
30: print LOG "Total of $x row parsed. Output file is
$outpath/File_$y.dat\n";
31:}
32:
33:close( LOG );
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
