Opened by perlniete at 2009-02-09 01:09
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.
Code (perl): (dl
)
if ( $line =~ /^\s*/ ) {exit; }
"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.)
Code (perl): (dl
)
1 2 3
while ( $sequence =~ /$regexp/ig ) { push ( @positions, pos($sequence) - lenght($&) +1); }
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.