Perl: "Quantifier in {,} größer als 32766 in Regex"

Question

Sagen wir, ich möchte in einem großen (300.000 Buchstaben) das Wort "Hunde" mit dem Abstand zwischen den Buchstaben genau 40.000 Buchstaben dazwischen finden. So tue ich:

$mystring =~ m/d.{40000}o.{40000}g.{40000}s/; 

Diese in anderen (langsamer) Sprachen ganz gut funktioniert, aber in Perl es wirft mich "Quantifizierer in {,} größer als 32766 in regex".

So:

1. Können wir eine größere Zahl als Quantor verwenden irgendwie?
2. Wenn nicht, gibt es einen anderen guten Weg, um zu finden, was ich will? Beachten Sie, dass "Hunde" nur ein Beispiel ist; Ich möchte dies für jedes Wort und jede Sprunggröße (und schnell) tun.

Answer 1

Wenn Sie wirklich diese schnell tun müssen, ich auf einer benutzerdefinierten Suche basiert auf den Ideen von Boyer-Moore string search aussehen würde. Ein regulärer Ausdruck wird in eine endliche Zustandsmaschine geparst. Selbst eine clevere, kompakte Darstellung einer solchen FSM wird keine sehr effektive Art sein, eine Suche, wie Sie sie beschreiben, auszuführen.

Wenn Sie wirklich entlang der Linien fortfahren möchten, die Sie jetzt sind, können Sie einfach zwei Ausdrücke wie .{30000}.{10000} verketten, die in der Praxis mit .{40000} identisch sind.

Answer 2

Ich denke, index könnte besser für diese Aufgabe geeignet sein. Etwas nach dem Vorbild der völlig ungetestet:

sub has_dogs { 
    my $str = shift; 
    my $start = 0 

    while (-1 < (my $pos = index $$str, 'd', $start)) { 
     no warnings 'uninitialized'; 
     if (('o' eq substr($$str, $pos + 40_000, 1)) and 
      ('g' eq substr($$str, $pos + 80_000, 1)) and 
      ('s' eq substr($$str, $pos + 120_000, 1))) { 
      return 1; 
     } 
    } 
    return; 
} 

Answer 3

40.000 = 2 * 20.000

/d(?:.{20000}){2}o(?:.{20000}){2}g(?:.{20000}){2}s/s