적수네 동네 - 질문과 답변 [ 게시물 수정 ]

	>> Edit article


			이름
			제목
			패스워드

오늘도 부족한 저의 실력을 설명을 하고져 합니다. 
제가 요즘 제 홈페이지의 막바지 작업을 진행 중인데 
지금 카운터가 설치가 않되 고민하고 있습니다.. 
카운터는 쏘스를 가져와서 컴파일을 한거구요.. 
도와 주세요.. 
###################################################### 
먼저 count.cgi 내용 
#!/usr/bin/perl 
 ########################################################################################## 
$cookiepass = "1624516"; 
$main_dir = "/usr/local/apache/htdocs/counter/hyung"; 
$img_url = "http://penguin.pe.kr/counter/img/today"; 
$img_url = "http://penguin.pe.kr/counter/img/total"; 
$pass = "0725"; 
$width = "9"; 
$height = "23"; 
########################################################################################### 
 @querys = split(/&/, $ENV{&#039;QUERY_STRING&#039;}); 
foreach $query (@querys) { 
($name, $value) = split(/=/, $query); 
$FORM{$name} = $value; 
} 
 $picker = "$main_dir/fly"; 
$main_dir = "$main_dir/$FORM{&#039;hyung&#039;}"; 
$cookie = "1"; 
 if($FORM{&#039;pass&#039;} ne ""){ 
print "Content-type: text/html"; 
if($FORM{&#039;id&#039;} eq ""){ 
print "<html><head><title>카운터 초기화 에러 -.-</title></head><body bgcolor=white text=black link=blue vlink=purple alink=red>"; 
print "<p>&nbsp;<div align=center><table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#000099>"; 
print "<tr><td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF><tr><td bgcolor=#000099>"; 
print "<p align=center>♡-.- 아이디가 적혀있지 않군요... -.-♡</td></tr><tr><td><p align=center><br>"; 
print "예)&nbsp;id=hyung<p></td></tr></table></td></tr></table></div><p>&nbsp;</p></body></html>"; 
exit 0; 
} 
 if($FORM{&#039;start&#039;} eq ""){ 
print "<html><head><title>초기화 에러... -.-</title></head><body bgcolor=white text=black link=blue vlink=purple alink=red><p>&nbsp;"; 
print "<div align=center><table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#000099><tr><td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF>"; 
print "<tr><td bgcolor=#000099><p align=center>♡-.- 카운터 초기값이 빠졌어요... -.-♡</td></tr><tr><td><p align=center><br>"; 
print "예) start=123<p></td></tr></table></td></tr></table></div><p>&nbsp;</p></body></html>"; 
exit 0; 
} 
 mkdir("$main_dir",0777); 
if($pass eq $FORM{&#039;pass&#039;}) { 
open(READCOUNT, "$main_dir/counter.txt"); 
@readcount=<READCOUNT>; 
$readcount[0] = "$FORM{&#039;start&#039;}"; 
close(READCOUNT); 
open(PRINTCOUNT,">$main_dir/counter.txt"); 
&lock; 
for(0..18){ 
print PRINTCOUNT "$readcount[$_]"; 
} 
&unlock; 
close(PRINTCOUNT); 
 print "<html><head><title>카운터 초기화 완료</title></head><body bgcolor=white text=black link=blue vlink=purple alink=red>"; 
print "<p>&nbsp;<div align=center><table border=0 cellpadding=2 cellspacing=0 width=350 bgcolor=#000099><tr><td><table border=0 cellpadding=2 cellspacing=0 width=100% bgcolor=#F5E9FF>"; 
print "<tr><td bgcolor=#000099><p align=center>♡^.^ 카운터가 초기와 되었습니다. ^.^♡</td></tr>"; 
print "<tr><td><p align=center><br>초기화된 카운터 값:&nbsp;$FORM{&#039;start&#039;}<p></td></tr></table></td></tr></table></div><p>&nbsp;</p></body></html>"; 
 } 
else{ 
print "<html><body><center><h2>Password error!!!</h2></center></body></html>"; 
} 
exit 0; 
} 
 &cookie; 
&main_htm; 
 sub cookie{ 
if($ENV{&#039;HTTP_COOKIE&#039;}) { 
@cookies = split(/; /,$ENV{&#039;HTTP_COOKIE&#039;}); 
foreach(@cookies) { 
($name,$value) = split(/=/,$_); 
$COOKIE{$name} = $value; 
} 
} 
} 
 sub main_htm{ 
open(READCOUNT, "$main_dir/counter.txt"); 
@readcount=<READCOUNT>; 
chop(@readcount); 
close(READCOUNT); 
$total=$readcount[0]; 
$today=$readcount[1]; 
if($FORM{&#039;val&#039;} eq "total"){ 
if($COOKIE{&#039;NAME&#039;} ne "$FORM{&#039;id&#039;}$cookiepass"){ 
&visit_count; 
} 
} 
if ($cookie eq "1"){ 
print "Set-Cookie: NAME=$FORM{&#039;id&#039;}$cookiepass;
"; 
} 
} 
 sub visit_count{ 
if($readcount[0] eq ""){ 
print "Set-Cookie: NAME=$FORM{&#039;id&#039;}$cookiepassBACKUP;
"; 
 open(BACKUP01,"$main_dir/backup01.txt"); 
@backup=<BACKUP01>; 
chop(@backup); 
close(BACKUP01); 
 if($backup[0] eq ""){ 
open(BACKUP02,"$main_dir/backup02.txt"); 
@backup=<BACKUP02>; 
chop(@backup); 
close(BACKUP02); 
} 
open(PRINTCOUNT,">$main_dir/counter.txt"); 
&lock; 
for(0..18){ 
print PRINTCOUNT "$backup[$_]"; 
} 
&unlock; 
close(PRINTCOUNT); 
$plus_num = "2"; 
&count_plus; 
} 
$plus_num = "1"; 
&count_plus; 
} 
 sub count_plus{ 
$total=$readcount[0]; 
$today=$readcount[1]; 
$read_date=$readcount[2]; 
 $Ostm = $ENV{&#039;HTTP_USER_AGENT&#039;}; 
&get_time; 
$total+=$plus_num; 
if($read_date eq $writedate){ 
$today+=$plus_num; 
} 
else{ 
$today="1"; 
} 
$readcount[0]=$total; 
$readcount[1]=$today; 
@month_check=split(///, "$readcount[2]"); 
if($month_check[1] ne "$month"){ 
$readcount[$month+2]=""; 
} 
$readcount[2]=$writedate; 
@count_day=split(/|/, "$readcount[$month+2]"); 
$count_day[0]+=$plus_num; 
@count_hour=split(/:/, "$count_day[$mday]"); 
$count_hour[0]+=$plus_num; 
$count_hour[$hour+1]+=$plus_num; 
$count_day[$mday]=join(&#039;:&#039; , @count_hour); 
$readcount[$month+2]=join(&#039;|&#039; ,@count_day); 
@week=split(/|/,$readcount[15]); 
$week[$wday] +=$plus_num; 
$readcount[15]=join(&#039;|&#039;,@week); 
@OSM=split(/|/,$readcount[16]); 
if($Ostm =~ /95/){ 
$OSM[0] +=$plus_num; 
}elsif($Ostm =~ /98/){ 
$OSM[1] +=$plus_num; 
}elsif($Ostm =~ /NT/){ 
$OSM[2] +=$plus_num; 
}elsif($Ostm =~ /Macintosh/){ 
$OSM[3] +=$plus_num; 
}elsif($Ostm =~ /UNIX/ || $Ostm =~ /Linux/){ 
$OSM[4] +=$plus_num; 
}elsif($Ostm =~ /SunOS/){ 
$OSM[5] +=$plus_num; 
}else{ 
$OSM[6] +=$plus_num; 
} 
$readcount[16]=join(&#039;|&#039;,@OSM); 
@BRW=split(/|/,$readcount[17]); 
if($Ostm =~ /Opera/){ 
$BRW[0] +=$plus_num; 
}elsif($Ostm =~ /MSIE 4/){ 
$BRW[1] +=$plus_num; 
}elsif($Ostm =~ /MSIE 5/){ 
$BRW[2] +=$plus_num; 
}elsif($Ostm =~ /Mozilla/){ 
$BRW[3] +=$plus_num; 
}else{ 
$BRW[4] +=$plus_num; 
} 
$readcount[17]=join(&#039;|&#039;,@BRW); 
open(PRINTCOUNT,">$main_dir/counter.txt"); 
&lock; 
for(0..18){ 
print PRINTCOUNT "$readcount[$_]"; 
} 
&unlock; 
close(PRINTCOUNT); 
if($readcount[0] ne ""){ 
if($total%2){ 
&backup01; 
} 
else{ 
&backup02; 
} 
} 
} 
  sub get_time{ 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); 
$month=($mon+1); 
if($year ne "99"){ 
if($year > 100){ 
$year=($year-100)+2000; 
} 
elsif($year < 10){ 
$year=2000+$year; 
} 
else{ 
$year="2000"; 
} 
} 
else{ 
$year="1999"; 
} 
$writedate="$year/$month/$mday"; 
} 
 sub backup01{ 
open(BACKUP01,">$main_dir/backup01.txt"); 
for(0..18){ 
print BACKUP01 "$readcount[$_]";} 
close(BACKUP01); 
} 
 sub backup02{ 
open(BACKUP02,">$main_dir/backup02.txt"); 
for(0..18){ 
print BACKUP02 "$readcount[$_]";} 
close(BACKUP02); 
} 
 if($FORM{&#039;img&#039;} ne ""){ 
$num_img = "$img_url/$FORM{&#039;img&#039;}"; 
} 
else{ 
$num_img = "$img_url/a"; 
} 
 if($FORM{&#039;pos&#039;} eq ""){ 
$pos_num = 6; 
} 
elsif(($FORM{&#039;pos&#039;} >= 1) && ($FORM{&#039;pos&#039;} <= 50)){ 
$pos_num = $FORM{&#039;pos&#039;}; 
} 
else{ 
$pos_num = 6; 
} 
 open(READCOUNT, "$main_dir/counter.txt"); 
@readcount=<READCOUNT>; 
chop(@readcount); 
close(READCOUNT); 
$total=$readcount[0]; 
$today=$readcount[1]; 
  if($FORM{&#039;val&#039;} eq "total"){ 
$temp_file = "$main_dir/picker1.tmp"; 
$num_data = sprintf("%.$pos_numd",$total); 
 } 
elsif($FORM{&#039;val&#039;} eq "today"){ 
$temp_file = "$main_dir/picker2.tmp"; 
$num_data = sprintf("%.$pos_numd",$today); 
 } 
 print "Content-type: image/gif"; 
 @w = split(//,$num_data); 
$ww = $#w + 1; 
 $Imgwidth = ($ww * $width); 
$Imgheight = $height; 
 open(FLY,"> $temp_file"); 
 print FLY "new"; 
print FLY "size $Imgwidth,$Imgheight"; 
  $wpos = 0; 
foreach (split(//,$num_data)){ 
 print FLY "copy $wpos,0,-1,-1,-1,-1,$num_img/$_.gif"; 
$wpos = ($wpos + $width); 
} 
 print FLY "interlace"; 
 close(FLY); 
 open(TMP,"$picker -q -i $temp_file |"); 
 while( <TMP> ){ 
print; 
} 
close(TMP); 
 unlink($temp_file); 
 sub lock { 
local($LockFile) = "count.loc"; 
local($EndTime) = time+45; 
while (-s $LockFile && time < $EndTime) { 
sleep(1); 
} 
open(LOCK, ">$main_dir/$LockFile"); 
print LOCK "lock"; 
close(LOCK); 
} 
 sub unlock { 
local($LockFile) = "count.loc"; 
open(LOCK, ">$main_dir/$LockFile"); 
print LOCK ""; 
close(LOCK); 
} 
 1; 
###################################################### 
다음은 view.cgi 내용 
#!/usr/bin/perl 
 ########################################################################################### 
$main_url = "http://penguin.pe.kr/counter"; #count.cgi파일이 있는곳의 URL입니다. 
$img_url = "http://penguin.pe.kr/counter/img"; #막대그래프 이미지가 있는곳의 URL입니다. 
########################################################################################### 
 &parse; 
 $main_dir = "/usr/local/apache/htdocs/counter/$FORM{&#039;hyung&#039;}"; 
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); 
$month=($mon+1); 
 if($year ne "99"){ 
if($year > 100){ 
$year=($year-100)+2000; 
} 
elsif($year < 10){ 
$year=2000+$year; 
} 
else{ 
$year="2000"; 
} 
} 
else{ 
$year="1999"; 
} 
 if($FORM{&#039;day&#039;}){ 
&visit_day_form; 
} 
elsif($FORM{&#039;hour_total&#039;}){ 
&hour_total; 
} 
elsif($FORM{&#039;week_total&#039;}){ 
&week_total; 
} 
else{ 
&visit_month_form; 
} 
 sub visit_month_form{ 
 $month +=0; 
$mday +=0; 
 if(!$FORM{&#039;mon&#039;}){ 
$FORM{&#039;mon&#039;}=$month; 
} 
 &count_file_open; 
@count_line=split(/|/ , $months_line[$FORM{&#039;mon&#039;}+2]); 
$total=$count_line[0]; 
$ck_x=&#039;0&#039;; 
for(1..31){ 
@hour_line=split(/:/, $count_line[$_]); 
$read_line[$ck_x]=($hour_line[0]); 
$ck_x += 1; 
} 
 @high_line=@read_line; 
@high_line=reverse(sort jangryal(@high_line)); 
$high_line[0]=1 if($high_line[0]<1); 
$best_high=250/$high_line[0]; 
 $how_year=$year; 
 if($FORM{&#039;mon&#039;}>$month){ 
$how_year-=1; 
} 
 print "Content-type: text/html"; 
 print <<END; 
<HTML> 
<HEAD> 
<TITLE> $how_year년 $FORM{&#039;mon&#039;}월 방문통계</TITLE> 
</HEAD> 
<body bgcolor="#FFF6FC" text="black" link="#000099" vlink="#000099" alink="red"> 
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#FF000A"> 
<tr> 
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF"> 
<tr> 
<td><p align="center">☞월-일 접속통계 | <a href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&mon=$FORM{&#039;mon&#039;}&day=$mday">일-시 접속통계</a> | <a 
href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&hour_total=1">시간대별 누산</a> | <a href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&week_total=1">요일,OS별 누산</a> </td> 
</tr> 
</table></td> 
</tr> 
</table></div><br> 
END 
 print "<div align=center><TABLE border=0 cellspacing=0 cellpadding=2 width=98% bgcolor=#EFEFEF><TR><TD width=54><P align=right>月통계▶</TD>"; 
for(1..12){ 
 if($FORM{&#039;mon&#039;} != $_){ 
print "<TD align=right>"; 
print "&nbsp;<A href=$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&mon=$_>"; 
print "$_月</a></TD>"; 
}else{ 
print "<TD align=right>&nbsp;$_月</TD>"; 
} 
 } 
print "<td widht=13></td></TR><TR><TD width=54><P align=right>접속수▶</TD>"; 
for(3..14){ 
@split_mon_hit=split(/|/,$months_line[$_]); 
print "<TD align=right>"; 
if($FORM{&#039;mon&#039;} != ($_ - 2)){ 
print "&nbsp;$split_mon_hit[0]"; 
}else{ 
print "&nbsp;$split_mon_hit[0]"; 
} 
print "</TD>"; 
} 
print "<td widht=13></td></TR></TABLE></div>"; 
 print <<END; 
<br> 
<TABLE border="0" cellpadding="0" cellspacing="0" width="100%"> 
<TR> 
<TD colspan=2><nobr> 
DATE &nbsp; &nbsp; &nbsp; [ $how_year年 $FORM{&#039;mon&#039;}月 날자별 접속횟수 ]</nobr></TD> 
</TR> 
END 
for(1..31){ 
$width_x=$best_high*$read_line[$_-1]; 
$width_x=$width_x<1?1:$width_x; 
print "<TR><TD width=21>"; 
if($_ < 10){ $_ = "0$_"; } 
print "<A href=$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&mon=$FORM{&#039;mon&#039;}&day=$_>"; 
print "$_</A></TD>"; 
print "<TD width=274><nobr>"; 
print "$read_line[$_-1]</nobr></TD></TR>"; 
} 
print "</TR></TABLE>"; 
&banner; 
print "</body></HTML>"; 
exit; 
} 
 sub visit_day_form{ 
$month +=0; 
$mday +=0; 
if(!$FORM{&#039;mon&#039;}){ 
$FORM{&#039;mon&#039;}=$month; 
} 
if(!$FORM{&#039;day&#039;}){ 
$FORM{&#039;day&#039;}=$mday; 
} 
&count_file_open; 
@day_line=split(/|/ , $months_line[$FORM{&#039;mon&#039;}+2]); 
@hour_line=split(/:/ , $day_line[$FORM{&#039;day&#039;}]); 
$total=$hour_line[0]; 
@high_line=@hour_line; 
@high_line=reverse(sort jangryal(@high_line)); 
 $high_line[1]=1 if($high_line[1]<1); 
$best_high= 250/$high_line[1]; 
$how_year="$year"; 
if($FORM{&#039;mon&#039;}>$month){ 
$how_year-=1; 
} 
 print "Content-type: text/html"; 
 print <<END; 
<HTML> 
<HEAD> 
<TITLE> $how_year년 $FORM{&#039;mon&#039;}월 $FORM{&#039;day&#039;}일 시간별 방문통계</TITLE> 
</HEAD> 
<BODY bgcolor="#DCFCFF" text="black" link="#FF1C20" vlink="#FF1C20" alink="red"> 
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#0000CC"> 
<tr> 
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF"> 
<tr> 
<td><p align="center"><a href=$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=VISITVIEW>월-일 접속통계</a> | ☞일-시 접속통계 | <a 
href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&hour_total=1">시간대별 누산</a> | <a href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&week_total=1">요일,OS별 누산</a> </td> 
</tr> 
</table></td> 
</tr> 
</table></div><br> 
<TABLE border="0" cellpadding="0" cellspacing="0" width="80%"> 
<TR> 
<TD colspan=2><nobr>HOUR &nbsp; &nbsp; &nbsp; [ $how_year年 $FORM{&#039;mon&#039;}月 $FORM{&#039;day&#039;}日 시간대별 접속횟수 ]</nobr></TD> 
</TR> 
END 
 for(1..24){ 
$width_x=$best_high*$hour_line[$_]; 
$width_x= 1 if($width_x < 1); 
$w_t=$_-1; 
$what_time=$_ < 11 ? "0$w_t" : $w_t ; 
print "<TR><TD width=21>$what_time</TD>"; 
print "<TD width=274><nobr>"; 
print "$hour_line[$_]</nobr></TD></TR>"; 
} 
print "</TABLE>"; 
&banner; 
print "</body></HTML>"; 
exit; 
} 
 sub hour_total{ 
 $month +=0; 
$mday +=0; 
&count_file_open; 
 for(3..14){ 
@month=split(/|/, $months_line[$_]); 
for(1..31){ 
@dates=split(/:/,$month[$_]); 
for(0..23){ 
$com = $_ +1; 
$HOUR{"hour_$_"} += $dates[$com]; 
} 
} 
} 
 $best_com=0; 
for(0..23){ 
$best_com=$HOUR{"hour_$_"} if($HOUR{"hour_$_"} > $best_com); 
} 
 $best_com=1 if($best_com < 1); 
$long_size=250/$best_com; 
 print "Content-type: text/html"; 
 print <<END; 
<HTML> 
<HEAD> 
<TITLE> 시간대별 누산통계</TITLE> 
</HEAD> 
<BODY bgcolor="#E9FFF1" text="black" link="#006666" vlink="#006666" alink="red"> 
 <div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#FF000A"> 
<tr> 
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF"> 
<tr> 
<td><p align="center"><a href=$main_url/view.cgi>월-일 접속통계</a> | <a href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&mon=$FORM{&#039;mon&#039;}&day=$mday">일-시 접속통계</a> | ☞시간대별 누산 | <a href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&week_total=1">요일,OS별 누산</a> </td> 
</tr> 
</table></td> 
</tr> 
</table></div><br> 
<TABLE border="0" cellpadding="0" cellspacing="0" width="80%"> 
<TR><TD colspan=2><nobr>HOUR &nbsp; &nbsp; &nbsp; [ 시간대별 접속횟수 누산통계 ]</nobr></TD> 
</TR> 
END 
 for(0..23){ 
$hour_num=$_ < 10?"0$_":$_; 
$cont_num=$HOUR{"hour_$_"}; 
$width_num=$long_size * $cont_num; 
$width_num=1 if($width_num < 1); 
$cont_num="" if($cont_num < 1); 
print "<TR><TD width=21>$hour_num</TD>"; 
print "<TD width=274><nobr>"; 
print "$cont_num</nobr></TD></TR>"; 
} 
print "</TABLE>"; 
&banner; 
print "</body></HTML>"; 
exit; 
} 
 sub week_total{ 
$month +=0; 
$mday +=0; 
&count_file_open; 
@week_line=split(/|/,$months_line[15]); 
 foreach $key(@week_line){ 
$best_long=$key if($key > $best_long); 
} 
 $best_long=1 if($best_long < 1); 
$gr_size=250/$best_long; 
@week_text=("日","月","火","水","木","金","土"); 
 if($months_line[16]){ 
@OSTM=split(/|/,$months_line[16]); 
foreach $key(@OSTM){ 
$os_long=$key if($key > $os_long); 
} 
 $os_long=1 if($os_long < 1); 
$os_size=250/$os_long; 
$w95 =$os_size*$OSTM[0]; 
$w98 =$os_size*$OSTM[1]; 
$wnt =$os_size*$OSTM[2]; 
$mac =$os_size*$OSTM[3]; 
$unix =$os_size*$OSTM[4]; 
$sun =$os_size*$OSTM[5]; 
$wex =$os_size*$OSTM[6]; 
} 
$w95 +=1; 
$w98 +=1; 
$wnt +=1; 
$mac +=1; 
$unix +=1; 
$sun +=1; 
$wex +=1; 
 if($months_line[17]){ 
@BRW=split(/|/,$months_line[17]); 
foreach $key(@BRW){ 
$brw_long=$key if($key > $brw_long); 
} 
 $brw_long=1 if($brw_long < 1); 
$brw_size=250/$brw_long; 
$bre3 =$brw_size*$BRW[0]; 
$bre4 =$brw_size*$BRW[1]; 
$bre5 =$brw_size*$BRW[2]; 
$bnes =$brw_size*$BRW[3]; 
$brx =$brw_size*$BRW[4]; 
} 
 $bre3 +=1; 
$bre4 +=1; 
$bre5 +=1; 
$bnes +=1; 
$brx +=1; 
 print "Content-type: text/html"; 
 print <<END; 
 <HTML> 
<HEAD> 
<TITLE> 요일,OS별 누산통계</TITLE> 
</HEAD> 
<BODY bgcolor="#E9FFF1" text="black" link="#006666" vlink="#006666" alink="red"> 
<div align=center><table border="0" cellpadding="2" cellspacing="0" width="98%" bgcolor="#0000CC"> 
<tr> 
<td><table border="0" cellpadding="3" cellspacing="0" width="100%" bgcolor="#FFFFFF"> 
<tr> 
<td><p align="center"><a href=$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=VISITVIEW>월-일 접속통계</a> | <a href=$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&mon=$month&day=$mday>일-시 접속통계</a> | <a 
href="$main_url/view.cgi?id=$FORM{&#039;id&#039;}&command=&hour_total=1">시간대별 누산</a> | ☞요일,OS별 누산 </td> 
</tr> 
</table></td> 
</tr> 
</table></div><br> 
<center> 
[ 요일, OS별 접속횟수 누산 통계 ]</center><BR> 
<TABLE border=0 cellpadding=1 cellspacing=0 width=80%><TR><TD colspan=2>▶요일별</TD></TR> 
END 
 for(0..6){ 
$width = $gr_size * $week_line[$_] ; 
$width += 1; 
print "<TR><TD width=40>$week_text[$_]요일</TD><TD width=270><nobr> $week_line[$_]</nobr></td></TR>"; 
} 
print "</table>"; 
 print "<br><TABLE border=0 cellpadding=1 cellspacing=0 width=80%><TR><TD colspan=2>▶운영체제별</TD></TR>"; 
print "<TR><TD width=70>Windows95</TD><TD width=270><nobr> $OSTM[0]</nobr></td></TR>"; 
print "<TR><TD width=70>Windows98</TD><TD width=270><nobr> $OSTM[1]</nobr></td></tr>"; 
print "<TR><TD width=70>WindowsNT</TD><TD width=270><nobr> $OSTM[2]</nobr></td></tr>"; 
print "<TR><TD width=70>Macintosh</TD><TD width=270><nobr> $OSTM[3]</nobr></td></tr>"; 
print "<TR><TD width=70>Unix/Linux</TD><TD width=270><nobr> $OSTM[4]</nobr></td></tr>"; 
print "<TR><TD width=70>SunOS</TD><TD width=270><nobr> $OSTM[5]</nobr></td></tr>"; 
print "<TR><TD width=70>기 &nbsp; &nbsp;타</TD><TD width=170><nobr> $OSTM[6]</nobr></td></tr></table>"; 
print "<br><TABLE border=0 cellpadding=1 cellspacing=0 width=80%><TR><TD colspan=2>▶부라우저 별</TD></TR>"; 
print "<TR><TD width=90>익스플로러4.xx</TD><TD width=270><nobr> $BRW[1]</nobr></td></TR>"; 
print "<TR><TD width=90>익스플로러5.xx</TD><TD width=270><nobr> $BRW[2]</nobr></td></TR>"; 
print "<TR><TD width=90>네스케이프</TD><TD width=270><nobr> $BRW[3]</nobr></td></TR>"; 
print "<TR><TD width=90>오 &nbsp; 페 &nbsp; 라</TD><TD width=270><nobr> $BRW[0]</nobr></td></TR>"; 
print "<TR><TD width=90>기 &nbsp; &nbsp; &nbsp; &nbsp; 타</TD><TD width=270><nobr> $BRW[4]</nobr></td></TR></table>"; 
&banner; 
print "</body></HTML>"; 
exit; 
} 
 sub count_file_open{ 
open(VISIT, "$main_dir/counter.txt"); 
@months_line=<VISIT>; 
close(VISIT); 
chop(@months_line); 
} 
 sub banner{ 
print <<END 
<br> 
<div align="center"><table border="0" cellpadding="0" cellspacing="0" width="60%"> 
<tr> 
<td><p><a href="http://soback.kornet21.net/~aaplus/" target="_blank">★Created by ensoo★</a></td> 
</tr> 
<tr> 
<td><p align="right"><a href="http://sepal.woorizip.com/" 
target="_blank">★Powered by sepal★</a></td> 
</tr> 
</table></div><br> 
END 
} 
 sub jangryal{ 
local($num_a, $num_b); 
$num_a=$a=~/^[0-9]+/; 
$num_b=$b=~/^[0-9]+/; 
$retval=$a<=>$b; 
$retval; 
} 
 sub parse{ 
@args = split(/&/, $ENV{&#039;QUERY_STRING&#039;}); 
 foreach $pair (@args) { 
($name, $value) = split(/=/, $pair); 
$FORM{$name} = $value; 
} 
} 
 1; 
##################################################### 
그리고 이미지 디렉토리는 counter 디렉토리 않에 있습니다 
img 디렉토리 않에는 today 디렉토리와 total 디렉토리가 
있습니다. 
그리고 설명서를 보시려면은... 
http://www.penguin.pe.kr/설명서.htm 그리고 카운터를 보시려면은 ... 
http://www.penguin.pe.kr/main.html 를 주소줄에 기록을 하시면 보실수 있습니다..