क्रमांकित रेगेक्स कैप्चर की अधिकतम संख्या क्या है?

Question

मैं कुछ कोड है कि एक सीरियल रेडियो पर मान पढ़ता है और उन्हें पर्ल डाटा संरचनाओं में unpacks को बनाए रखने कर रहा हूँ:

# Don't yell at me, I didn't write this 
if ($command_string =~ 
    /^.(.)(.).(..)(.)(..)(.)(....)(....)(....)(....) 
     (..)(..)(.)(.)(.)(.)(..)(..)(..)(..)(..)(..)(.)(.)....... 
      (.)........(.)(.).*/sx) { 

    $config->{sequence}  = hex(unpack('H2', $1)); 
    $config->{radio_id}  = hex(unpack('H2', $2)); 
    ... 
    $config->{radio_type} = hex(unpack('H2', $26)); 
    $config->{radio_channel} = hex(unpack('H2', $27)); 
} 

यह बोझल कैप्चरिंग regex ने मुझे आश्चर्य: क्या पर्ल में गिने कब्जा चर पर ऊपरी सीमा है? क्या यह $MAXINT तक सभी तरह से जाता है?

Answer 1

यह स्क्रिप्ट कम से कम $N=5000000 तक काम करती है। उसके बाद, यह स्मृति से बाहर चला जाता है।

$N = $ARGV[0] || 5000; 
$q = '(.)' x $N; 
$regex = qr/$q/; 
("x" x $N) =~ $regex; 
print eval "\$$N";