Help for this page

Select Code to Download


  1. or download this
    use YAPE::Regex::Explain;
my $regex = '/^([0-9]+)\.([0-9]+)\s+date\s+(\d\d(\d\d)?(\.\d\d){5}?);$
+/o';
...
print '#' x 60,"\n";
print YAPE::Regex::Explain->new(qr/a{1,5}?/)->explain;
__END__
  2. or download this
    ############################################################
The regular expression:
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------