Qual è il numero massimo di catture di espressioni regolari numerate?

Question

sto mantenendo un po 'di codice che legge i valori su una radio di serie e li decomprime in strutture dati Perl:

# 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)); 
} 

Questo ingombrante cattura regex mi ha fatto pensare: qual è il limite superiore sulle variabili di cattura numerati in Perl? Va fino a $MAXINT?

Answer 1

Questo script funziona almeno fino a $N=5000000. Dopo di ciò, esaurisce la memoria.

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