Печеньки - PHP

Belial · 28.05.2010, 02:16

Приветствую.
Пишу графический счетчик посетителей сайта на perl, по условию должны засчитываться только уникальные посещения, проверка должна быть по cookie.
Проблема, собственно в том, что это моя первая прога на perl, с языком вроде немного разобрался, а вот печеньки повергают меня в сомнения. Будьте добры, подскажите, будет ли работать счетчик и как правильно работать с печеньками? Вопросы в коментах к коду) Если обнаружите ошибку-буду признателен.

Сам кодэ:

Код:

#!/usr/local/bin/perl
use CGI qw/:standard/;        #Эта часть нагуглена вместе с функцией,
use CGI::Cookie;

sub fetch_cookie {           #Нагугленая функция
my($name) = @_;
foreach (keys %cookies){
if ($_ eq $name){
return $cookies{$_}->value;
}
  }
return "";
}

$file = 'count.txt';         #хранилка счетчика
$hdr = new CGI;              #Нагугленные костыли для печенек
$cookie = new $hdr->cookie( -name => 'Counter',
                            -value => 'Cake',
                            -expires => '+3d');



open(COUNT, $file);

$count = <COUNT>;

close(COUNT);

$det = fetch_cookie('Counter') || 0;   #Вроде как-то так у клиента проверяются куки? не уверен вообще в этой части....

if ($det ne '0') {                    # "Если таких печенек нет, то счетчик увеличиваем..." Но сама проверка условия вряд ли рабочая, найти тут так ничего и не смог. Подскажите с условием)))
++$count;}


print $hdr->header(-cookie=>$cookie);

print "<html>";
print "<body>";

@nums = split(//, $count);

foreach $num (@nums) {print "<img src=$num.gif>"}   # картинки

print "</body>";
print "</html>";

open(NCOUNT, ">$file");
print NCOUNT $count;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Печеньки!!!	eldar	Работа с сетью в Delphi	0	23.08.2008 01:48