|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander P. Russkih 2:468/75 29 Dec 2003 22:18:40
To : All
Subject : Re: regxp
--------------------------------------------------------------------------------
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
regxp |
Alexander Polyackov |
28 Dec 2003 22:19:25 |
 Re: regxp |
Ivan Frolcov |
29 Dec 2003 03:43:56 |
  Re[2]: regxp |
Mikhail Polykovsky |
29 Dec 2003 09:28:08 |
|
regxp |
Andrew Velikoredchanin |
29 Dec 2003 09:41:56 |
|
RE: regxp |
Alexander Polyackov |
30 Dec 2003 04:34:59 |
|
Re: regxp |
Andrew Alakozow |
29 Dec 2003 12:02:32 |
|
Re: regxp |
Alexander P. Russkih |
29 Dec 2003 22:18:40 |
|
regxp |
Alexey Matvienko |
30 Dec 2003 17:37:10 |
 Re: regxp |
Artem Chuprina |
30 Dec 2003 18:06:18 |
|
Re: regxp |
Alexander P. Russkih |
31 Dec 2003 15:47:06 |
|
Re: regxp |
eugene v. |
14 Jan 2004 10:22:02 |
|
|
