|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1978.3 21 Oct 2000 20:37:58
To : Eugeny Averin
Subject : Re: Как пpоще всего pазделить...
--------------------------------------------------------------------------------
Юґullo Eugeny!
>> О-еее! Это элегантнее моего ваpианта.
R> One more way to do it :)
R> $a="апываываываываываываымчииьтмpьенгкгва";
R> $k=5;
R> @some_array= unpack("A$k" x ( (length($a)+$k-1)/$k ), $a);
Извращаться, так до упора:
while($a) { push @b, substr $a, 0, 5, ""; }
:)))
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1978.3 ДДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/1978.3)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
