The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BRIANDFOY / PerlBench-1.004 / benchmarks / re / const.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

              
#!perl
# Name: Regexp matching of /constant/
# Require: 4
# Desc:
#
require 'benchlib.pl';
$a = ("-" x 100) . "foo" . ("-" x 100);
&runtest(15, <<'ENDTEST');
   $a =~ /foo/;
   $a =~ /---/;
   $a =~ /bar/;
   $a =~ /foo/;
   $a =~ /---/;
   $a =~ /bar/;
ENDTEST