Regular Expressions

[Beate Mielke]

Hallo Roland,

Aehem... naja, da ist wohl noch eine etwas groessere Korrektur notwendig. Die Idee ist gut, aber an der Umsetzung musst Du echt mal noch ein bisschen arbeiten. Die Loesung verrate ich natuerlich noch nicht, will Dir ja nicht den Spass verderben... ;-)

Dazu faellt mir nur ein - peinlich, peinlich -

Hoffentlich hat Marko das noch nicht ausprobiert.
Ich haette die Variable $Auswertung vielleicht mal mittesten sollen. War also reines Glueck, dass alle Tests das richtige Ergebnis geliefert haben.

So jetzt aber genug geredet, hier kommt die Korrektur:

$Testwort = <STDIN>;    
$Teststring = <STDIN>;

len = length($Testwort);
$Auswertung = "";

for ($i = 0; $i < len-1; $i++)
{
$Auswertung .= substr($Testwort, $i, 1) . ".*";
}

$Auswertung .= substr($Testwort, -1, 1);
$gefunden = ($Teststring =~ /$Auswertung/i) ? 1 : 0;

Aber danke fuer die Blumen...

gerne ;-)

Beate, die sseehhrr hofft, dass jetzt alles richtig ist ...