|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Okunev 2:5020/400 28 May 2002 03:26:38
To : Artem Chuprina
Subject : Re: разбить длиннуй мессагу
--------------------------------------------------------------------------------
On May 27, 2002 at 07:56, Artem Chuprina wrote:
> Здравствуй, 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 символов..., в некоторых случаях может быть и больно...
P.S.
проверялось в 5.005_03 и соответственно без utf8,
но вроде это не критично.
--
With best regards,
Okunev Igor mailto: igor@prv.mts-nn.ru
http://www.mts-nn.ru/~gosha
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
