ein paar kleine fragen =)

[alfmanuel]

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

[webmichl]

zu 1: readdir

zu 2: while( <FILE> ) { if ( $_ =~ m/Theme: Test/ ) { print "ja\n" } }

[alfmanuel]

Original geschrieben von webmichl
zu 1: readdir

zu 2: while( <FILE> ) { if ( $_ =~ m/Theme: Test/ ) { print "ja\n" } }

Hi!

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

[webmichl]

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:

f ( $_ =~ m/Subject: \[TESTMAIL\]/ )