1
Perl / Помогите с скриптом
« : 14 Сентября 2009, 21:47:36 »
Код на Perl - ужасен.
##Logging
[B]открываем для логов один дескриптор[/B]
open (LOG,">>D:/server/APACHE/web/site/cgi/checks/checks.log");
my $time=localtime();
[B]а пишем в другой?!?[/B]
print File " *********** CKECKS.PL LOGGING FACILITY STARTED**************\\n";
print LOG "$time Opening checks file....\\n";
open(FD,@ARGV[0]) and print LOG("$time Cannot open checks file....@ARGV[0]\\n");
вообще открывать файлы лучше либо через модуль IO::File, либо уж на худой конец так:
open(FILE,">>","filename.txt") || die "Error :$!\\n";
здесь хотя бы будет понятно что произойдет в случае ошибки открытия.
##Logging
[B]открываем для логов один дескриптор[/B]
open (LOG,">>D:/server/APACHE/web/site/cgi/checks/checks.log");
my $time=localtime();
[B]а пишем в другой?!?[/B]
print File " *********** CKECKS.PL LOGGING FACILITY STARTED**************\\n";
print LOG "$time Opening checks file....\\n";
open(FD,@ARGV[0]) and print LOG("$time Cannot open checks file....@ARGV[0]\\n");
вообще открывать файлы лучше либо через модуль IO::File, либо уж на худой конец так:
open(FILE,">>","filename.txt") || die "Error :$!\\n";
здесь хотя бы будет понятно что произойдет в случае ошибки открытия.