> Otherwise you could use one of the RegEx parsing modules on the regex to associate name to index.
It's a hack but it gives you a hash mapping each name to it's index:
(see Dynamically inspecting Regex OP-Codes at runtime? for an explanation)
use strict;
use warnings;
use Data::Dump;
my $a=qr/(?<C>1)(?<D>2)(3)(?<A>4)/;
my $parsing=parse_regex($a);
# parse lines like ' 1: OPEN1 'C' (3)'
my %named_captures =
($parsing =~ /^
\s{1,3}\d{1,3}:\s+ # token number
OPEN(\d)[ ]'(\w+)' # group(nr) 'name'
[ ]\(\d+\) # next token
$
/xgm);
my %index_named_capture = reverse %named_captures;
dd \%index_named_capture; # OUTPUT { A => 4, C => 1, D
+=> 2 }
sub parse_regex {
my $regex=shift;
my $re_compilation;
# First, save away STDERR
open my $SAVEERR, ">&STDERR";
close STDERR;
open STDERR, ">", \$re_compilation or die "What the hell?\n";
# Now dynamically recompile a new regex, saving debug_info to $re_co
+mpilation
eval <<'_code_';
use re 'debug';
my $b=qr/$regex(?:)/;
_code_
# Now close and restore STDERR to original condition.
close STDERR;
open STDERR, ">&", $SAVEERR;
return $re_compilation;
}
Careful: ATM this can't handle repeated names properly, for this you need to adjust the reverse part.
UPDATES
corrected typo in code
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|