ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/1978.3  22 Oct 2000  02:43:03
 To : Vadim Solomko
 Subject : Re: как строку дополнить
 -------------------------------------------------------------------------------- 
 

 Юґullo Vadim!
 
  AB> @a = (123, 22, 333, 5555);
  AB> @b = map {while(s/^(\d{1,6}$)/0$1/) {} $_} @a;
  AB> print join ',', @b;
 
 Ошибка вышла - этот метод модифицирует начальный массив. Вот тебе более
 правильный и веселый вариант с использованием регэкспов. Enjoy! ;)
 
 @b=map{(0 x6 .$_)=~/(\d{7})$/;$1}@a;
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/1978.3 ДДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/1978.3)
 
 

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

Тема:    Автор:    Дата:    как строку дополнить   Vadim Solomko   22 Oct 2000 00:00:37   как строку дополнить   Sanyo Titaev   22 Oct 2000 11:08:15   Re: как строку дополнить   Alexander Babanov   21 Oct 2000 22:16:31   Re: как строку дополнить   Alexander Babanov   22 Oct 2000 02:43:03   как строку дополнить   Alex Pisarev   23 Oct 2000 23:26:26