Opened by stormy2211 at 2007-11-02 21:31
User since
2013-02-18
6 Artikel
BenutzerIn
2013-02-18
6 Artikel
BenutzerIn
und schon steh ich vor dem nächsten Problem :(
ich hab die Hinweise und Tipps in mein Prog. verwendet und es funktioniert. danach hab ich weitere Befehle da rein geschrieben , so dass es die Verzeichnisse solange öffnet, bis er bei einem txt-file landet. dann soll er den file öffnen und im Inhalt ein Suchmuster finden, ersetzen und in eine neue Datei schreiben.ich hab es , damit ich nicht überfordert werde, erst mit zwei Verzeichnisse und eine Textdatei probiert. es funktioniert.
mein Problem ist nun folgendes:
ich habe zig Verzeichnisse. in jedem gibt es eine Datei, die keine txt-Endung hat, aber beinhaltet einen text. das Prog. soll die Verzeichnisse durchgehen, jede Datei in jedem Verzeichnis öffnen, suchen, ersetzen, dann das neue Inhalt mit dem Namen des Verzeichnisses, worin die Datei liegt, neu speichrn. z.B. ich habe Dir 1/2, 1/3, 1/4 (d.h in Verz.1 gibt es drei Unterverz. 2,3,4). nun soll er die Datei "1/2/mytext" mit den Namen 2.txt(Überordner.txt) irgendwo anders speichern. Ich weiss nicht, wie ich den Verzeichnisnamen als Name der Datei angeben kann.
hab es zu kompliziert erklärt fällt mir gerade auf !!
mein Code bis jetzt:
ich hab die Hinweise und Tipps in mein Prog. verwendet und es funktioniert. danach hab ich weitere Befehle da rein geschrieben , so dass es die Verzeichnisse solange öffnet, bis er bei einem txt-file landet. dann soll er den file öffnen und im Inhalt ein Suchmuster finden, ersetzen und in eine neue Datei schreiben.ich hab es , damit ich nicht überfordert werde, erst mit zwei Verzeichnisse und eine Textdatei probiert. es funktioniert.
mein Problem ist nun folgendes:
ich habe zig Verzeichnisse. in jedem gibt es eine Datei, die keine txt-Endung hat, aber beinhaltet einen text. das Prog. soll die Verzeichnisse durchgehen, jede Datei in jedem Verzeichnis öffnen, suchen, ersetzen, dann das neue Inhalt mit dem Namen des Verzeichnisses, worin die Datei liegt, neu speichrn. z.B. ich habe Dir 1/2, 1/3, 1/4 (d.h in Verz.1 gibt es drei Unterverz. 2,3,4). nun soll er die Datei "1/2/mytext" mit den Namen 2.txt(Überordner.txt) irgendwo anders speichern. Ich weiss nicht, wie ich den Verzeichnisnamen als Name der Datei angeben kann.
hab es zu kompliziert erklärt fällt mir gerade auf !!
mein Code bis jetzt:
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
use strict;
use warnings;
my $Dir='C:/1';
opdir($Dir);
sub opdir{
my ($Dir) = shift;
opendir (my $DirHandle,$Dir) or die "dir nicht gefunden\n";
while(my $Filename = readdir($DirHandle))
{
print "Filename='$Filename'\n";
next if($Filename eq '.' or $Filename eq '..');
if(-d $Dir.'/'.$Filename)
{
my $SubDir = $Dir.'/'.$Filename;
opdir($SubDir);
}
elsif(-f $Dir.'/'.$Filename)
{
my $File = $Dir.'/'.$Filename;
opfile($File);
}
}
}
sub opfile{
my ($File) = shift;
print "File: $File\n";
#return;
open (my $FileHandle,$File) or die "file '$File' nicht gefunden: $!\n";
open (my $Schreiben,'>',"C:/geaendert/mytext.txt") or die "kann nicht schreiben $!\n";
while(my $zeile = <$FileHandle>)
{
#chomp;
#print "$zeile\n";
$zeile=~ s/l/*/g;
print "$zeile\n";
print $Schreiben "$zeile\n";
}
}