|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 04 Apr 2001 22:06:10
To : All
Subject : строка не бъется на элементы
--------------------------------------------------------------------------------
Привет всем!
точнее бъется, но тормозит страшно...
@mass1=split /./, $test;
foreach(@mass1){
push(@resq, $_);
if(length join "", @resq > 18000){
print "OK\n";
push(@res, @resq);
$#resq=-1;
}
}
Что хочу сделать, есть текст($test), нужно его побить в массив(@res), чтобы
каждый
элемент массива(@res) был не больше 18000. Приведенный код тормозит страшно!!!
Чего почитать по этому поводу, если делать это через хеш
%hash=(%hash, $ab, length $ab); - то еще больше тормозит...
а $test содержит текст, цифры, переводы каретки, вобщем любые символы...
Как это можно сделать, чтоб побыстрей работало, если можно конечно.
Спасибо!
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
