|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 27 May 2002 11:56:56
To : Vitaly Ponomarjov
Subject : Re: разбить длиннуй мессагу
--------------------------------------------------------------------------------
Здравствуй, Vitaly Ponomarjov.
RP>> Есть пеpеменная с опpеделённым текстом.
RP>> Hужно pазбить текст из этой пеpеменной по 160 символов и запихнуть в
RP>> массив.
RP>> Как это сделать?
VP> push @array, substr $line,0,160,'' while ($line);
Кстати, решая аналогичную задачу, написал с разбивкой по границам слов:
my @parts = ($line =~ /(.{1,70})\b/g);
70 - потому как там на входе UTF8, на выходе, соответственно, UCS2... Для UTF8
требует 5.6 и use utf8.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
