Regex / Teilausdrücke merken - #184349 (Allgemeines zu Perl)

Muffi

2016-04-04 08:23

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Also du willst Worter in denen alle Vokale drin vorkommen, jeder aber nur genau einmal.

Ich würd das nicht in eine einzige Regex packen.
Mach doch ne Schleife über qw(a e i o u), da matcht du jeden und schaust, dass Anzahl 1 rauskommt. Und insgesamt müssen alle Vokale matchen.

Also schnell hingeschlonzt ungefähr sowas:

Code (perl): (dl )

1
2
3

for my $word (@words) {
        say $word if (scalar(grep { my $count = () = $word =~ /$_/; $count == 1 } qw(a e i o u)) == 5);
}

edit: statt dem grep ... == 5 kann man natürlich auch einen "all" benutzen, aber den hab ich grad nicht da.
Last edited: 2016-04-04 08:24:49 +0200 (CEST)

1 + 1 = 10