Zeichenkette in Variable zählen

[Christian Kruse]

Hallo,

wie kann ich zählen wieoft eine Zeichenkette in einer Variable
(Text in einer Variable )vorkommt?

Wenn du perldoc perlre oder perldoc perlop gelesen haettest, dann
wuesstest, dass der s///-Operator die Anzahl der vorgenommenen
Ersetzungen zurueck gibt. So kann man mit dieser Funktion die Anzahl
der Zeichen in einem String herausfinden:

sub countchars($$) {
  my $str    = shift;
  my $search = quotemeta shift;

return $str =~ s/$search//g;
}

Gruesse,
 CK