VPF::Regex - Форум программистов

snowy1

Дата 30.5.2009, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 30.5.2009

Репутация: нет
Всего: нет

Помогите, пожалуйста, с регулярным выражением. Я совсем новичок, так что вопрос очень простой

Я разбила текст на массив из строк. Мне нужно найти строки которые содержат определенные выражения и не содержат определенное слово.

Например, нужно найти строки которые содержат фразу "Nice day" и не содержат слово "rain".

Спасибо заранее!

gcc

Дата 30.5.2009, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

примерно так:

Код


 my @out;
        foreach $item (@is_goto) {

            if ( $item =~ /Nice day/ &&  $item !~ /rain/ ) {
                push @out, $item
            }
     }
        print "@out\n"

Это сообщение отредактировал(а) gcc - 30.5.2009, 10:19

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

sir_nuf_nuf

Дата 30.5.2009, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31

Код


my $str = <<POEM;
What a nice day!
There is no ray
this nice day could be not so nice, if it were rain.
Yeah! pretty nice day =)
POEM

my @str = split /\n/, $str;

my @good_str = grep {/nice\s+day/i and not /rain/} @str;

print @good_str;

ну вообщем нужного тут только:

Код


my @good_str = grep {/nice\s+day/i and not /rain/} @str;

Это сообщение отредактировал(а) sir_nuf_nuf - 30.5.2009, 10:19

--------------------

snowy1

Дата 30.5.2009, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 30.5.2009

Репутация: нет
Всего: нет

О, спасибо громадное!

amg

Дата 30.5.2009, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

snowy1, если хотите блеснуть знанием перловских конструкций, то можете чуть-чуть изменить код sir_nuf_nuf, сформировав массив@str сразу, тем самым пропадает необходимость в разбивке строки сплитом:

Код

my @str = <<POEM =~ /(.*)/g;
What a nice day!
There is no ray
this nice day could be not so nice, if it were rain.
Yeah! pretty nice day =)
POEM

Это сообщение отредактировал(а) amg - 30.5.2009, 15:46

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »