"выдирание" текста из файла

[DamonLSD]

Привет, всезнающий All!
Возникла необходимость выбрать из одного файла некоторые строки и сохранить их в другом. С "выдиранием", например, заголовков новостей тут нет проблемм - это я умею а вот вырезать диапазон строк, тут у меня фантазии не хватило.
Задача такова: необходимо выбрать кусок из файла со строки, в которой встречается слово "ХХХ" и до строки в которой есть .
Смысл собственно вот в чем: есть ТВ-программа на всю неделю, в которой много каналов. Мне нужно выбрать, например, ОРТ на всю неделю и сохранить в отдельном файле.
Ну вот и все. Кажися объяснил суть дела.
Спасибо.

[DamonLSD]

Да, кстати, могу скинуть html\'ку с этой ТВ-программой

[Phoinix]

Самое простое...

foreach (@text) {
  if (m/XXX/) {$i = "1";}
  if (m/<\\/td>/) {$i = "0";}
  if ($i eq "1") {@sometext = (@sometext, $_);}
}

P.S. исправил...

[NeoNox]

Phoinix:
if ($i eq 1) {@sometext = (@sometext, $_;}

Что это? Если даете ответ то потрудитесь его проверить.
Особенно "$i eq 1"... Операторы сравнения повторите...

[NeoNox]

DamonLSD
Начни с
$text =~ m/XXX(.*?)<\\/td>/i;
my $new_tex = $1;
а далее perldoc perlre; или поиск по этому форуму.

[DamonLSD]

Спасибо большое за наставления!
Буду копать дальше

[Phoinix]

NeoNox
Упс.. сорри не заметил... в следующий раз буду аккуратней...

P.S. но смысл, то вообщем понятен...

[Glader]

NeoNox:
Начни с
$text =~ m/XXX(.*?)<\\/td>/i;
my $new_tex = $1;
а далее perldoc perlre; или поиск по этому форуму.

А там не нужно ли сделать
m/XXX((.|\\n)*?)<\\/td>/i;  ?
он что-то говорил про многострочность...

[Alone]

Glader:
А там не нужно ли сделать
m/XXX((.|\\n)*?)<\\/td>/i; ?
он что-то говорил про многострочность...

проще так наверно
$text =~ m/XXX(.*?)<\\/td>/is;

[Glader]

TIMTOWTDI  

[Alone]

Glader:
TIMTOWTDI

:confused:

[arto]

while () { print if (/XXX/../<\\/td>/); }

[NeoNox]

Alone There Is More Than One Way To Do It

[Glader]

while ( ) { print if (/XXX/../<\\/td>/); }

Ух ты, а это что значит?

такое

for (qw(asd123asz as1d987asd asd5436533asz) {
      print $_."\\n" if (/asd/../asz/);
}

не сработало

[mike]

perldoc perlop
и там - Range operators