blob: a548fe44102c25cb3a680dad5de4a6fd700b33da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use re Debug=>qw(COMPILE EXECUTE OFFSETS);
my @tests=(
XY => 'X(A|[B]Q||C|D)Y' ,
foobar => '[f][o][o][b][a][r]',
x => '.[XY].',
'ABCD' => '(?:ABCP|ABCG|ABCE|ABCB|ABCA|ABCD)',
'D:\\dev/perl/ver/28321_/perl.exe'=>
'/(\\.COM|\\.EXE|\\.BAT|\\.CMD|\\.VBS|\\.VBE|\\.JS|\\.JSE|\\.WSF|\\.WSH|\\.pyo|\\.pyc|\\.pyw|\\.py)$/i',
'q'=>'[q]',
);
while (@tests) {
my ($str,$pat)=splice @tests,0,2;
warn "\n";
$pat="/$pat/" if substr($pat,0,1) ne '/';
# string eval to get the free regex message in the right place.
eval qq[
warn "$str"=~$pat ? "%MATCHED%" : "%FAILED%","\n";
];
die $@ if $@;
}
|
