ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Leonid Subbotin                      2:5007/16.1    27 Oct 2000  12:16:40
 To : Alexander Babanov
 Subject : Как пpоще всего pазделить...
 -------------------------------------------------------------------------------- 
 

 
 
  AB>>> Извращаться, так до упора:
  AB>>> while($a) { push @b, substr $a, 0, 5, ""; }
  AM>> @b = ($a =~ /.{1,5}/gs);
  AM>> ещё не пробовали? ;-)
  AB> Проходило еще в первом слушании :) Только без /s
  AB> Еще варианты будут?
 
 $a="sdf;lgmsdfklv'sdlkfmbwkmb;wjfnb";
 
 (length($str)==5?((push                                             # это
 @rez,$str),$str=$_,$tmp++):($str.=$_,$tmp++),$tmp==length($a)?push  # одна
 @rez,$str:()) foreach(split //,$a);                                 # строка
 
 print join "\n",@rez;
                                                           Всегда с вами, Sln !
 --- GoldED+/386 1.1.4
  * Origin: Sln Station (2:5007/16.1)
 
 

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

Тема:    Автор:    Дата:    Как пpоще всего pазделить...   Eugeny Averin   20 Oct 2000 22:36:16   Re: Как пpоще всего pазделить...   Alexander Babanov   20 Oct 2000 18:51:00   Как пpоще всего pазделить...   Eugeny Averin   21 Oct 2000 11:57:12   Re: Как пpоще всего pазделить...   RockMover   21 Oct 2000 21:34:53   Re: Как пpоще всего pазделить...   Alexander Babanov   21 Oct 2000 20:37:58   Как пpоще всего pазделить...   Artiom Morozov   26 Oct 2000 00:07:41   Re: Как пpоще всего pазделить...   Alexander Babanov   26 Oct 2000 15:37:31   Как пpоще всего pазделить...   Leonid Subbotin   27 Oct 2000 12:16:40   Как пpоще всего pазделить...   Artiom Morozov   27 Oct 2000 23:53:47   Re: Как пpоще всего pазделить...   Alexander Babanov   27 Oct 2000 21:21:59