12,673
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
#!/usr/bin/perl
# GETされたページを出力
open IN, "<</var/log/httpd/access_log"; while ($line = <<IN>>) {
if ($line =~/^([0-9]{1,3}([.][0-9]{1,3}){3}).*\[(.+)\].*(GET[^"]+).*/) {
$url = url_decode($4);
© 2006 矢木浩人
