Посвящается Проктологам Перла и всем
озабоченным странными вещами перл-кодерам..

Как проверить, есть ли модуль в системе,
прямо в скрипте?

Ответ: Для этого нужно в самое начало
программы до строк use и require этот код,
соответственно, если вы используете вместо
use, require, то просто замените его, если вам
требуется проверить больше модулей,
сделайте обычный массив из нужных вам
модулей и перебирайте его, делая такую
проверку для каждого элемента массива (код
вставлять в самое начало после строки #!):

BEGIN {
unless (eval "use Xakep") { print "Not found! Xakep $@"; }}

Скрипт выдает сообщение об ошибке, тем
самым выдавая внутренние данные скрипта и
сервера, тем самым повышая риск обнаружения
дыр в скрипте, что делать?

Ответ: Для начала попытайтесь проверять
передаваемые скрипту данные на нехорошие
символы типа: | ; если вы не уверены, как и где
возможен вывод ошибки, воспользуйтесь
модулем CGI::Carp для перенаправления
сообщений об ошибках в файл для
последующего изучения (код вставлять в
самое начало после строки #!):

BEGIN {
use CGI::Carp qw(carpout);
open (LOG, ">>some/dir/script_error.log");
carpout (*LOG);
}

Нужно хранить данные так, чтобы их
нельзя было перезаписать, не имея полного
доступа к скрипту!

Ответ: Очень просто, используйте лексемы
__DATA__ и __END__, обращение производится, как к
обычному файлу, но без возможности записи в
него!:

# лексема __DATA__
while (<DATA>) {
# обычная работа со строкой
}

#следующий код вставляется в конец кода
программы
__DATA__
# любые данные

# лексема __END__
while (<main::DATA>) {
# обычная работа со строкой
}

#следующий код вставляется в конец кода
программы
__END__
# любые данные 

Хочу поставить новый модуль на сервер,
но нет прав для инсталляции!, как быть?

Ответ: Закачивать нужный модуль в любую
папку и творить чудеса (код вставлять в
самое начало после строки #!):

push (@ISA, ‘NEW PATH’);

Скрипт работает с сокетами и на сервере
постоянно выдает ошибку 500, но синтаксис
правильный, что делать?

Ответ: Запретите буферизацию! вот так:

$fh = select (FILE_HANDLE);
$| = 1;
select ($fh);

#или можно так:
use IO::Handle;
FILE_HANDLE->autoflush(1);

#Вместо FILE_HANDLE может быть скаляр,
ссылающийся на файловый манипулятор
use IO::Handle;
$handle->autoflush(1); 

Скрипт выдает ошибку 500 безо всяких
причин!

Ответ: Возможно, ваш скрипт направляет в STDERR
предупреждения, и сервер видит их раньше,
чем заголовок HTTP! (код вставлять в самое
начало после строки #!):

$| = 1;

При написании статьи была использована
документация O’REILLY

P.S. 

..И открыл легкомысленно уста свои,
и безрассудно расточал слова.

Книга Иова, 35:16

Теги:

Оставить мнение

Check Also

Прицел на личные данные. Что мобильная реклама может разузнать о пользователе Android

В Google Play больше 40% приложений, которые будут показывать тебе рекламу. Используя таки…