nicht angemeldet
Hallo Struppi!
my $line = $_ . ( /\bWORT1\b/ ? ', WORT2' : 'WORT1 WORT2');
Das ist aber nicht ganz, was »Perl Anfänger« erreichen will. Ich hatte zuerst auch das verstanden, weswegen ich ihm am Ende quasi die Würmer aus der Nase ziehen musste ;)
Die Zeichenkette »WORT1 WORT2« soll nur dann _am Ende der gesamten Eingabe_ hinzugefügt werden sollen, wenn in keiner Zeile »WORT1« vorkommt. Wenn aber »WORT1« vorkommt, soll(en) die jeweilige(n) Zeile(n) durch », WORT2« ergänzt werden.
Das ewige Problem einer zutreffenden Problembeschreibung... Außerdem hat er uns sein RegExp noch nicht erklärt... ;)
Viele Grüße aus Frankfurt/Main,
Patrick
--
_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?
_ - jenseits vom delirium - _
[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
Nichts ist unmöglich? Doch!
Heute schon gegökt?
Struppi
MudGuard