Leser: 17
1
2
3
4
5
6
7
8
9
my $w="12_12rrr_p3 4";
my $x="p3 4";
#print $w;
if($w =~ /(12_12rrr_)$x/xs) {
print "ok: " .$1;
}
else {print "no";}
1
2
3
4
5
6
7
my $re = qr{
^ # hier geht es los
3 # eine "echte" drei
[ ] # ein "echtes" Leerzeichen
4 # eine "echte" vier
$ # hier hoert es auf
}x;