Однострочная строка командной строки Perl для поиска совпадений регулярных выражений, занимающих несколько строк?

Question

Например, у меня есть файл foo.txt, который содержит

abc
bcc
ccc
baa

и я хочу вернуть индексы всех экземпляров "c \ nb" (в этом случае строка находится в начале с третьего и одиннадцатого символов файла). Какой самый простой способ сделать это?

Answer 1

Если вы уверены, что файл достаточно мал для удобного размещения в памяти, вы можете просто поместить его в переменную и применить к нему регулярное выражение:

$ perl -0777 -ne 'print $-[0], "\n" while /c\nb/g' foo.txt

В противном случае:

$ perl -ne 'print $n - 2, "\n" if /^b/ && $last =~ /c$/; $last = $_; $n += length' foo.txt

Обратите внимание, что эти решения зависят от входного файла, содержащего только символы ASCII.

Answer 2

#!/usr/bin/perl

my $s = 'abc
bcc
ccc
baa';

while ($s =~ /c\nb/mg ) {
  print pos($s), "\n"
}

это выдаст 5, 13 (функция pos возвращает индекс конца матча, но вы должны быть в состоянии это компенсировать).

Answer 3

Я уверен, что есть достойное решение для регулярных выражений, но я вернусь к более старой index функции:

$_ = q[abc
bcc
ccc
baa];

my $z; print $z++,"\n" while 0<=($z=index($_,"c\nb",$z));

---

2
10