From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <rider@altlinux.ru>
Message-ID: <3B0E4CB7.1010506@altlinux.ru>
From: Anton Farygin <rider@altlinux.ru>
Organization: ALT LInux Team
User-Agent: Mozilla/5.0 (X11; U; Linux 2.4.4-alt1-up i686; en-US; rv:0.9) Gecko/20010511
X-Accept-Language: en
MIME-Version: 1.0
To: mandrake-russian@altlinux.ru
Subject: Re: [mdk-re] Re: [mdk-re] =?KOI8-R?Q?=CF=C6=D4=CF=D0=C9=CB?= - 
	=?KOI8-R?Q?=D2=C5=C7=D5=CC=D1=D2=CE=D9=C5=20=D7=D9=D2=C1=D6=C5=CE=C9=D1?=
References: <3B028B2D.B95544D3@zmail.ru> <20010519031007.C1625@localhost.localdomain> <20010519043850.70e85863.maga@globetravel.spb.ru> <20010519132342.E7768@localhost.localdomain> <3B08EA18.DB49ABA8@zmail.ru>
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Fri May 25 16:08:01 2001
X-Original-Date: Fri, 25 May 2001 16:14:47 +0400
Archived-At: <http://lore.altlinux.org/community/3B0E4CB7.1010506@altlinux.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

cornet wrote:

> Mikhail Zabaluev wrote:
> 
>>Hello Sergey,
>>
>>On Sat, May 19, 2001 at 04:38:50AM +0400, Sergey Degtyaryov wrote:
>>
>>>On Sat, 19 May 2001 03:10:07 +0400
>>>Mikhail Zabaluev <mhz@alt-linux.org> wrote:
>>>
>>>
>>>>>Задача:
>>>>>Перловый скрипт.
>>>>>Есть одна длинная строка вынутая из файла html, сваленная в переменную:
>>>>>
>>>>><li><font size=+1><a
>>>>>href=\"./CombatSystem/Drop_sequence.html">Последовательность действий
>>>>>перед боем.</a> Updated 9:05:2001</font></li>
>>>>>
>>>>>./CombatSystem/Drop_sequence.html
>>>>>Последовательность действий перед боем.
>>>>>9:05:2001
>>>>>
>>>Именно данная строка (и подобные ей) разбирается так:
>>>#$text = '<li><font size=+1><a href="Линк">Название</a>Дата</font></li>';
>>>$text  =~ /<a href=(.*?)>(.*?)<\/a>(.*?)<\/font>/;
>>>print "$1, $2, $3\n";
>>>Хотя лучше конечно посмотреть в сторону HTML::Parser
>>>
>>>
>>>>Нужно читать про модификаторы 'm' и 's' для перловых регулярных
>>>>выражений. Можно заработать небольшой отек головы (я до сих пор не
>>>>сразу вспоминаю, какой из них что дает),
>>>>
>>>m - поиск, s - замена =)
>>>
>>Нет, нет, я про модификаторы сзади. В приведенном примере нужно
>>добавить 's' позади pattern'а, чтобы '.*?' захватывали символы перевода строки.
>>
>>P.S. HTML::Parser действительно рулит.
>>
> 
> Спасибо всем!
> Я уже с этим делом разобрался и скриптик написал, все работает :-))
> 
> вот это выдирает имя файла в переменную $1:
> $String=~/^<li>(?:<font.*>)(?:<a href=")(.*?)(?:">).*$/i
> это дескрипшен:
> $String=~/^<li>(?:<font.*>)(?:<a href=".*">)(.*?)(?:<\/a>).*$/i
> а это дату прошлого обновления:
> $String=~/^<li>(?:<font.*>)?.*Updated (.*?)(?:<\/font>)?<\/li>$/i
> 
> Еще раз всем СПАСИБО, я врубился :-))))))

А как быть в случае, если искать нужно вот в такой строке:

<li><font size=+1><a
href=
"Линк
"
 >Название</a>Дата</font></li>

???

У меня примерно такая задача и я уже сломал голову над этим. ;-(
В одной строке кончено просто... ;-(

Rgds
Rider