Thread (re)open Textdatei (6 answers)
Opened by toldap at 2010-04-06 17:07

toldap
 2010-04-06 17:07
#135782 #135782
User since
2010-04-06
5 Artikel
BenutzerIn
[default_avatar]
Hallo Zusammen

Ich wollte mir ein kleines Perlscript zusammenbasteln, welches eine Textdatei einliest und entsprechend handelt.

Foglendes habe ich zusammen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl

my $IN;

open ($IN,'</test.txt') ;

while (<$IN>){

if (/TESTWORT1/ .. /\-\-\-/) {
print_log "TESTWORT1 found";

}
else {
print_log "TESTWORT1 notfound";
}
}


Die Datei test.txt wird also geöffnet und es wird nach dem Wort TESTWORT1 gesucht. Wenn das Wort gefunden wird, wird "TESTWORT1 found" ausgegeben. Wenn nicht, wird "TESTWORT1 notfound" ausgegeben.
Soweit funktioniert das auch.

D.h. die Textdatei ist leer und wird dann gefüllt mit dem Wort TESTWORT1. Dann ändert die Ausgabe auch wie sie soll von "TESTWORT1 notfound" zu "TESTWORT1 found". Wenn Das TESTWORT1 jetzt wieder aus der Datei entfernt wird, ändert sich die Ausgabe jedoch nicht wieder zurück zu "TESTWORT1 notfound". Erst wenn das ganze Script neu gestartet wird, kommt wieder die richtige Ausgabe.

Ich denke also, ich müsste die Datei sozusagen nach dem ersten "ändern" wieder neu einlesen. Nur habe ich keien Anhung wie das gehen soll. Ich bin für jede Hilfe sehr dankbar.

Gruss
toldap
Last edited: 2010-04-06 17:10:29 +0200 (CEST)

View full thread (re)open Textdatei