Reguläre Ausdrücke kurz & gut, 2nd Edition

Beispiele

# Suche nach Spider-Man, Spiderman, SPIDER-MAN usw.
my $dailybugle = "Spider-Man Menaces City!";
if ($dailybugle =~ m/spider[- ]?man/i) { mach_was(  ); }

Listing 1.1 Einfaches Matching

# Datumsangaben in Formaten wie MM/DD/YYYY,
# MM-DD-YY ... erkennen
my $date  = "12/30/1969";
my $regex = qr!^(\d\d)[-/](\d\d)[-/](\d\d(?:\d\d)?)$!;
if ($date =~ m/$regex/) {
  print "Tag=  ", $1,
        "Monat=", $2,
        "Jahr= ", $3;
}

Listing 1.2 Match, Capture-Gruppe und qr

# <br> XHTML-konform in <br /> umwandeln
my $text = "Hallo Welt! <br>";
$text =~ s#<br>#<br />#ig;

Listing 1.3 Einfache Substitution

# urlify - URLs in HTML-Links umwandeln $text = "Besuchen Sie die Website " . "http://www.oreilly.de/catalog/regexpprger/."; $text =~ s{ \b # an Wortgrenze beginnen ( # ...