Perl‎ > ‎

Reguläre Ausdrücke (Perl)


Beispiel #1 

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Das ist ein Text.';

if ($text =~ /ein/) { # sucht "ein"
    print 'Gefunden!';
} else {
    print "Nicht gefunden!";
}

Beispiel #2

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Das ist ein Text.';

if ($text =~ /Text.$/) { # sucht "Text." am Ende ($)
    print 'Gefunden!';
} else {
    print "Nicht gefunden!";
}

Beispiel #3

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Das ist ein Text.';

if ($text =~ /IsT/i) { # sucht "IsT" unabhängig von Klein- und Großschreibung (i)
    print 'Gefunden!';
} else {
    print "Nicht gefunden!";
}

Beispiel #4

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Der / ist das Trennzeichen für Anfang und Ende.';

if ($text =~ /\//) { # sucht "/"; der / muss maskiert werden
    print 'Gefunden!';
} else {
    print "Nicht gefunden!";
}

Beispiel #4 A

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Der / ist das Trennzeichen für Anfang und Ende.';

if ($text =~ m{/}) { # sucht "/" mit eigenen Tennzeichen (m)
    print 'Gefunden!';
} else {
    print "Nicht gefunden!";
}

Beispiel #5

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$text = 'Das ist ein Text.';

if ($text =~ /ist|ein/) { # sucht "ist" oder (|) "ein"
    print 'Gefunden!';
} else {
    print "Nicht gefunden!";
}

Siehe auch