Ich bin für eure Hilfe echt sehr sehr sehr dankbar... Jetz hätte ich noch 2 Fragen:



1) if ( $line =~ /^\s*/ ) {exit; } Diese Abfrage führt dazu dass das Programm auf Eingabe von <Return> abgebrochen wird, allerdings versteh ich nicht wieso, der sucht doch da auch nur nach Leerzeichen oder nicht?


Antwort war : Ja, aber er sucht auch nach Null whitespaces am Anfang des Strings, und die werden natürlich immer gefunden - die Regex matcht also jeden String.


Meine Frage :wenn er jeden String matchen würde wieso bricht er dann ab, das hieße doch das der Match den er findet eine True Aussage ist und somit dürfte er doch nicht abbrechen





2)Ich hab mich mit etwas für mich schwierigerem beschäftigt....folgende Aufgabe, und ich hoffe ich muss euch danach nicht mehr belästigen.

while ( $sequence =~ /$regexp/ig ) {
push ( @positions, pos($sequence) - lenght($&) +1);
}

Diese Zeilen sollen die Restriktionsschnittstelle, die im reulären Ausdruck $regexp steht, in der Sequenz $sequence und vermerken die Position glaub ich dann im Array @positions.

dass das i dafür steht das der Groß- und Kleinschreibung irgnoriert hab ich mitlerweile rausbekommen, aber woher kommt die Positionsangabe und wie werden die dann im Array vermerkt?

Ich hoff ihr seit noch ned all zu genervt!

DRINGEND!!!!!!!

Ich find deinen Stil nervig

EDIT: Anzahl der Ausrufezeichen korrigiert!

LanX-+2009-02-09 00:31:04--

DRINGEND!!!!

Ich find deinen Stil nervig

entschuldigung das ich versuche freundlich zu fragen und erst kurz vor der Klausur Hilfe erbitte. Ich habe versucht es ohne HIlfe zu schaffen.

perlniete+2009-02-09 00:35:19--

entschuldigung das ich versuche freundlich zu fragen

Entschuldigung das ich dir Feedback gebe warum dir viele auf dein "freundliches" Gegängel nicht antworten werden!

LanX-+2009-02-09 00:48:55--

perlniete+2009-02-09 00:35:19--

entschuldigung das ich versuche freundlich zu fragen

Entschuldigung das ich dir Feedback gebe warum dir viele auf dein "freundliches" Gegängel nicht antworten werden!

Ok in meinen Augen ist das zwar keine "gegängel" aber ok wenn es dir sauer aufstößt musst du meine Fragen ja nicht beantworten, allerdings finde ich es faszinierend das du dich eher darüber "ärgerst" wie meine Fragen gestellt sind, anstatt einfach mal hinzunehmen das jemand keine Anhnung von Perl hat und versucht sich auf eine Prüfung vorzubereiten. Wenn du mir nicht helfen magst ist das durchaus in Ordnung, musst du nicht.

wäre trotzdem nett wenn mir jemand meine Ausgangsfrage beantworten könnte oder ist diese wirklich so schlimm gestellt?

zu 1.)

"if" reagiert auf eine wahre Aussage. Wenn "$line=~/^\s*/" wahr ist wird das Programm beendet.
Aber der reguläre Ausdruck ist immer wahr, denn er fragt ob kein oder beliebig viele Leerzeichen am Anfang eines Strings vorkommen. Die Aussage ist immer wahr.

zu 2.)
hier gibt es folgende Perl-Befehle:
a) while
b) =~
c) push
d) length
e) $&

zu a) wiederhole den Block solange die Aussage wahr ist
zu b) regulärer Ausdruck.
zu c) füge den String/Liste an das Array @positions an.
zu d) Ermittle die Länge eines Stringes.
zu e) der String, den der Reguläre Ausdruck matched.

"pos" ist ein Funktionsaufruf. die Funktion muss irgendwo definiert sein. Höchstwahrscheinlich wird ein Zahlenwert zurückgeliefert.

danke!

Das heißt also das pos($sequence) verantwortlich ist für den Zeiger der dann an das Array angehangen wird.

pos ist eine Perlfunktion, die die Position im String nach der letzten m//g-Suche zurückliefert:



gibt 3 aus.

Siehe auch perldoc -f pos

Bei so etwas wie



sollte man immer hellhörig werden. Entweder möchtest du alle speziellen Zeichen dadrin escapen



oder du möchtest vorher irgendwie sicherstellen, dass du da keinen Schadcode (endloser regulärer Ausdruck etwa) ausführst.