|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 28 May 2002 09:07:55
To : Igor Okunev
Subject : Re: разбить длиннуй мессагу
--------------------------------------------------------------------------------
Здравствуй, Igor Okunev.
>> RP>> Есть пеpеменная с опpеделённым текстом.
>> RP>> Hужно pазбить текст из этой пеpеменной по 160 символов и запихнуть в
>> RP>> массив.
>> RP>> Как это сделать?
>> VP> push @array, substr $line,0,160,'' while ($line);
IO> >
IO> > Кстати, решая аналогичную задачу, написал с разбивкой по границам слов:
IO> >
IO> > my @parts = ($line =~ /(.{1,70})\b/g);
IO> некорректно отработает, если какой нибудь маньяк напишет 'слово'
IO> длиньше 70 символов..., в некоторых случаях может быть и больно...
Тогда просто это слово не будет передано. Если поставить в начале \G, то не
будет передано и все, что за ним. Так что он сам себе злобный маньяк. Hадо ж
понимать, что это SMS и не пытаться пересылать avi в base64 :-) Кстати, а это
мысль... MIME подразумевает строку длиной 76 символов, так что не специально
обученные аттачи режутся автомагически... Правда, текстовые части не в 8bit
при этом считаются аттачами...
IO> P.S.
IO> проверялось в 5.005_03 и соответственно без utf8,
IO> но вроде это не критично.
Мне просто хотелось отправлять SMS по-русски. А это делать без штатной
поддержки UTF-8, мягко говоря, неудобно. То есть это вот конкретное место не
так критично, хотя удобнее сразу в UTF-8, чем потом перекодировать, а вот
заменять unpack("U*") при создании PDU на то, что можно сделать в 5.005,
весьма лениво.
--
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
