Opened by rucksl at 2006-07-25 20:52
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
klar aber es funktioniert etwas anders:
* steht hier für die üblichen öffnungsvarianten wie z.B. ">" oder "<"
mal als Beispiel:
Aber warum speicherst du den Inhalt der Dateien nicht in Variablen zwischen? Dann wird die Abarbeitung auch schneller, da das lesen/schreiben einer Datei immer einige Zeit in Anspruch nimmt.
Code: (dl
)
open($hande,'*',$filename)
mal als Beispiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!usr/bin/perl
use strict;
my @files=();
push(@files,{name=>'./test.txt' open=>">", $fh=>''});
push(@files,{name=>'./test2.txt' open=>"<", $fh=>''});
push(@files,{name=>'./test3.txt' open=>">>", $fh=>''});
for my $i (@files)
{
open($i->{fh},$i->{open},$i->{name}) or die "Fehler $!\n";
}
# mach irgendwas mitr den Dateihandles
for my $i (@files)
{
close($i->{fh}) or die "Fehler $!\n";
}
Aber warum speicherst du den Inhalt der Dateien nicht in Variablen zwischen? Dann wird die Abarbeitung auch schneller, da das lesen/schreiben einer Datei immer einige Zeit in Anspruch nimmt.