Thread Vor kopieren warten bis Subroutine abgeschlossen (28 answers)
Opened by giordano at 2010-02-17 14:50

Gast wer
 2010-02-17 16:46
#133179 #133179
Code: (dl )
my($iR, $iC, $oWkS, $oWkC);

Das ist Unnötig. "warnings" sollte sich melden.

Code: (dl )
$rec =  $rec,"\r";

Das macht keinen Sinn.

Die ganzen Schleifen kann man auch besser schreiben:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

  return unless(defined($oWkS->{MaxRow}));
  for my $iR ( $oWkS->{MinRow}..$oWkS->{MaxRow} )
  {
    my @list=();
    next unless(defined($oWkS->{MaxCol}));
    for my $iC ($oWkS->{MinCol}..$oWkS->{MaxCol})
    {
      my $oWkC = $oWkS->{Cells}[$iR][$iC];
      push(@list,$oWkC?$oWkC->Value:'');
    }
    print $OUTPUT join(';',@list)."\r\n";
  }


Warum öffnest/schließt du die Dateien außerhalb von "extractXLS"?
Was ist "$wksh"?
Benutzt du "strict" und "warnings"?

View full thread Vor kopieren warten bis Subroutine abgeschlossen