Help for this page

Select Code to Download


  1. or download this
    
D:\>perl -E"my $x; BEGIN{$x=qr/a.*u/}; use re 'debug'; my $str = 'aou'
+; say $str
...
D:\>perl -E"my $x; BEGIN{$x=qr/a.*u/}; use re 'debug'; my $str = 'aou'
+; say $str
 =~ /$x/g"
aou
  2. or download this
    D:\>perl -E"my $x; BEGIN{$x=q/a.*u/}; use re 'debug'; my $str = 'aou';
+ say $str
=~ /$x/"
...
  doing 'check' fbm scan, [1..3] gave 2
  Found floating substr "u" at offset 2 (rx_origin now 0)...
... YADDA YADDA ...
  3. or download this
    D:\>perl -E"my $x; BEGIN{$x=qr/a.*u/}; use re 'debug'; my $str = 'aou'
+; say $str
 =~ /$x$x/"
...
String shorter than min possible regex match (3 < 4)

Freeing REx: "(?^u:a.*u)(?^u:a.*u)"
  4. or download this
    This is perl 5, version 32, subversion 1 (v5.32.1) built for MSWin32-x
+64-multi-t
hread