log화일로 저장되는 카운터데이터중 특정날짜만을 추출하여 그값을 더하고 싶습니다.
참고로 아래 소스는 2000-02-06과같이날짜별로 카운터된 데이타를 읽어들여 접속횟수,ip주소,브라우저를 밝혀줍니다.
저는 이소스를 수정하여 위의 2000-02-06과 같은 데이타들 중에서 특정날짜들만을 더하여서 통계를 내고 싶습니다. 고수님들의 고견부탁드립니다.
#!/usr/bin/perl
use Time::Local;
get_log( init() );
####################################################
sub get_log {
my %GIL = @_;
my @yoil = qw(일 월 화 수 목 금 토);
#LOG형식: "$year-$mon-$day$DELIM$hour:$min$DELIM$ip$DELIM$host$DELIM$agent
";
my $DELIM = chr(30);
my ($file, $date_title);
if ( $GIL{day} ) {
$file = "log/$GIL{day}";
my ($sec,$min,$hour,$day,$mon,$year, $week) =
map { sprintf
%.2d
,$_ } localtime get_time($GIL{day});
$mon ;
$year = 1900 if length $year <=3;
$date_title = "
$GIL{day} 방문자 [ $yoil[$week]요일 ]";
} else {
my ($sec,$min,$hour,$day,$mon,$year, $week) =
map { sprintf
%.2d
,$_ } localtime;
$mon ;
$year = 1900 if length $year <=3;
$file = "log/$year-$mon-$day";
$date_title = "
오늘 방문자 $year년 $mon월 $day일 [ $yoil[$week]요일 ]";
}
my (%COUNT, %LOG);
open GIL, $file;
for (
) {
my ($date, $time, $ip, $host, $agent) = split /$DELIM/, $_;
$count = $COUNT{ $ip };
$ip2 = $host ? "$ip ($host)" : $ip;
$agent =~ s@(MSIE)@$1@;
$agent =~ s/compatible; //i;
$agent =~ s/Windows/Win/;
$LOG{ $ip } = [ "$time", "".
"$count | $time | ".
"$ip2 | $agent |
" ];
}
close GIL;
my $x = 0;
my @result;
for ( sort { $a->[0] cmp $b->[0] } values %LOG ) {
push @result, "$_->[1]
";
$x ;
}
print "Content-type: text/html
";
print<
방문 기록
횟수 |
시간 |
접속주소 |
사용 브라우져 |
@result
|
END
}
####################################################
sub init {
my (%GIL, $buffer);
if ($ENV{
REQUEST_METHOD
} eq "POST") {
read(STDIN, $buffer, $ENV{
CONTENT_LENGTH
});
}
else {
$buffer = $ENV{
QUERY_STRING
};
}
for $item (split /&/, $buffer) {
my ($name, $value) = split /=/, $item;
$name =~ tr/ / /; $name =~ s/%(..)/chr(hex($1))/ge;
$value =~ tr/ / /; $value =~ s/%(..)/chr(hex($1))/ge;
$GIL{$name} = $value;
}
%GIL;
}
####################################################
sub get_time {
my ($year, $mon, $day) = split
-
, shift;
$year -= 1900;
timelocal(1, 0, 0, $day, $mon - 1, $year)
}
__END__
47
600
2000-03-13 23:25:37
닉네임
