自作ポータルサイト(予定)で利用するので基本の確認をしています。 検索エンジンから飛んできた時に、検索で使ったキーワードを調べたい時は以下のような形で、 URLをデコードした後に、文字コード(UTF-8, EUC…)を変換する必要がある。ここでは、EUCに変換している。 なお、ソースコードはタグの制限などの関係で、実際のソースと異なる事があります。 <pre> #!/usr/bin/perl use lib './lib'; # Jcode.pmは、FreeStyleWikiのファイルを利用 use Jcode; $dummy_data = <<"__EOHTML__"; Sample http://search.msn.co.jp/spresults.aspx?q=%E6%98%94%E3%81%AE%E9%87%91&FORM=QBPR http://search.yahoo.co.jp/search?p=%C4%B9%B2%AC%B9%E2%B9%BB&fr=top_v2&tid=top_v2&search.x=1 http://search.yahoo.co.jp/search?fr=slv1-&p=%C4%B9%B2%AC%B9%E2%B9%BB%A5%C6%A5%CB%A5%B9%C9%F4 http://search.yahoo.co.jp/search?p=%C4%B9%B2%AC%A1%A1%A5%E9%A1%BC%A5%E1%A5%F3&fr=top_v2&tid=top_v2&search.x=1&x=17&y=15 http://search.yahoo.co.jp/search?p=ETC%E5%8B%95%E4%BD%9C%E7%A2%BA%E8%AA%8D&ei=UTF-8&fr=top_v2&fl=0&x=wrt&meta=vc%3D http://www.google.co.jp/search?hl=ja&q=%E9%95%B7%E5%B2%A1%E9%AB%98%E6%A0%A1&lr= http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rls=RNWE,RNWE:2005-14,RNWE:ja&q=%E8%BF%B7%E6%83%91%E6%9B%B8%E8%BE%BC%E3%81%BF%E5%AF%BE%E7%AD%96 __EOHTML__ @lines = split(/\n/, $dummy_data); foreach $l(@lines) { if ($l =~ /http.+[\W][qp]=(.+?)(\&|$)/) { $line = $1; $line =~ tr/+/ /; $line =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg; $line_euc = Jcode->new($line)->euc; $str .= "$line_euc\n"; } } print $str; </pre>

<< 前記事（2006/04/07）

トップへ

後記事（2006/06/07）>>

<< 前記事（2006/04/07）

トップへ

後記事（2006/06/07）>>