Leser: 4
|< 1 2 >| | 17 Einträge, 2 Seiten |
1 2
my $begriffe = "begriff1|begriff2|begriff 2"; print "OK" if $string =~ /\b$begriffe\b/ig;
1 2
my $begriffe = "begriff1|begriff2|begriff 2"; print "OK" if $string =~ /\b$begriffe\b/ig;
1 2 3 4 5 6
use strict; use warnings; my $string1 = "test1"; my $string = "test1"; my $re = qr/$string/; print "OK" if $string1 =~ $re;
|< 1 2 >| | 17 Einträge, 2 Seiten |