指数関数的発散(12)

念のため、文字列が長いときに、Perlで極端に処理が遅くなってしまう場合がないか調べてみよう。(Perl 5.8.7)
と思って実行すると、コアを吐いてしまった。

$s = " foo " x 8000 . "z";
$s =~ /(?:\s*foo\s*)*\z/;

8000ではなく、もっと小さい値なら動いた。
それにしても、Perlがこんなに簡単に死んでしまうとは意外。