Hallo ich bin totaler Newbie und Perl ist meine erste Programmier-sprache, die ich lerne. Außerdem bin ich erst 15 Jahre alt.

Und nun meine Frage, in meinem Buch für den Einstieg in Perl steht folgende Übung:

Schreiben Sie ein Programm, das jede Eingabezeile ausgibt, in der fred orkommt. (Andere Eingabezeilen sollen nicht behandelt werden.) Findet das Muster auch Fred, frederick oder Alfred? Erstellen sie eine kleine Testdatei, in der " fred feuerstein" und seine Freund vorkommen. Benutzen Sie diese Datei als Eingabe für dieses Programm.

Die Lösung sieht folgendermaßen aus:


Kann mir nun vielleicht jemand erklären warum man hier "while" benutzt? While wiederholt die Schleife doch so oft bis sie wahr ist. Ich seh hier einfach keinen Zusammenhang! :(

Danke im Vorraus
Gruß Jakob

[quote=pl,04.June.2007, 23:24]Die Lösung sieht folgendermaßen aus:


Kann mir nun vielleicht jemand erklären warum man hier "while" benutzt? While wiederholt die Schleife doch so oft bis sie wahr ist. Ich seh hier einfach keinen Zusammenhang! :(

Danke im Vorraus
Gruß Jakob[/quote]
Nein,
while wiederholt die Schleife solange wie der Ausdruck war ist. Solange bis der Ausdruck war ist, ist die until schleife.

Ansonsten wo steckt den dein genaues Problem?


Geht entweder jede Zeile aus den angegeben Dateien in @ARGV durch, oder STDIN. Die aktuelle Zeile wird in $_ gespeichert.


Die Regex in der if bedingung schaut ob 'fred' in $_ vorkommt, wenn ja ist die if Bedingung erfüllt und es wird:


ausgeführt. Ohne Argument gibt es $_ aus, also unsere aktuelle Zeile.


while wird solange ausgeführt wie wir noch neue Zeilen bekommen. Also alle Zeilen werden durchgearbeitet. Wenn alle zeilen abgearbeitet wurde kommt ein 'undef' und die while Schleife ist abgebrochen.

Ansonsten würde ich das Beispiel im neuen Perl etwas anders schreiben:



Aber eigentlich würde ich anstatt der Regex sogar lieber ein "index" in diesem Fall nehmen. Ist Perfomanter. Soll Groß kleinschreibung egal sein, dann vorher den String mit lc klein machen und dann index nutzen.\n\n

<!--EDIT|sid burn|1180994915-->

kennst du meine Einfuehrung in Perl unter http://www.fabiani.net/ -> Vortraege? Da steht sehr ausfuehrlich drinnen, warum while und nicht foreach

/fred/ findet nur fred in genau dieser Schreibweise (auch Alfred oder frederick), nicht aber Fred, FRED oder Frederik.

Wenn du nur genau fred als wort finden willst, nicht aber Alfred, dann hilft /\bfred\b/ , siehe das Kapitel Regulaere Ausdruecke in meiner Einfuehrung.


/fred/i findet Fred, AlFred, FRED, ...

sid burn hat noch mehr gute sachen geschrieben\n\n

<!--EDIT|Strat|1180995175-->

Hey danke für die Antworten:)

"while wird solange ausgeführt wie wir noch neue Zeilen bekommen. Also alle Zeilen werden durchgearbeitet. Wenn alle zeilen abgearbeitet wurde kommt ein 'undef' und die while Schleife ist abgebrochen." => das hat mir geholfen, danke!

Was Regex ist weiß ich allerdings nicht.

In den Vorträgen find ich mich nicht so gut zurecht, kannst du mri vielleicht den genauen Link geben?

RegEx sind Reguläre Ausdrücke. Hier mal ein paar Links zu Einführungen:

*) http://www.tekromancer.com/perl2/7.html
*) http://www.regenechsen.de/phpwcms/index.php?regex_allg

Der Link zu "Einführung in Perl" von Strat: http://fabiani.net/talks/strat_perl_intro_v0.07.pdf

Aus reiner Neugierde: wie heisst das Buch zum Üben ?
An die RegEx sollte man sich erst richtig heranmachen, wenn die Perl Basis solide ist ;-)

Gruss MisterL

Naja, die Grundlagen von RegEx sind Sprachenübergreifend und hat erstmal nichts mit einer Sprache an sich zu tun. RegEx ist ein allgemeines Thema bei Computern...

[quote=MisterL,05.June.2007, 11:29]Aus reiner Neugierde: wie heisst das Buch zum Üben ?
An die RegEx sollte man sich erst richtig heranmachen, wenn die Perl Basis solide ist ;-)

Gruss MisterL[/quote]
Also die Übung kommt mir noch sehr bekannt vor.

Das ist das Buch "Einführung in Perl". Allerdiengs gibt es in dem Buch 3 Kapitel zu Regulären Ausrrücken. ...

Quote

Das ist das Buch "Einführung in Perl"

Kenne ich vom Inhalt her (noch) nicht. Man hat halt andere Prioritäten ;-)
Und RegEx sind in (hoffentlich) allen Sprachen vorzufinden. Aber Perl ist für die Datenmanipulation doch direkt prädestiniert, von daher die explizite Erwähnung.