В Perl как посчитать количество успешных совпадений на основе условия на их абсолютных позициях
Используя толькоодин Подстановка Perl или сопоставление оператора регулярного выражения, как мы можем изменить приведенный ниже код:
Мне нужно изменить значение$ шаблон в приведенном ниже коде таким образом, чтобы код считал число раз, когда успешное совпадение было найдено в строке, при условии, что абсолютная позиция успешного совпадения удовлетворяет определенному условию.
$pattern = "F1";
$string = "F1234F12F1F1234F12F13";
$count = 0;
while ($string =~ /$pattern/g) {$count++}
print $count;
В качестве примера условия для абсолютной позиции вы можете подумать о:
ABSOLUTE_POSITION делится на 5
В этом случае и на основе значения$ строка выше, результат будет: 4.
Обратите внимание, что после завершения кода единственной строкой, изменяющейся при различных условиях абсолютной позиции успешного совпадения, будет первая строка кода.
Спасибо за любую помощь