perlについての質問です。


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

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

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/07/02 18:34:29
  • 終了:2008/07/09 18:35:02

回答(1件)

id:shintabo No.1

shintabo回答回数45ベストアンサー獲得回数102008/07/03 01:33:56

ポイント60pt

# 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だけ見るようにしてください

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません