人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

perlについての質問です。

これと同じものをperlで探しています。
http://php-web.net/affiliate/search.html
リファラから検索ワードを拾って、SQLに蓄積したいのです。
その後、集計してキーワードランキングを作ります。

PHPなら少し書けますがワケあって使えないので
上記URLと同じことができるperlのスクリプトを探しています。

ご存知の方、お教え下さい。宜しくお願いします。

●質問者: にらたま
●カテゴリ:インターネット ウェブ制作
✍キーワード:Perl PHP SQL URL キーワード
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● shintabo
●60ポイント

# googleで検索した時のURLを入れてみてください

# http://modperlis.bounceme.net/work/query.html

# ex. http://www.google.co.jp/search?hl=ja&q=%E6%A4%9C%E7%B4%A2%E3%82%...

# post to q.cgi

#!/usr/bin/perl

use strict;

use warnings;

use CGI;

my $cgi = CGI->new();

my($q, @q);

if (defined($ENV{HTTP_REFERER})) {

$q = $ENV{HTTP_REFERER};

}

$q = $cgi->param('search'); # is test

$q =~ s/.+q=([^&]+).*/$1/g;

$q = urldecode($q);

$q =~ s/ / /g;

@q = split(/ /, $q);

print "Content-type:text/html\n\n";

print join(',', @q). "<br>\n";

exit;

sub urldecode {

my $q = shift;

$q =~ tr/+/ /;

$q =~ s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;

return $q;

}

# 実装するときは、HTTP_REFERERだけ見るようにしてください

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ