- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2028 [588]
От : Alexander P. Russkih 2:468/75 29 декабря 03, 21:18
Кому : All 06 января 04, 21:40
Тема : Re: regxp
-------------------------------------------------------------------------------
@RFC-NNTP-Posting-Date: Mon, 29 Dec 2003 19:18:41 +0000 (UTC)
From: "Alexander P. Russkih"
Reply-To: rs_alex@bigfoot.com
Alexander Polyackov wrote:
> Дана стpока, напpимеp $a='sup44e3rmegagiga'. Hужно убpать в ней все символы,
> находящиеся между опpеделённым классом символов. Hапpимеp убpать буквы e,
> находящиеся между цифpами. $a=~s/\d+e\d+//g убиpает цифpы тоже, и выдаёт
> "suprmegagiga", а надо "sup443rmegagiga".
> Как можно сделать так, чтобы некотоpые символы в паттеpне поиска заменялись,
> а некотоpые выступали только в качестве условия, а сами не
> заменялись? Заpанее спасибо.
#!/usr/bin/perl -w
use strict;
use English;
my($str) = "sup44e3rmegagiga";
$str =~ s/(\d+)e(\d+)/\1\2/;
print "$str","\n";
относительно регулярных выражений категорически рекомендуется умная
книжка издательства O'REILLY, автор Дж.Фридл "Регулярные выражения".
Локализация ru_RU произведена издательским домом "Питер" 2001г.
--- Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.5) Gecko/20011023
* Origin: Debian GNU Linux - Olden Gremlin Station (2:468/75)