From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <mhz@localhost.comtv.ru>
From: Mikhail Zabaluev <mhz@alt-linux.org>
To: mandrake-russian@altlinux.ru
Message-ID: <20010519132342.E7768@localhost.localdomain>
Mail-Followup-To: Mikhail Zabaluev <mhz@alt-linux.org>,
	mandrake-russian@altlinux.ru
References: <3B028B2D.B95544D3@zmail.ru> <20010519031007.C1625@localhost.localdomain> <20010519043850.70e85863.maga@globetravel.spb.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
User-Agent: Mutt/1.2.5i
In-Reply-To: <20010519043850.70e85863.maga@globetravel.spb.ru>; from maga@globetravel.spb.ru on Sat, May 19, 2001 at 04:38:50AM +0400
Subject: [mdk-re] Re: =?koi8-r?B?W21kay1yZV0gz8bUz9DJyyAtINLFx9XM0dLO2cUg19nSwdbFzsnR?=
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: Sat May 19 13:09:01 2001
X-Original-Date: Sat, 19 May 2001 13:23:42 +0400
Archived-At: <http://lore.altlinux.org/community/20010519132342.E7768@localhost.localdomain/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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 действительно рулит.

-- 
Stay tuned,
  MhZ                                     JID: mookid@jabber.org
___________
You will always have good luck in your personal affairs.