# ちなみにこんな処理やってます。
# ファイルは "http://na01.shonan.ne.jp/~gorry/hina/wget.html"を使っています。
#SDB4 SSSSSSSSSSSSSSSSS
elsif(($date, $time, $u, $t, $a) 
= m|^(\d+/\d+/\d+) (..:..) [\(].*:....<a\s+href="(\S+)[\?0-9]*"><B>(.*)</B> (.*)</[Aa]>|i )
{
	print $anna[1];

	$url=$u;
	$url =~ s|%7E|~|gio;
	$url =~ s|/index.html$|/|gio;
	$url =~ s|\?.*||;
	$title="$t";
	$name=$a;
	if( $name =~ m|(by .*)\[.*|)
	{
		$name=$1;
	}
	if( $name =~ m|(by .*)\[.*|)
	{
		$name=$1;
	}
	
	$name =~ s|</a>||gio;
	$name =~ s|<A.*HREF=\".*\">||;
	
	$name =~ s|,| |gio;


	if($url !~ m|^http://|)
	{
	 	print "x";
	 	print ERR "$url,$date,$time,$title,$name,,,ＳＤＢ,,,\n";
	}
	else
	{
	($date eq "") ||print OUT "$url,$date,$time,$title,$name,,,ＳＤＢ,,,\n";
	}
}
#SDB4 EEEEEEEEEEEE
# ここで OUT に出てくるデータをそのまま使っているので、
# "Thu Sep  9 15:17:06 1999"とかの値やシリアル値とかは一切利用していない。

・毎時[18+30] 天野アンテナ / 管理人 : ひや さん 
・毎時[56+60] ＳＤＢ / 管理人 : GORRY さん 
・毎時[21+30] わっちりんく(す) / 管理人 : しゃある さん 
・毎時[18+60] ＣＡＴＳ / 管理人 : やたがわ さん 
・毎時[43+60] ＤＳＮ / 管理人 : みやけん さん 
・毎時[03+60] たんぽぽ ひとりごと。 / 管理人 : はち さん