Raspberry PiでCGI + Scrappy - Perl使いの検索エンジン周辺技術に関するブログ。

Raspberry PiでCGI + Scrappyを使おうとしています。

結果は後ほど報告します。

2015/1/7 13:45PM
結果：成功しました！

シンプルなCGI スクリプトで、qというパラメータからURLを取ってくるとそのページの全てのリンクを表示する。(まだ"/"で終わるURLにしか対応していません)

#!/usr/bin/perl --                                                                                                                                                                                                                            
use CGI;
use CGI qw/escapeHTML/;
use Scrappy;
my  $s = Scrappy->new;

$q = new CGI;
$datasent = $q->param('q');

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

print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\" /><title>Mohawk Crawl Service</title></head><body>";
$s->crawl($datasent,
    # . root                                                                                                                                                                                                                                  
    '/' => {                                                                                                                                                                                                     
        'a' => sub {
           print $_[1]->{href}, "<br>\n";
        }
    }
);

print "</body></html>";