Всем привет!

У меня тут возникла задача:
есть строка, и в ней есть слово "pussy" (например). Нужно выделить из етой строки подстроку, которая была бы словом "pussy" плюс N слов (вариант: N символов) до и после етого слова.
т.е.:

my $base_string = "Mary had a very, very, very big pussy. It is a big black cat. Maybe.";

если N=3, результат:

very, very big pussy. It is a

Подскажите, please, как ето сделать, а то у меня пока не получаеться...

Не знаю насколько правильно я тебя понял, но может этот пример тебе поможет:

Код

#!/usr/bin/perl -w use strict; my $bef = 4; # Кол-во слов до искомого слова my $aft = 4; # Кол-во слов после искомого слова my $str = "Mary had a very, very, very big pussy. It is a big black cat. Maybe."; my( $sub_str ) = $str =~ /((?:\w+?(?:\,|\.)?\s*?){$bef}(?:\bpussy\b)(?:\.+?)?(\s*?\w+?.?){$aft})/i; print $sub_str;

Удачи, но этот шаблон расчитан на эту строку, для того, что бы он работал со всеми строками, его нужно немного доработать.

Удачи.

Спасибо тебе, korob2001, огромное!! Ты правильно все понял!

Жаль только Твой шаблон действительно не универсален . Ты не мог бы подсказать как к нему лучше подступиться, чтобы внести коректировку, а то он такой большой и страшный ? Ты до и после (?:\bpussy\b) написал разный код. Я про (?:\,|\.) Ето как-то связано з той строкой, что я написал (ну там про pussy...) или таким же будет и универсальный шаблон? Лучше работает выделение слов до ключевого слова, чем после.

Ты извини если вопрос очень тупой...

Цитата

Я про (?:\,|\.) Ето как-то связано з той строкой, что я написал (ну там про pussy...) или таким же будет и универсальный шаблон?

Верно мыслишь.

Попробуй так:

Код

#!/usr/bin/perl -w use strict; my $bef = 4; # Кол-во слов до искомого слова my $aft = 4; # Кол-во слов после искомого слова my $str = "Mary had a very, very, very big pussy. It is a big black cat. Maybe."; my( $sub_str ) = $str =~ /((?:\w+?(?:\W?)?\s*?){$bef}(?:\bpussy\b)(?:\.+?)?\s*?(\w+?(?:\W?)?\s+?){$aft})/i; print $sub_str;

Если что-то не понятно и есть желание понять, дай знать.
Удачи.

Это сообщение отредактировал(а) korob2001 - 19.5.2005, 20:22