Нужно посчитать сколько раз в html-файле встречается эта комбинация:

((^\<tr\sclass\=ltr\>$^\<td\>)|(^\<tr\>$^\<td\>)|(^\<tr\>$^\<td\sclass\=port\>))B\#

(Данный набор использовал в плагине "Search and Replace" для FAR manager, поэтому сильно не пинайте, если где-то ошибся).

Умею только читать файл целиком: 



После этого, в переменной $str получаю полное содержимое файла xcn_156.htm. Что с ним потом делать?

Спасибо.

Это сообщение отредактировал(а) ochkasty - 16.2.2011, 15:08

А почему бы сразу во время считывания данных не поставить счётчик с условием?
PS. хотя может не совсем понял, что требуется

$cnt = () = $str =~ m#\Q((^\<tr\sclass\=ltr\>$^\<td\>)|(^\<tr\>$^\<td\>)|(^\<tr\>$^\<td\sclass\=port\>))B\\\#\E#g

Это сообщение отредактировал(а) arto - 16.2.2011, 17:27

Да, можно сразу во время считывания. Как? Подскажи, пожалуйста.

возможно так, если считывать построчно:


либо сначала разбить на строки потом обрабатывать:

Только я регулярку может не правильно переписал 
А вообще у arto, вариант лучше будет. 


Это сообщение отредактировал(а) Grost - 17.2.2011, 10:47

Да, этот вариант вполне удобен. Спасибо. 

Однако, здесь, почему-то, не ищется символ начала строки:

$cnt = () = $str =~ m/^\<tr/g; -- говорит, что таких вхождений нет. Хотя точно есть. Я смотрел по F4.

Почему?

$cnt = () = $str =~ m/^\<tr/gm

потому как \Q

либо напишите правильный regexp, либо расскажите руками, что вам надо найти.

Мне нужно посчитать количество таких вхождений:

- первая строка: пустая
- вторая строка полностью: <tr class=ltr> или <tr>
- третья строка начинается с: <td>B# или <td class=port>B#


или

или


Пошел от простого к сложному: 

$cnt = () = $str =~ m/^\<tr\sclass\=ltr\>$/gm; -- такую строку нахожу

$cnt = () = $str =~ m/^\<tr\sclass\=ltr\>$^\<td\>/gm; -- а такую уже нет.

Как обозначить перенос строки в регекспе?

$^ -- это переменная в перл.

$cnt = () = $str =~ m/^<tr class=ltr>\n^<td>/gm;

perl -0777 -lne 'my $cnt = () = m/\n(?:<tr>|<tr\s+class=ltr>)\n(?:<td>|<td\s+class=port>)B#/gs; print $cnt'  file