Anzahl der Matches eines RegExps ermitteln

[n.d. parker]

Moin,

Ich will ausgeben wie oft ein Suchausdruck in einem String vorkommt,

so gehts unelegant:
  @POSTINGS=;
  $ANZ_POSTINGS=@POSTINGS;

my $anzahl = 0;
$anzahl++ while (/$POSTING_START/gs);

oder

my $anzahl = () = /$POSTING_START/gs;

etc. (TIMTOWTDI)

btw:
* Variablennamen in Perl werden ueblicherweise klein geschrieben.
* ich hoffe, dein zu durchsuchender String befindet sich in $_
* du willst wahrscheinlich /\Q$POSTING_START/ schreiben (perldoc perlre)

Viele Gruesse,

n.d.p.