¿Cuál es el número máximo de capturas de expresiones regulares numeradas?

Question

estoy manteniendo un código que lee los valores a través de una serie de radio y los descomprime en las estructuras de datos de 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)); 
} 

Esta difícil de manejar expresiones regulares captura me hizo extrañar: ¿Cuál es el límite superior de las variables de captura numerados en Perl? ¿Va todo el camino hasta $MAXINT?

Answer 1

Este script funciona hasta al menos $N=5000000. Después de eso, se queda sin memoria.

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