ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : vilfred 2:5020/400 25 Jan 2001 22:26:57
To : Ivanov Anatol
Subject : Re: Помогите с рег выражениями
--------------------------------------------------------------------------------
IA> 1) выбрать из всего текста - только кусок между
IA> тегами <BODY тут еще что-то>.....</BODY>
IA> 2) потом полученный кусок обработать следующим
IA> способом.
IA> (текст представлет собой термин описание)
IA> Пример:
IA> <P>Термин1 - описание 1</P>
IA> <P>Термин 2 - описание 2</P>
IA> Hужно разделить на
IA> c <P> до - (название)
IA> с - до </P> (расшифровка)
#!/usr/bin/perl -wT
use LWP::Simple;
$page=get "http://www.kuku.ru";
foreach(split /\n/, $page){
if(m/<body (.*)>(.*)<\/body>/ig){
$nugnoe=$2;
if($nugnoe=~m/(.*) (.*)/ig){
push(@mass, "<P>".$1." - ".$2."</P>");
}
}
}
print join "\n", @mass;
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
