Вопрос по Перлу.

← →
Феликс © (2003-07-10 23:14) [0]

Вот часть кода:
............
open (FH,"<$param");
my $fulltext=<FH>;
close FH;
# разбиваем на части
my @quests=split /~/, $fulltext;

Суть в том, что открывается файл, в переменную $fulltext записывается весь текст файла, а затем в @quests закидывается разный текст, который в файле был отделен один от другого символом "~" (ну, или по крайней мере я так это понимаю).

Т.е имеется ввиду, что в файле текст записан так:
Текст 1
~
Текст 2
~
Текст3
и.т.д

Теперь дальше. Есть переменная ($text) в которой указаны ключевые слова. Задача заключается в том, чтобы проверить @quests на наличие ключевых слов. Если ключевые слова есть в неком тексте, то его нужно напечатать. Как мне дополнить имеющийся код, чтобы выполнить задачу по поиску нужной информации имея ключевые слова?

Заранее благодарен!

← →
sunwheel © (2003-07-11 10:15) [1]

Пример:
$quests[0] = "dfdfg dg sdfg sd"; $quests[1] = "d gggg g dg sdfg sd"; $quests[2] = "dfdfg dg sdfg sd"; $quests[3] = "dfdfg dg sdfg sd"; foreach (@quests) { if (/gggg/) { print "$_\n";} }

← →
sunwheel © (2003-07-11 10:33) [2]

Точнее:
$quests[0] = "dfdfg dg sdfg sd"; $quests[1] = "d gggg g dg sdfg sd"; $quests[2] = "dfdfg dg sdfg sd"; $quests[3] = "dfdfg dg sdfg sd"; $text = "gGGg"; foreach (@quests) { if (/$text/ig) { print "$_\n";} }

Спасибо sunwheel!

Вопрос по Перлу. Найти похожие ветки