Программирование > Perl
как зделать вывод ошибок в лог файл?
KillerWM:
--- Цитировать ---demond:
а что, писать в файл через буфер это такая задумка? просто создать отдельный файл для debug\'a и писать в него не сразу не получится? Кроме того есть такой метод выявления ошибок: либо разбивать скрипт на части и тестить каждую часть в отдельности, либо встать какой-нибудь print и перемещать его по скрипту сверху вниз.
--- Конец цитаты ---
по умолчанию запись в файл командой print происходит через буфер как зделать чтобы без буфера писалось я незнаю.
для вывода ошибок я вставил эту строчку:
BEGIN{use CGI::Carp qw(carpout);open(LOG, ">>$0.err");carpout(LOG);close(LOG);}
но при вылете скрипта лог файл пуст вероятно из-за использования буфера, как это исправить?
Yaroslav:
--- Код: ---open (ADD, ">>log.log");
print ADD "$_";
close (ADD);
--- Конец кода ---
KillerWM:
--- Цитировать ---Yaroslav:
print ADD "$_";
--- Конец цитаты ---
и че эта хрень делает?
Yaroslav:
записывает в файл все что ты укажешь
KillerWM:
--- Цитировать ---Yaroslav:
записывает в файл все что ты укажешь
--- Конец цитаты ---
мне надо чтобы ошибки в файл записывались, а не только все что мне надо, и при записи каждой строчки открывать и закрывать файл не шибко ли муторно
Навигация
Перейти к полной версии