|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander A Chub 2:464/711.9 16 Oct 2002 12:34:00
To : All
Subject : Траблы со счетчиком
--------------------------------------------------------------------------------
Hе могу понять, вроде всё правильно, а не работает.
Конкретно вставляю строку в html <!--#exec cgi="/perl/counter.pl" -->
и ничего не наблюдаю... файлы dat и log созданы.
--counter.pl
#!/perl
$dat_file="counter.dat";
$log_file="counter.log";
open(DAT,"$dat_file");
$count=<DAT>;
close(DAT);
chop($count) if $count =~ / $/;
$count++;
open(DAT,">$dat_file");
print DAT ("$count");
close(DAT);
print ("Content-type: text/html ");
print ("$count");
open(LOGFILE,">>$log_file");
print LOGFILE ("$ENV{'REMOTE_ADDR'} ");
close(LOGFILE);
Alexander
---
* Origin: The ICQ Development Team (2:464/711.9)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
