Lines Matching refs:snum
41 $snum = s/\\/\\\\/g;
42 ok( $_ eq '\\' x 8 && $snum == 4 );
46 $snum = s/\//\/\//g;
47 ok( $_ eq '\\//' x 4 && $snum == 4 );
243 $snum = s/(?<!x)c/x/g;
244 ok( $_ eq "xxxxx" && $snum == 5 );
247 $snum = s/(?<!x)(c)/x/g;
248 ok( $_ eq "xxxxx" && $snum == 5 );
251 $snum = s/(?<!r)foobbar/foobar/g;
252 ok( $_ eq "foobarfoobbar" && $snum == 1 );
255 $snum = s/(?<!ar)(foobbar)/foobar/g;
256 ok( $_ eq "foobarfoobbar" && $snum == 1 );
259 $snum = s/(?<!ar)foobbar/foobar/g;
260 ok( $_ eq "foobarfoobbar" && $snum == 1 );
267 $snum = tr/a/b/s;
268 ok( $_ eq "bbcbb" && $snum == 4,
283 $snum =
301 ok( $snum == 31 );
304 $snum = s/a(?{})//g;
305 ok( $_ eq '' && $snum == 6 );
308 $snum = s/(\d*|x)/<$1>/g;
310 ok( $_ eq $foo && $snum == 41 );
316 $snum = s/\Ga/xx/g;
317 ok( $_ eq 'aaaaaaxxxxxx' && $snum == 3 );
321 $snum = s/\Ga/x/g;
322 ok( $_ eq 'aaaaaaxxx' && $snum == 3 );
335 $snum = s/\Ga/xx/g;
336 ok( $_ eq 'xxxxxxxxxxxxxxxxxx' && $snum == 9 );
339 $snum = s/\Ga/x/g;
340 ok( $_ eq 'xxxxxxxxx' && $snum == 9 );
351 $snum = s/\ba/./g;
352 ok( $_ eq '.aaa' && $snum == 1 );
366 $snum = s/\B\w//g;
367 ok( $_ eq "C B" && $snum == 12 );