#!/usr/bin/perl ##タダのカウンター $logfile = "./cnt.dat"; open(DATA, "+<$logfile"); flock(DATA, 2); chomp($count = ); $count++; seek DATA, 0, 0; print DATA "$count\n"; close(DATA); $count = sprintf("%04d", $count); ##Cookieで取得した人ごとのカウンター ####Cookieの読み出し $cookies = $ENV{'HTTP_COOKIE'}; ###### 取得したクッキーを整形する @pairs = split(/;/, $cookies); foreach my $pair (@pairs) { my ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $COOKIE{$name} = $value; } ######Cookieカウンター $cook_cnt=$COOKIE{cook_cnt}+1; $cook_aaa=$COOKIE{cook_aaa}; $aaa=1000; ####Cookieの書き出し $cookies = $ENV{'HTTP_COOKIE'}; # 取得したクッキーを整形する @pairs = split(/;/, $cookies); foreach my $pair (@pairs) { my ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $COOKIE{$name} = $value; } print "Set-Cookie:cook_aaa=cookieOK; domain=www.intriguing.biz; path=/; expires=Sun, 22-Feb-2022 02:22:22 GMT ; Set-Cookie:cook_cnt=$cook_cnt; domain=www.intriguing.biz; path=/; expires=Sun, 22-Feb-2022 02:22:22 GMT ;"; print "Content-Type: text/html\n\n"; print <

$count カウント（総計）

$cook_cnt カウント（貴方の訪問回数（cookieで判別））

$cook_aaa

END_HTML exit;