количество вхождений

[_apple_]

Парни, что то я туплю.
есть строка, нужно узнать количество вхождений определенного набора символов в эту строку.
например есть строка
$a = "дрл1лор3лор53лориь353";
нужно узнать сколько в ней букв [л|р]


спасибо

[ondr]

perldoc perlop в части tr///

[Phoinix]

ondr

Не совсем так, все-таки в части m//

my $a = "дрл1лор3лор53лориь353";
my $num = scalar($a =~m/[лр]/g);

Естественно должна быть локаль подключена

[ondr]

Phoinix
тоже perldoc perlop в части tr///

ex: $matches = $a =~ tr/лр//;

ps: и никакая локаль не нужна

[Phoinix]

ondr

Да, немного ошибся...

my $a = "дрл1лор3лор53лориь353";
my $match1 = $a =~tr/лр//;
my @match2 = $a =~ m/([лр])/;

print $match1,"\\n";
print scalar @match2,"\\n";