hi,

wollte mal fragen was die beste und einfachste methode ist, wenn ich mit einem script den inhalt aller datein(txt) in einem verzeichnis durchsuchen will.

also mit anderen worten: wenn ich jede im verzeichnis einmal mit while ($line = <IN>) durchlaufen will, wie bekomme ich dann nacheinander alle datein im verzeichnis in IN?

max

perldoc -f opendir
perldoc -f readdir
perldoc -f closedir




Fuer das Durchsuchen wuerde ich vielleicht Tie::File und grep benutzen oder File::Slurp...

ok, vielen dank erstmal. soweit läuft es. nur was muss ich in die <> klamm schreiben, damit ich in der while schleife jede zeile der datei bekomme. mit $file gehts irgendwie nicht, da kommt er nie in die schleife.


for my $file(@files){
print "1\n";
while ($line = <$file>)
{something
}

Du musst jede Datei fuer sich oeffnen und durchlaufen.

Nicht vergessen die perldocs zu lesen die renee dir genannt hat! ;)

[quote=renee,14.01.2006, 20:23]my @files = grep{-f $verzeichnis.'/'.$_}readdir(DIR);[/quote]
sowas ist mir zu
1. speicher intensiv
2. langsam

besser \n\n

<!--EDIT|esskar|1137283646-->

@esskar: jepp, hast recht...

Laufzeitmäßig benchmarke ich renees grep-Variante etwa 5% schlechter als esskars while.
Klar, Speicherverbrauch ist O(n) gegenüber O(1), aber außer man hat tausende von Dateien im Verzeichnis macht das IMHO nicht wirklich was aus?!

[quote=pKai,15.01.2006, 14:48]Klar, Speicherverbrauch ist O(n) gegenüber O(1), aber außer man hat tausende von Dateien im Verzeichnis macht das IMHO nicht wirklich was aus?![/quote]
ja... sobald es aber rekursiv wird, wirds hässlich...

bei wenig datein/verzeichnissen macht es nicht viel aus... aber das weiß man ja nicht

(PS: stört mich momentan bei C# ... da gibt es IMHO nur die möglichkeit, ein array aller verzeichnisse/files geben zu lassen ... das kann ab und an sau langsam sein

Sobald es rekursiv wird, benutze ich eh File::Find...

es geht auch noch einfacher:

<> kann man hier auch mit <ARGV> ersetzen.