Opened by giordano at 2010-02-17 14:50
Hallo,
Ich habe eine Subroutine extractXLS() geschrieben, das aus Excel-Files eine Text-Datei erstellt. Diese Text-Datei wird anschliessend kopiert in ein anderes Verzeichnis. Nun ist mir aufgefallen, dass die kopierte Version nicht alle Zeile enthält und ich vermute, dass der Kopiervorgang bereits begonnen hat, bevor die Subroutine abgeschlossen war. Wie kann ich den Kopiervorgang erst dann starten, wenn die Subroutine abgeschlossen ist?
Bin für jeden Tipp dankbar.
Gruss
giordano
Ich habe eine Subroutine extractXLS() geschrieben, das aus Excel-Files eine Text-Datei erstellt. Diese Text-Datei wird anschliessend kopiert in ein anderes Verzeichnis. Nun ist mir aufgefallen, dass die kopierte Version nicht alle Zeile enthält und ich vermute, dass der Kopiervorgang bereits begonnen hat, bevor die Subroutine abgeschlossen war. Wie kann ich den Kopiervorgang erst dann starten, wenn die Subroutine abgeschlossen ist?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use File::Copy;
...
...
while ( my $excel = readdir(EXCELFILES) ) {
if ( $excel =~ /xls/ ) {
extractXLS(....); # produziert ein txt-File in $directory_txt
}
}
my @filecopy = ("a.txt","b.txt","c.txt","d.txt");
foreach my $file (@filecopy ) {
# erst starten, wenn extractXLS abgeschlossen ist
copy($directory_txt.$file,$directory_txtcopy.$file) or die "File cannot copied";
}
Bin für jeden Tipp dankbar.
Gruss
giordano