ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     29 Aug 2001  15:11:10
 To : Timur V. Irmatov
 Subject : Re: simple regexp
 -------------------------------------------------------------------------------- 
 

 
 Привет!!
 #!/usr/bin/perl -w
 
 $_="11@@22##33@#@44";
 s/@/#/g; #заменить все на #
 s/(#)\1+/$1/g; Если есть многократный повтор оного и того-же 
 #символа, то заменить на содержимое $1.
 print $_;
 
 11#22#33#44
 
 походу больше чем в две строки это не сделаешь. :(
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    simple regexp   Timur V. Irmatov   29 Aug 2001 13:35:24   Re: simple regexp   vilfred   29 Aug 2001 15:11:10   simple regexp   Dmitry Smolin   29 Aug 2001 15:17:49   simple regexp   Alexander Bolotnov   29 Aug 2001 15:20:07   Re: simple regexp   Artem Chuprina   31 Aug 2001 09:37:15