Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
use YAPE::Regex::Explain;
my $fieldname = 'SomeTag';
say YAPE::Regex::Explain->new(qr|<$fieldname>(.*?)</$fieldname>|i)->ex
+plain();
  2. or download this
    The regular expression:

(?i-msx:<SomeTag>(.*?)</SomeTag>)
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------