alle wörter matchen - #63524 (Allgemeines zu Perl)

Crian

2006-03-13 14:00

User since
2003-08-04
5873 Artikel
ModeratorIn

Deine Regexp prüft, ob ein Wort vorkommt, das deinen Anforderungen entspricht. Wenn du prüfen willst, ob alle Worte den Anforderungen entsprechen, splitte deinen Text vorher:

Code: (dl )

my @strings = ('Hallo K', 'Hallo Karl');
for (@strings) {
    print "$_ : ", teste_string($_), "\n";
}

sub teste_string {
    my ($string) = @_;
    my $ok = 1;
    for (split /\s+/, $string) {
        $ok = 0 unless /\b([a-zA-Z0-9]{2,50})\b/;
    }
    return $ok;
}

Ausgabe:

Code: (dl )

1
2

Hallo K : 0
Hallo Karl : 1

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite