Скачать: CL | DM;

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

← →
Феликс ©   (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";}
}


---

← →
Феликс ©   (2003-07-11 13:56) [3]

Спасибо sunwheel!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c