ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/175.2   19 Dec 2003  12:48:15
 To : Renat Araslanow
 Subject : регулярное выражение
 -------------------------------------------------------------------------------- 
 

 Fri Dec 19 2003 00:28, Renat Araslanow wrote to Ivan Frolcov:
 
  AGY>>> должны получить
  AGY>>> 3.4455667700
  IF>> $s =~ s/([^.]+)(\d+)\.(\d+)(\.|$)/$1$2$3/g;
  RA> 31.44.55.66.77.00
  RA> 314455667700
 
 Мда. Hо в исходном варианте была одна начальная цифра. Конечно, можно сделать
 тупо в лоб
 
 $s =~ s/  (\d+)\.(.*)
        /
         "$1." . do{$_=$2; s!\.!!g; $_;}
        /ex;
 
 Hо это неспортивно. Хотя мне вообще-то кажется, что одним выражением не
 получится.
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

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

Тема:    Автор:    Дата:    регулярное выражение   Alexandr G. Yakimov   18 Dec 2003 11:47:29   Re: регулярное выражение   Denis Poznyakov   18 Dec 2003 12:02:07   регулярное выражение   Ivan Frolcov   18 Dec 2003 12:37:53   регулярное выражение   Renat Araslanow   19 Dec 2003 01:28:46   регулярное выражение   Ivan Frolcov   19 Dec 2003 12:48:15