Sahanya

Verschiedene Muster können auf unterschiedliche Weise verwendet werden, z.B. um Ersetzungen vorzunehmen oder aber auch um diese in einer bestehenen Skalarvariable zu finden bzw. zu sehen, ob das Muster paßt ( =~ m/muster/) — m: match bzw. passen

Für alle folgenden Beispiel gilt:

#!usr/bin/perl -w
$a = "sahanya_25";
diese Zeile wird durch die in den Beispielen ersetzt
print "das ist wahr\n";
}
else {
print "das ist falsch\n";
}

Muster für einzelne Zeichen und Zeichenkombinationen:

if ($a =~ m/A/) { falsch, der Buchstabe A kommt nicht vor
if ($a =~ m/A/i) { wahr, der Buchstabe A, egal ob groß oder klein, kommt vor
if ($a =~ m/a/) { wahr

if ($a =~ m/sha/) { falsch, die Buchstabenkombination „sha” kommt nicht vor
if ($a =~ m/saha/) { wahr

if ($a =~ m/[A-Z]/) { falsch, kein Großbuchstabe kommt vor
if ($a =~ m/[a-z]/) { wahr

if ($a =~ m/h(?=h)/) { falsch, auf den Buchstaben h folgt kein h
if ($a =~ m/h(?=a)/) { wahr

if ($a =~ m/h(?!a)/) { falsch, auf den Buchstaben h folgt ein a
if ($a =~ m/h(?!h)/) { wahr

if ($a =~ m/as|b/) { falsch, $a enthält weder die Buchstabenkombination as noch den Buchstaben b
if ($a =~ m/a|b/) { wahr $a enthält a und/oder b

if ($a =~ m/(s|n)b/) { falsch, weder auf s noch auf n folgt ein b
if ($a =~ m/(s|n)a/) { wahr, denn auf s folgt ein a

if ($a =~ m/[6-9]/) { falsch, keine der Zahlen 6 bis 9 kommt vor
if ($a =~ m/[0-9]/) { wahr
if ($a =~ m/[\d]/) { kürzer

if ($a =~ m/[a-zA-Z0-9_]/) { wahr

if ($a =~ m/[\w]/) { kürzer

if ($a =~ m/[\s]/) { falsch, es gibt keine Leerzeichen
if ($a =~ m/[\S]/) { wahr

das Zeichen „^” verneint die folgende Aussage:

if ($a =~ m/[^0-9]/) { wahr (es gibt Nicht-Zahlen bzw. Buchstaben)
if ($a =~ m/[\D]/) { kürzer

if ($a =~ m/[^a-zA-Z0-9_]/) { falsch, es gibt Wortzeichen
if ($a =~ m/[\W]/) { kürzer