VPF::Задача на тему поиск по шаблону

Gandhi

Дата 18.2.2011, 10:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Сама задача из книги - Perl за 24 часа
6й час, если кто читал..

сама задача состоит в том:

Напиcать короткую программу, которая делает следующее.
1. Открывает файл.
2. Считывает все его строки в массив.
3. Извлекает все слова из каждой строки.
4. Находит все слова с четырьмя и большим количеством смежных согласных
букв, например слова thoughts или yardstick.

мне очень тяжело дается данный материал..
начинаю

Код


#!/usr/bin/perl -w

далее открываю файл в который я написал те слова

Код


open(MYFILE, "short_file") || die "Ошибка открытия файла short_file: $!";

его сую в массив, закрываю

Код


@words=<MYFILE>;
close(MYFILE)

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

если можно, поясняте ответ smile

alezzz

Дата 18.2.2011, 11:21 (ссылка)

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

Загрузка ...

сплю...

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

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

Код


@text=<MYFILE>;   # лучше назвать переменную text, words как название пригодиться дальше
foreach (@text){     # читаем массив поэлементно, т.е. текст построчно, циклы
    @words = split(/\s+/);  # надеемся что слова отделены пробелами, простейший вариант, получаем массив слов
    foreach (@words){  # перебираем строку по словам
        print "$_\n" if /[qwrtpsdfghjklzxcvbnm]{4,}/  # печатаем слово если в нем 4 и более согласных, регулярные выражения
    }
}

Gandhi

Дата 18.2.2011, 14:42 (ссылка)

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

Загрузка ...

Новичок

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

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

да! спасибо
это отличный вариант, теперь эта глава стала немного яснее

vivu

Дата 19.2.2011, 16:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


#!/usr/bin/perl
use strict;

open MYFILE, 'test' or die "Can't open file $!";

print join "\n", grep {/[qwrtpsdfghjklzxcvbnm]{4,}/} map { split /\s+/ } <MYFILE>;
print $/;

close MYFILE;

Вы как новичок должны знать что на perl можно ещё вот так. Но если такая запись вам не понятна, то голову себе этим пока не забивайте.

Это сообщение отредактировал(а) vivu - 19.2.2011, 16:54

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