From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <av1046@comtv.ru>
From: Mikhail Zabaluev <mhz@alt-linux.org>
To: mandrake-russian@altlinux.ru
Message-ID: <20010527221617.C1501@localhost.localdomain>
Mail-Followup-To: Mikhail Zabaluev <mhz@alt-linux.org>,
	mandrake-russian@altlinux.ru
References: <3B0E4CB7.1010506@altlinux.ru> <6706.010525@globetravel.spb.ru> <3B1116CA.1C3C695E@altlinux.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: <3B1116CA.1C3C695E@altlinux.ru>; from rider@altlinux.ru on Sun, May 27, 2001 at 07:01:30PM +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: Sun May 27 21:59:00 2001
X-Original-Date: Sun, 27 May 2001 22:16:17 +0400
Archived-At: <http://lore.altlinux.org/community/20010527221617.C1501@localhost.localdomain/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Hello Anton,

On Sun, May 27, 2001 at 07:01:30PM +0400, Anton Farygin wrote:
>
> Sergey Degtyaryov wrote:
> 
> > Доброго времени суток, Anton,
> >
> > 25.05.2001 в 16:14 Вы сказали буквально следующее:
> >
> > >>>Нет, нет, я про модификаторы сзади. В приведенном примере нужно
> > >>>добавить 's' позади pattern'а, чтобы '.*?' захватывали символы перевода строки.
> >
> > AF> А как быть в случае, если искать нужно вот в такой строке:
> >
> > AF> <li><font size=+1><a
> > AF> href=
> > AF> "Линк
> > AF> "
> > AF>  >Название</a>Дата</font></li>
> >
> > А что - s не помогает?
> >
> > #!/usr/bin/perl
> > $_ = '<a
> > href=
> > l
> > i
> > n
> > k
> > >
> > t
> > i
> > t
> > l
> > e
> > </a>
> > d
> > a
> > t
> > e
> > </font>
> > </li>';
> >
> > @results = /href=(.*?)>(.*?)<\/a>(.*?)<\/font>/s;   # вот тут
> > foreach (@results) {s/\n//g}
> > print join "\n", @results;
> > exit;
> >
> > link
> > title
> > date
> 
> Не совсем такая задача - смысл все делать в одном регулярном выражении.
> Вот например :
> cat man_test.html |perl -p -e 's/(<)(.*?)(\n)/\1\2/gs''
> Убирает первый перевод строки. А вот как убрать все последующие?
> Убрать их вообще во всех тегах. Т.е. между "<" и ">"

perl -p -e "s[(<.*?>)]{ join(' ', split(/\n/, $1)) }gse"

Подойдет?

> Запускать это выражения я буду в PHP. Соответсвенно перловые конструкции не катят :-(

Катят перловые регулярные выражения, см. документацию по pcre.

-- 
Stay tuned,
  MhZ                                     JID: mookid@jabber.org
___________
Wilner's Observation:
	All conversations with a potato should be conducted in private.