Einführung in Perl, Sixth Edition

Lösungen zu den Übungen in Kapitel 8

1. Es gibt einen einfachen Weg, dies zu erledigen, den wir bereits im Text des Kapitels vorgestellt haben. Wenn Ihre Ausgabe nicht vorher<Treffer>nachher lautet, wie es eigentlich sein sollte, haben Sie einen schwereren Weg gewählt.

2. Eine mögliche Lösung sieht so aus:

   /a\b/

   (Dies ist ein Muster für die Verwendung im Testprogramm.) Findet Ihr Muster versehentlich auch barney, so haben Sie vermutlich keinen Anker für die Wortgrenze verwendet.

3. Hier eine mögliche Lösung:

   #!/usr/bin/perl
   while (<STDIN>) {
     chomp;
     if (/(\b\w*a\b)/) {
       print "Treffer: |$`<$&>$'|\n";
       print "\$1 enthält '$1'\n";       # die neue Ausgabezeile
     } else {
       print "Kein Treffer: |$_|\n";
     }
   }

   Dieses Muster verwendet ein Paar Wortgrenzen-Anker (\b)^[420] innerhalb ...