DevEdge

Diese Site durchsuchen
    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