Opened by giordano at 2010-02-17 14:50
Hallo Renee und Linuxer,
Besten Dank für die rasche Antwort. Ich habe die Dateien überprüft. Die zu kopierenden Dateien werden korrekt erstellt, bei der kopierten fehlen die letzten paar Zeilen. Ich weiss nicht, was ein fork und ein thread ist, aber ich denke, dass ich das nicht verwende. Hier noch der Code der Subroutine. Die Subroutine habe ich zuhinderst aufgestellt, die Ausführung findet jedoch vor copy statt.
Besten Dank für die rasche Antwort. Ich habe die Dateien überprüft. Die zu kopierenden Dateien werden korrekt erstellt, bei der kopierten fehlen die letzten paar Zeilen. Ich weiss nicht, was ein fork und ein thread ist, aber ich denke, dass ich das nicht verwende. Hier noch der Code der Subroutine. Die Subroutine habe ich zuhinderst aufgestellt, die Ausführung findet jedoch vor copy statt.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
use Spreadsheet::ParseExcel;
sub extractXLS {
# parameter
my $exceldir = shift;
my $excelfile = shift;
my $OUTPUT = shift;
my $wksh = shift;
binmode( $OUTPUT,":utf8" );
# begin
my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($exceldir.$excelfile);
my($iR, $iC, $oWkS, $oWkC);
my $oWkS = $oBook->worksheet($wksh);
#print "--------- SHEET:", $oWkS->{Name}, "\n";
for( my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++
)
{
my $rec='';
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++
) {
my $temp = '';
$oWkC = $oWkS->{Cells}[$iR][$iC];
$temp = $oWkC->Value if($oWkC);
$rec = $rec.$temp.";";
}
chop($rec);
$rec = $rec,"\r";
print $OUTPUT $rec,"\n";
}
}