Opened by ahnungsloser at 2005-08-19 13:53
User since
2003-09-03
80 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-03
80 Artikel
BenutzerIn
So,
erstma vielen Dank! Da sind ja viele sehr gute Anregungen dabei!
Es sollte erstma eine schnelle Lösung sein, zu alle dem auch noch Windoof funktionierend.....
So hats wohl auch gefunzt!
erstma vielen Dank! Da sind ja viele sehr gute Anregungen dabei!
Es sollte erstma eine schnelle Lösung sein, zu alle dem auch noch Windoof funktionierend.....
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
###############################################################################
### PerlScript um *.txt Dateien zu einer zusammen zu f&¸hren ###
### Script by: H. Appel ###
### Datum: 19.08.2005 Version 0.01 ###
###############################################################################
$aktverz = $ARGV[0]; #aktuelles Verzeichnis
$ausgabedat = $ARGV[1]; #Ausgabe Datei
# Verzeichnis &ˆffnen und Dateien nacheinander einlesen
if (chdir $aktverz) {
@alledateien = <*.txt>; #alle Textdateien im Verzeichnis ermitteln
}
else {
print "Konnte das Verzeichnis nicht finden!\n";
}
# Alle gefundenen Dateien &ˆffnen
open (OUT, ">>$ausgabedat") || die "Kann Datei nicht anlegen!"; # Ausgabe Datei erstallen
foreach $data (@alledateien) {
open (IN, "$data") || die "kann die Dateien nicht &ˆfnnen"; #Dateien &ˆffnen
foreach $hm (<IN>){
print OUT $hm;
close (IN);
}
}
close (OUT);
So hats wohl auch gefunzt!