|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vlad 2:5020/400 20 May 2002 00:17:42
To : Rostislav Podgornyi
Subject : Re: разбить длиннуй мессагу
--------------------------------------------------------------------------------
Hello Rostislav,
Sunday, May 19, 2002, 7:59:48 PM, you wrote:
RP> ю Привет, All!
RP> Что-то я туплю.
RP> Есть пеpеменная с опpеделённым текстом.
RP> Hужно pазбить текст из этой пеpеменной по 160 символов и запихнуть в
RP> массив.
RP> Как это сделать?
Можно так:
use strict;
my $text = "Here some text: blah, blah, blah + - _";
my $offset = 0;
my $length = 5;
for (my $i=0; $i<length($text)/$length; $i++) {
my $t = substr($text, $offset, $length);
$offset+=$length;
print "\'$t\'", "\n";
}
--
Best regards,
VLAD
mailto:vlad@niko.kiev.ua
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: NIKO (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: разбить длиннуй мессагу 
