Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: offset of named capture buffer

by Anonymous Monk
on Nov 06, 2012 at 13:48 UTC ( #1002474=note: print w/ replies, xml ) Need Help??


in reply to Re: offset of named capture buffer
in thread offset of named capture buffer

esp see http://perl5.git.perl.org/perl.git/blob?f=regcomp.c#l6532

6524 if (rx && RXp_PAREN_NAMES(rx)) { 6525 HE *he_str = hv_fetch_ent( RXp_PAREN_NAMES(rx), namesv, 0 +, 0 ); 6526 if (he_str) { 6527 IV i; 6528 SV* sv_dat=HeVAL(he_str); 6529 I32 *nums=(I32*)SvPVX(sv_dat); 6530 for ( i=0; i<SvIVX(sv_dat); i++ ) { 6531 if ((I32)(rx->nparens) >= nums[i] 6532 && rx->offs[nums[i]].start != -1 6533 && rx->offs[nums[i]].end != -1) 6534 { 6535 ret = newSVpvs(""); 6536 CALLREG_NUMBUF_FETCH(r,nums[i],ret); 6537 if (!retarray) 6538 return ret;


Comment on Re^2: offset of named capture buffer
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1002474]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2014-10-01 20:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (38 votes), past polls