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

Из текста (к примеру):

ВЕЛКИЙ НОВГОРОД. 13 октября. /СеверИнформ/. Новгородский областной суд отказался смягчить приговор начальнику криминальной милиции, осужденному за превышение должностных полномочий.

надо убрать с помощью рег.выражений- ВЕКИИЙ НОВГОРОД. 13 октября. /СеверИнформ/.

как?

Код

#!/usr/bin/perl -w use strict; my $str = "ВЕЛКИЙ НОВГОРОД. 13 октября. /СеверИнформ/. "         . "Новгородский областной суд отказался смягчить "         . "приговор начальнику. криминальной милиции, "         . "осужденному за превышение должностных полномочий."; my @temp = split(/\//, $str); shift @temp for (1..2); $str = join("/", @temp); $str =~ s/^\.?\s+//; print $str;

Это сообщение отредактировал(а) korob2001 - 15.10.2005, 11:56

Первый вариант - поиск по шаблону:

Код

my $str = 'ВЕЛКИЙ НОВГОРОД. 13 октября. /СеверИнформ/. Новгородский областной суд отказался смягчить приговор начальнику криминальной милиции, осужденному за превышение должностных полномочий.'; $str =~ s{^[А-Я\s]+\.\s\d+\s[а-я]+\.\s/[А-Яа-я]+/\.\s}{}smg; print "Str: $str\n";

Второй вариант - разбиение по точкам:

Код

my $str = 'ВЕЛКИЙ НОВГОРОД. 13 октября. /СеверИнформ/. Новгородский областной суд отказался смягчить приговор начальнику криминальной милиции, осужденному за превышение должностных полномочий.'; my @array = split /\.\s/, $str; print "Str: $array[3]\n";

Есть такой исходник страницы -
<tr>
<td><p class="text" align="justify">ВЕЛИИЙ
НОВГОРОД. 13 октября. /СеверИнформ/. Новгородский областной суд
отказался смягчить приговор начальнику криминальной милиции,
осужденному за превышение должностных полномочий.

Требуется создать шаблон, что-бы текст получился без этой фразы - "ВЕЛИИЙ НОВГОРОД. 13 октября. /СеверИнформ/." как это можно осуществить при помощи регулярных выражений

При помощи того что вы предложили ниче не получается

Гость_CAT сразу не мог написать то, что тебе нужно?

Чтобы заработало все, возьми первый вариант мой и удали ^.
Читай документацию по re!

Я так понимаю тебе нужно парсить HTML, структуру которого предугадать невозможно, если конечно ты сам его не пишешь? Если да, то читай документацию по HTML::Parser

korob2001 если задача проста, то можно обойтись одними регулярными выражениями, нет необходимоси прибегать к модулям.

У этой задачи много решений. Одно из них

Код

$e='<td><p class="text" align="justify">ВЕЛИИЙ НОВГОРОД. 13 октября. /СеверИнформ/. Новгородский областной суд отказался смягчить приговор начальнику криминальной милиции, осужденному за превышение должностных полномочий.</p></td>'; $e=~ /ВЕЛИИЙ НОВГОРОД. 13 октября. \/СеверИнформ\/. (.*?)<\/p>/is; print $1;

Все зависти от того, что ты вообще собираешься делать.

Кстати, можешь кое-что отсюда подчерпнуть http://www.webcode.ru/re/table/.