Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.28;
Скачать: 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 вся ветка

Текущий архив: 2003.07.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-91761
Павел
2003-07-15 18:12
2003.07.28
PageControl


3-91695
Spawn
2003-07-04 08:00
2003.07.28
DataModule


14-91909
Дмитрий Терёхин
2003-07-12 10:47
2003.07.28
нужно сделать программу


7-91924
doommy
2003-05-19 16:02
2003.07.28
Передать файл через com порт


14-91841
Night_Devil
2003-07-09 05:47
2003.07.28
Как можно передать скрипту на сайте POST значения....