|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor Okunev 2:5020/400 29 May 2002 02:09:52
To : Artem Chuprina
Subject : Re: разбить длиннуй мессагу
--------------------------------------------------------------------------------
On May 28, 2002 at 05:07, Artem Chuprina wrote:
> Здравствуй, Igor Okunev.
>
> >> RP>> Есть пеpеменная с опpеделённым текстом.
> >> RP>> Hужно pазбить текст из этой пеpеменной по 160 символов и запихнуть
> >> 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
> при этом считаются аттачами...
avi ты получишь, только не целую, а примерно процентов на 8
меньше и не поддающуюся чтению... т.е. первые 6 символов из
76 только отрежутся, вобщем получишь кучу мусора, когда то
бывшего авишкой, и спам опять останется не побежденным :)
а вообще, я про такой например случай говорил, что
если перед:
my @parts = ($line =~ /(.{1,70})\b/g);
$line например проверялось на невозможность нахождения в
ней слов начинающихся на 'что либо', то эту проверку
этим кодом можно обойти, ну а дальше по обстоятельствам...
--
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
