title image


Smiley Re: .txt-Dateien durchsuchen ???
Mein Vorschlag (kannst du ja noch anpassen und ausbauen):@stichwort = ("Londo", "Luke", "Yoda"); #suche nach$muster=join("|", @stichwort); #Das Suchmuster erstellen@files=("babylon.5", "red.5", "aliens.txt"); #Die Dateienforeach $filename (@files) { open(FILE," local $/; #Schlürfmodus $text = ; close(FILE); while ($text =~ m/\[a name=(\d)\](.*?)\[\/a\]\n(.*?)\n/gmo) { #Daten in $1,$2,$3 "speichern" $nr = $1; #Eintrag Nr. $head = $2; #Überschrift $body = $3; #Text (nur eine Zeile!!!) if (($head =~ m/$muster/o) or ($body =~ m/$muster/o)) { #Suchmuster nur einmal kompelieren #Ausgabe als Link oder so ähnlich }}

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: