LinkBack URL
About LinkBacks
Zitierenzu 1: readdir
zu 2: while( <FILE> ) { if ( $_ =~ m/Theme: Test/ ) { print "ja\n" } }
Hallihallo!
Ich habe ein paar kleine Fragen bzgl. Perl-Befehle:
1. Directorys auslesen?
Kann ich mit Perl ein Verzeichnis auslesen und die darin vorkommenden Dateien/Ordner ausgeben?
2. Datei öffnen und solange durchgehen, bis er in eíner Zeile
"Theme: Test" findet. auch wenn "Theme: Test xx..." vorkommt, soll er "ja" ausgeben
Tja vorerst war's das =)
Danke schon jetzt für schnelle Antworten!
LG aus Österreich
Manuel
Programmieren ist ein ständiger Wettkampf zwischen Programmieren, die versuchen, immer neuere und idiotensicherere Programme zu schreiben und dem Universum, das immer größere und dümmere Idioten erzeugt. Bisher hat immer das Universum gewonnen!
zu 1: readdir
zu 2: while( <FILE> ) { if ( $_ =~ m/Theme: Test/ ) { print "ja\n" } }
Gruß, der Michl
* * * if you want them to RTFM, make a better FM! * * *
Hi!Original geschrieben von webmichl
zu 1: readdir
zu 2: while( <FILE> ) { if ( $_ =~ m/Theme: Test/ ) { print "ja\n" } }
Danke! Bis auf die 2. Antwort geht das.
Da hab ich das Problem, dass er nicht "Ja" ausgibt. Und
zwar sieht mein If so aus:
if ( $_ =~ m/Subject: [TESTMAIL]/ ) {
er soll nach Subject: [TESTMAIL] und so suchen,
und was halt dannach steht... =)
*g* pls warum geht das net?
danke
manuel
Programmieren ist ein ständiger Wettkampf zwischen Programmieren, die versuchen, immer neuere und idiotensicherere Programme zu schreiben und dem Universum, das immer größere und dümmere Idioten erzeugt. Bisher hat immer das Universum gewonnen!
Weil die Überprüfung über eine regexp läuft - und für die haben eckige Klammern eine eigene Bedeutung. Maskiere sie mit einem Backshlash \ - dann sollte es funktionieren:
Code:f ( $_ =~ m/Subject: \[TESTMAIL\]/ )
Gruß, der Michl
* * * if you want them to RTFM, make a better FM! * * *
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)