|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artiom Morozov 2:450/166.444 26 Oct 2000 00:07:41 To : Alexander Babanov Subject : Как пpоще всего pазделить... --------------------------------------------------------------------------------
[Суббота Октябрь 21 2000$Alexander Babanov]# talk Eugeny Averin:
AB> Извращаться, так до упора:
AB> while($a) { push @b, substr $a, 0, 5, ""; }
@b = ($a =~ /.{1,5}/gs);
ещё не пробовали? ;-)
Farewell to thee
Artiom.
... Оптимисты изобрели самолёт. Пессимисты - парашют...
--- GoldEd/Win32
* Origin: Сколько линухоида не корми-всё равно в консоль лезет (2:450/166.444)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/398239f74c33.html, оценка из 5, голосов 10
|