|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Kravchenko 2:5020/400 27 Aug 2005 17:38:16
To : All
Subject : Серьезная проблемка с регэкспом
--------------------------------------------------------------------------------
Windows, ActivePerl
Достаточно сложное рег. выражение генерируется в виде строки и передается
функции eval для работы в цикле:
$text = &serviceRegExp($text, $regExp);
sub serviceRegExp {
eval('while (1) {
$_[0] =~ s'.$_[1].' || last;
}');
# или можно еще и так:
# eval('while ($_[0]=~ s'.$_[1].') {}');
return($_[0] );
}
При работе через интерпретатор все прекрасно работает.
Далее посредством PDK делаю исполняемый файл.
Теперь попытка обработать большой файл приводит к аварийному завершению
приложения с кодом ошибки 65280. Описание ошибки ни определить, ни найти не
удалось.
Обработка же небольшого файла проходит нормально, т.е. имеем рабочее
регулярное выражение.
В чем проблема?
Hе ругайте PDK, лучшего все равно нет. Мне нужен именно исполняемый файл.
Возможности, а тем более смыла, ставить на все машины ActivePerl нет.
За ответ на этот вопрос особое спасибо, т.к. здесь вообще не представляю в
какую сторону думать и от этого очень расстроен.
--- ifmail v.2.15dev5.3
* Origin: Digital Generation (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
