Форум: "Потрепаться";
Текущий архив: 2003.07.28;
Скачать: [xml.tar.bz2];
ВнизВопрос по Перлу. Найти похожие ветки
← →
Феликс (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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.07.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c