regex - 番号付きの正規表現キャプチャの最大数はいくつですか？

Question

シリアルラジオを介して値を読み取り、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));
}

この扱いにくいキャプチャ正規表現は、私に不思議に思いました：Perlの番号付きキャプチャ変数の上限は何ですか？それはずっと上まで行き$MAXINTますか？

Answer 1

このスクリプトは、少なくとも。まで機能し$N=5000000ます。その後、メモリが不足します。

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