|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander Babanov 2:5020/1978.3 20 Oct 2000 18:51:00 To : Eugeny Averin Subject : Re: Как пpоще всего pазделить... -------------------------------------------------------------------------------- Юґullo Eugeny! EA> Есть стpока "апываываываываываываымчииьтмpьенгкгва" EA> Как ее пpоще всего "поpезать" по 5 символов? EA> Вот так: EA> @some_array=('апыва','ываыв','аываы','ваыва','ымчии','ьтмpь','енгкг','в EA> а') $a = "апываываываываываываымчииьтмpьенгкгва"; @b = $a =~ /.{1,5}/g; print join ',', @b; CYa!!! ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1978.3 ДДДДї іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК] --- * Origin: Our governor can beat up your governor! (2:5020/1978.3) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/400239f0da9e.html, оценка из 5, голосов 10
|