Opened by stormy2211 at 2007-11-02 21:31
User since
2013-02-18
6 Artikel
BenutzerIn
2013-02-18
6 Artikel
BenutzerIn
QuoteVermutlich hast du deine Muster nicht am Stringende verankert. Zeig doch mal ein paar deiner Versuche, dann können wir schnell sagen, was nicht stimmt.
danke für den Hinweis. hat in dieser Form "/^XA$/" geklappt. das sind halt Kleinigkeiten, auf die man als Anfänger nicht drauf kommt :)
QuoteWas meinst du mit an einigen Stellen? Bestimmt nicht die opendir-Variante von topeg. topeg tut so etwas nicht.
damit meinte ich auf verschiedenen Webseiten oder in verschiedenen Tutorien.
QuoteDabei mußt Du das Modul "File::Find" verwenden, das ist jedenfalls der einfachste Weg.
dieses Modul kannte ich ja noch nicht, war aber relativ hilfreich. damit habe ich nur die Dateien finden und auf der Konsole zeigen können. geht es auch , dass ich nach File::Find sage , dass im Inhalt dieser gefundenen Dateien nach ein besonderes Suchmuster gesucht, ersetzt und in einer neuen Datei geschrieben werden soll?
ich habe versucht mit Subroutinen erstmal die Sache mit opendir() für mehrere Verzeichnisse zu testen. mein Code sieht folgendes aus : (hat sicher viele Fehler ! wollte es gerne selber hinkriegen, aber komm nicht weiter :( )
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
use strict;
use warnings;
my $Dir='C:/1';
&opdir();
sub opdir{
opendir (my $DirHandle,$Dir) or die "dir nicht gefunden\n";
while(my $Filename = readdir($DirHandle))
{
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{
open (my $FileHandle,$Dir) or die "file nicht gefunden\n";
while (my $zeile = <$FileHandle>)
{
print "$zeile\n";
}
}
bin dir und den anderen sehr dankbar für eure duldige Hilfestellung !!