Чи існує ярлик Perl для підрахунку кількості збігів у рядку?

Припустимо, у мене є:

my $string = "one.two.three.four";

Як я повинен грати з контекстом, щоб дізнатися, скільки разів шаблон знайшов збіг (3)? Чи можна це зробити за допомогою однокласника?

Я спробував це:

my ($number) = scalar($string=~/\./gi);

Я думав, що, розмістивши дужки навколо $number, я змушую контекст масиву, а за допомогою scalar, я отримаю рахунок. Проте все, що я отримую - це 1.

Це ставить сам регулярний вираз у скалярний контекст, а це не те, що ви хочете. Натомість вставте регулярний вираз у контекст списку (щоб отримати кількість збігів) і помістіть його у скалярний контекст.

 my $number = () = $string =~ /\./gi;

Я думаю, що найбільш чітким способом описати це було б, щоб уникнути миттєвого відбору до скаляра. Спочатку призначте масив, а потім використовуйте цей масив у скалярному контексті. В основному це = () =буде робити ідіома, але без ідіоми (що рідко використовується):

my $string = "one.two.three.four";
my @count = $string =~ /\./g;
print scalar @count;

Також див. Perlfaq4 :

Існує ряд способів із різною ефективністю. Якщо вам потрібен підрахунок певного одиничного символу (X) у рядку, ви можете використовувати функцію tr /// приблизно так:

$string = "ThisXlineXhasXsomeXx'sXinXit";
$count = ($string =~ tr/X//);
print "There are $count X characters in the string";

Це чудово, якщо ви просто шукаєте одного персонажа. Однак якщо ви намагаєтеся порахувати кілька символьних підрядків у більшому рядку, tr /// не працюватиме. Що ви можете зробити, це обернути цикл while () навколо глобального збігу шаблонів. Наприклад, давайте порахуємо цілі від’ємні числа:

$string = "-9 55 48 -2 23 -76 4 14 -44";
while ($string =~ /-\d+/g) { $count++ }
print "There are $count negative numbers in the string";

Інша версія використовує глобальний збіг у контексті списку, а потім призначає результат скаляру, виробляючи підрахунок кількості збігів.

$count = () = $string =~ /-\d+/g;

Чи є наступний код однокласним?

print $string =~ s/\./\./g;

Спробуйте це:

my $string = "one.two.three.four";
my ($number) = scalar( @{[ $string=~/\./gi ]} );

Це повертається 3для мене. Створюючи посилання на масив, регулярний вираз обчислюється в контексті списку, а @{..}посилання на масив відміняє посилання.

Я помітив, що якщо у вашому регулярному виразі є умова АБО (наприклад, /(K..K)|(V.AK)/gi ) то у створеному масиві можуть бути невизначені елементи, які входять у підрахунок наприкінці.

Наприклад:

my $seq = "TSYCSKSNKRCRRKYGDDDDWWRSQYTTYCSCYTGKSGKTKGGDSCDAYYEAYGKSGKTKGGRNNR";
my $regex = '(K..K)|(V.AK)';
my $count = () = $seq =~ /$regex/gi;
print "$count\n";

Дає значення рахунку 6.

Я знайшов рішення в цій публікації Як видалити всі undefs з масиву?

my $seq = "TSYCSKSNKRCRRKYGDDDDWWRSQYTTYCSCYTGKSGKTKGGDSCDAYYEAYGKSGKTKGGRNNR";
my $regex = '(K..K)|(V.AK)';
my @count = $seq =~ /$regex/gi;
@count = grep defined, @count; 
my $count = scalar @count;
print "$count\n";

Що потім дає правильну відповідь із трьох.

Інший спосіб,

my $string = "one.two.three.four";
@s = split /\./,$string;
print scalar @s - 1;

my $count = 0;
my $pos = -1;
while (($pos = index($string, $match, $pos+1)) > -1) {
  $count++;
}

перевірив Benchmark, це досить швидко

Метод Friedo полягає в наступному : $a = () = $b =~ $c.

Але це можна спростити ще більше, просто ($a) = $b =~ $cтак:

my ($matchcount) = $text =~ s/$findregex/ /gi;

Ви можете подякувати, просто оберніть це у функцію getMatchCount(), і не турбуйтеся про те, що це знищить переданий рядок.

З іншого боку, ви можете додати обмін, що може бути трохи більше обчислень, але не призведе до зміни рядка.

my ($matchcount) = $text =~ s/($findregex)/$1/gi;