(aa)|(bb)|(cc)|(!11)|(!22)|(!33)
(aa)|(bb)|(cc)|!(11)|!(22)|!(33)
Guest Tim(Das Ziel: den zu untersuchenden String akzeptieren, wenn ein aa oder bb oder cc, und kein 11,22,33 vorkommt)
1 2 3 4 5 6 7 8 9 10
use strict; use warnings; my @strings = qw(aalglatt Saarland11); for my $string (@strings) { if ($string =~ /aa|bb|cc/ and $string !~ /11|22|33/) { print "OK: $string\n"; } }
Guest Tim(in wie fern könnte man da einen negativen look around nehmen?)