#!/usr/local/bin/perl use Jcode; $data = 'hoge'; $| = 1; open DATA, "$data"; @data = ; close DATA; print "Content-type: text/html\n\n"; print qq(\n\n\n\n日記ページアクセスリンク\n\n); foreach (@data) { next unless /http/; next if /www7.big.or.jp\/~oct\//; next if /www7.big.or.jp\/%7Eoct\//; next if /chat.cgi/; ($day,$hour,$url) = split /,/; $url =~ /http:\/\/(.*?)\?(.*)/; $url2 = $1; $query = $2; $url2 =~ s/^([^\/]*\/).*$/$1/; $url2 = 'http://' . $url2; if ($url2 =~ /fresheye\./) { $query =~ /kw=(.*?)(&|$)/; $query = $1; } elsif ($url2 =~ /infoseek\./) { $query =~ /qt=(.*?)(&|$)/; $query = $1; $url2 =~ s/Titles$//; } elsif ($url2 =~ /excite\./) { if ($query =~ /FI_1=(.*?)(&|$)/) { $query = $1; } elsif ($query =~ /search=(.*?)(&|$)/) { $query = $1; } elsif ($query =~ /s=(.*?)(&|$)/) { $query = $1; } } elsif ($url2 =~ /lycos\./) { $query =~ /query=(.*?)(&|$)/; $query = $1; } elsif ($url2 =~ /google\.yahoo/) { $query =~ /p=(.*?)(&|$)/; $query = $1; } elsif ($url2 =~ /google\./) { $query =~ /q=(.*?)(&|$)/; $query = $1; } elsif ($url2 =~ /goo\./) { $query =~ /MT=(.*?)(&|$)/; $query = $1; } elsif ($url2 =~ /para\./) { if ($query =~ /QueryString=(.*?)(&|$)/i) { $query = $1; } elsif ($query =~ /OLDQUERYDISPLAY=(.*?)(&|$)/) { $query = $1; $query =~ s/%25/%/g; } } elsif ($url2 =~ /msn\./) { $query =~ /q=(.*?)(&|$)/i; $query = $1; } elsif ($url2 =~ /biglobe\./) { $query =~ /q=(.*?)(&|$)/i; $query = $1; } elsif ($url2 =~ /nifty\./) { $query =~ /TEXT=(.*?)(&|$)/i; $query = $1; } $query =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $code = getcode($query); $query = Jcode::convert($query, "sjis", $code); $query =~ s/\+/ /g; if ($query) { $url = qq($url2　検索キーワード：$query
\n); } else { $url = qq($url
\n); } $url =~ s/&/&/g; print $url; } print qq(); exit;