Скрипт состоит из двух файлов admin.pl и comments.pl, оба они работают с папкой /data, где находятся текстовые файлы с комментариями.
Как правильно написать скрипт счётчика строк в .txt файле (counter.pl), что-бы он не конфликтовал с уже существующими скриптами admin.pl и comments.pl
Через ssi надо вызвать скрипт, что-бы он посчитал кол-во строк в одном определённом .txt файле и вывел результат на страницу. Будет несколько вызовов с одной страницы, но к разным .txt (т.е. кол-во комментариев к разным статьям - заголовок статьи и кол-во комм., заголовок статьи_2 и кол-во комм. к ней, и т.д.)
Конечный результат работы скрипта должен быть такой: [ комментариев 15 ]
Есть вот такой скрипт:
#!/usr/bin/perl
use strict;
use warnings;
my $filename = "$id.txt";
open(FILE, "<", "/pub/home/allegro7/cgi-bin/comment/data/" . $filename) or die "Could\'t open file $filename. $!";
my @data =
;
close(FILE);
print scalar(@data);
Такой вариант будет работать? И как правильно вызвать через ssi, может в скрипте надо чего указать?
Я вызывал так ...
Вот результат на странице:
[an error occurred while processing this directive]
Запись в файле log_error:
[Sun May 21 15:06:08 2006] [error] [client 84.17.27.189] Premature end of script headers: /pub/home/allegro7/cgi-bin/comment/counter.pl
[Sun May 21 15:06:08 2006] [error] [client 84.17.27.189] unable to include "/cgi-bin/comment/counter.pl?id=conv_smile" in parsed file /pub/home/allegro7/htdocs/index_test.html
P.S: я не програмист и не уверен в правильности скрипта. Помогите разобраться.