鐃夙わ申鐃緒申鐃緒け鐃叔￥申鐃緒申鐃緒申鐃熟わ申鐃殉わ申泙鐃緒申鐃緒申鐃緒申鐃緒申添鐃緒申離鐃緒申鐃緒申福鐃緒申鐃�


WEB+DB PRESS

鐃緒申鐃緒申蓮鐃�WEB+DB PRESS Vol.32鐃塾￥申Yahoo! Web 鐃緒申鐃緒申鐃俊ワ申鐃緒申鐃術ワ申鐃緒申鐃宿」わ申鐃初。

鐃緒申鐃�WEB+DB Press鐃舜わ申連鐃旬わ申呂鐃緒申瓩�鐃塾で￥申同鐃緒申里泙鐃緒申泙鐃緒申鐃�(反鐃緒申|鐃祝縁申)鐃薯祈ってわ申泙覆鐃緒申里鐃緒申鐃緒申鼻鐃緒申鐃緒申鐃緒申鐃緒申鐃祝￥申同鐃緒申砲鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃竣ルコ鐃緒申鐃宿わ申鐃緒申鐃緒申里狼鐃緒申砲覆襦ｏ申鐃緒申鐃緒申鐃緒申鐃緒申鐃銃逸申鐃緒申里如鐃�blog鐃夙わ申鐃緒申entry鐃叔わ申鐃緒申个鐃緒申鐃叔わ申茲わ申里鐃緒申鐃緒申鼻鐃緒申鐃緒申亮鐃塾誌申鐃緒申呂鐃緒申覆鐃縦刻申鐃緒申鐃緒申欖匹鐃緒申譟�鐃宿者に駕申鐃駿も参鐃夙わ申鐃緒申襪鰹申箸鐃粛わ申鐃緒申弌鐃緒申屬鐃緒申慮鐃竣のわ申鐃夙わ申佑鐃緒申匿鐃緒申覆鐃緒申討鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Damian鐃緒申鐃緒申辰討鐃緒申鐃緒申茲�鐃祝￥申鐃瞬ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃宿わ申未鐃緒申亮鐃淑�鐃舜のワ申屮譽随申鐃緒申廚覆里鐃緒申鐃緒申泙鐃緒申討筺�鐃緒申鐃緒申望鐃緒申鐃緒申蓮鐃緒申票圓妨鐃緒申鐃緒申鐃緒申鐃瞬レタ鐃緒申鐃叔もあ鐃緒申里鐃緒申鐃緒申蕁�

Vol. 32 pp. 94 
 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

#!/usr/local/bin/perl -w
use strict;
use CGI;
use LWP::Simple;
use XML::Simple;

use constant WEBAPI_BASEURL => 'http://api.search.yahoo.co.jp/WebSearchService/V1/webSearch?';
use constant MYYDN_APPID => 'YahooDemo';
use constant MAX_RESULTS => 10;

my $q = new CGI;
print $q->header(-charset => 'utf8'), $q->start_html();
print qq(<form><input type="text" name="query"><input type="submit" value="search"></form>);

if ($q->param("query")){
    (my $key = $q->param("query")) =~ s/(\W)/"%" . unpack("H2", $1)/ge;
     #鐃所ク鐃緒申鐃緒申鐃緒申URI鐃緒申鐃緒申鐃緒申
     my $req_url = WEBAPI_BASEURL;
     $req_url   .= "appid=YahooDemo";
     $req_url   .= "&query=".$key;
     $req_url   .= "&results=".MAX_RESULTS;
     
     #API鐃舜リク鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申
     my $yahoo_response = get($req_url);

     #鐃緒申鐃緒申鐃緒申鐃緒申XML鐃緒申僉鐃緒申鐃緒申鐃緒申鐃�
     my $xmlsimple = XML::Simple->new();
     my $yahoo_xml = $xmlsimple->XMLin($yahoo_response, ForceArray=>['Result']);

     print $yahoo_xml->{'totalResultsAvailable'} . "hits";
     print "<ol>";
     foreach my $result (@{$yahoo_xml->{'Result'}}){
         print qq(<li><a href="$result->{'ClickUrl'}">$result->{'Title'}</a></li>);
     }
     print "</ol>";
}

print $q->end_html(), "\n";

鐃緒申鐃旬醐申鐃銃￥申Perl鐃緒申鐃緒申鐃緒申鐃祝なりそ鐃緒申鐃淑ワ申鐃緒申鐃緒申鐃叔わ申鐃暑。

鐃巡がrefactor鐃緒申鐃緒申鐃初こ鐃緒申鐃淑っわ申鐃緒申

 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

#!/usr/local/bin/perl -T
use strict;
use warnings;
use Readonly;
use URI;
use CGI qw/:standard/;
use LWP::Simple qw/get/;
use XML::Simple;
use Encode qw/encode_utf8/; # to drop utf8 flag from XML::Simple

Readonly my $WEBAPI_BASEURL
    => 'http://api.search.yahoo.co.jp/WebSearchService/V1/webSearch';
Readonly my $MYYDN_APPID => 'YahooDemo';
Readonly my $MAX_RESULTS => 10;

print 
    header(-charset => 'UTF-8'),
    start_html(-lang=> 'ja',  -title=>$ENV{SCRIPT_NAME}, -encoding=>'UTF-8'),
    start_form(), textfield("query"), submit(-value=>"search"), end_form(),
    search_result(),
    end_html();

sub search_result{
    return unless param("query");
    my $uri = URI->new($WEBAPI_BASEURL);
    $uri->query_form( appid => $MYYDN_APPID,
                      query => param("query"),
                      results => $MAX_RESULTS );
    my $response = get($uri) or return;
    my $xml = XML::Simple->new->XMLin($response, ForceArray=>['Result']);
    return 
        $xml->{'totalResultsAvailable'},  "hits",
        ol(map {
            encode_utf8 li(a({href=>$_->{'ClickUrl'}}, $_->{'Title'}))
            } @{ $xml->{'Result'} } );
}

鐃緒申鐃緒申任蓮鐃緒申鐃緒申鐃緒申覆鐃処う鐃緒申鐃所元鐃緒申Perl Best Practices鐃緒申Perl鐃竣ワ申鐃緒申鐃緒申潺鵐圧鐃縮随申鐃緒申鐃�鐃緒申鐃緒申鐃緒申个覆鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃熟￥申Perl鐃緒申鐃緒申鐃緒申廛箸鐃書いてわ申鐃緒申鐃緒申鐃獣てわ申鐃緒申劼箸鐃宿�鐃緒申鐃所元鐃祝わ申鐃緒申鐃銃わ申鐃緒申鐃駿わ申鐃緒申鐃緒申鐃緒申鐃緒申

鐃殉わ申鐃緒申鐃緒申鐃緒申琉鐃緒申鐃緒申鐃緒申蕁ｏ申鐃緒申螢醐申淵鐃叔わ申use constant鐃緒申箸辰討鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃旬でわ申鐃暑。use constant鐃塾￥申鐃緒申鐃緒申廚蓮鐃緒申造鐃緒申鐃緒申鐃緒申鐃瞬わ申sub鐃淑ので￥申sigil ($@%&*)鐃緒申鐃緒申鐃緒申鐃緒申鐃獣わ申鐃銃わ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃�qq()鐃叔ワ申鐃藷タ￥申鐃楯レー鐃夙緒申鐃緒申覆鐃緒申里鐃緒申砲鐃緒申鐃緒申尊鐃�19鐃緒申鐃旬では件申鐃緒申鐃緒申鐃叔はなわ申文鐃緒申鐃緒申鐃銃ワ申鐃薯そのまま使ってわ申鐃所、鐃殉わ申念鐃縮ｏ申覆鐃緒申砲覆辰討鐃緒申襦ｏ申鐃緒申鐃緒申鐃夙わ申鐃銃わ申鐃緒申曚鐃重�鐃准なのわ申鐃緒申鐃緒申鐃緒申鐃緒申

Damian鐃緒申鐃緒申鐃塾わ申鐃緒申鐃緒申蓮鐃�Readonly鐃盾ジ鐃遵ー鐃緒申鐃緒申鐃緒申鐃祝使わ申鐃緒申鐃緒申鐃緒申鐃緒申念鐃淑わ申鐃緒申5.8鐃緒申鐃淳でわ申core鐃緒申鐃緒申鐃獣てわ申鐃淑わ申鐃緒申鐃緒申5.10鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸辰鐃渋誌申呂覆鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃盾い鐃緒申覆蕁�鐃緒申鐃獣わ申鐃緒申鐃緒申六箸鐃淑わ申鐃叔済まわ申鐃緒申鐃緒申鐃緒申鐃殉わ申鐃叔わ申鐃暑。鐃緒申鐃緒申鐃緒申鐃熟わ申鐃殉わ申箸鐃淑わ申鐃緒申鐃緒申鐃緒申鐃緒申悩鐃緒申辰鐃緒申鐃緒申呂曚箸鐃宿なわ申鐃緒申鐃宿わ申鐃緒申鐃銃わ申箸鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申鐃重�鐃緒申

sub DEBUG { 1 } # DEBUG 鐃緒申鐃緒申鐃緒申箸鐃緒申道箸鐃�

鐃夙わ申鐃銃わ申鐃暑。

鐃春わ申qq()鐃緒申鐃緒申鐃術わ申鐃緒申發�鐃暑。32鐃緒申鐃旬では￥申$result->{'ClickUrl'}鐃緒申qq()鐃緒申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃暑が鐃緒申tag鐃緒申鐃緒申泙辰童鐃緒申鼎蕕わ申辰鐃緒申蕕�鐃緒申磴件申覆鐃緒申覆鐃緒申鐃緒申鐃緒申鐃緒申鐃盾、Perl 6鐃緒申->鐃緒申鐃緒申鐃�.鐃舜の移行は器申鐃緒申)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 

printf qq(<li><a href="%s">%s</a></li>), $result->{'ClickUrl'}, $result->{'Title'};

鐃夙わ申鐃緒申弌鐃緒申鐃緒申辰噺鐃緒申笋刻申鐃緒申覆鐃叔はなわ申鐃緒申鐃緒申perl鐃祝わ申qq()鐃緒申鐃緒申鐃叔はなわ申sprintf()鐃緒申printf()鐃盾あ鐃緒申箸鐃緒申鐃緒申鐃緒申箸鐃出わ申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑醐申鐃緒申鐃熟�鐃緒申藥誌申劼箸鐃緒申討鐃�.鐃盾あ鐃暑し(Perl 6鐃叔わ申~)鐃緒申Here Text鐃盾あ鐃暑。鐃緒申鐃緒申鐃緒申匹鐃緒申箸鐃淑�鐃緒申鐃暑か鐃緒申鐃俊の醐申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申優鐃緒申蓮岼鐃緒申鐃緒申匹澆笋刻申鐃緒申覆鐃緒申鐃緒申鐃竣わ申鐃夙思わ申鐃緒申

鐃緒申鐃祝ワ申鐃緒申鐃獣ワ申鐃緒申鐃緒申鐃所ジ鐃淑ワ申任鐃�HTML鐃塾緒申鐃熟わ申鐃緒申鐃緒申鐃�API鐃祝ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申XML鐃緒申僉鐃緒申鐃緒申鐃緒申討鐃緒申侶鐃縮わ申鐃緒申呂鐃緒申討鐃緒申襪�鐃緒申単鐃祝醐申鐃緒申鐃旬わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔はなわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Web Server鐃緒申CGI Script鐃緒申鐃縮随申鐃緒申鐃瞬わ申長鐃緒申鐃淑ってパフワ申鐃緒申鐃殉ワ申的鐃祝も悪鐃緒申鐃緒申鐃獣刻申鐃緒申鐃緒申鐃夙緒申鐃熟緒申鐃緒申鐃緒申分鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃祝￥申"en passant"鐃緒申鐃緒申鐃所ジ鐃淑ワ申16鐃緒申鐃旬わ申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申JAPH鐃緒申鐃緒申鐃緒申廛箸鐃緒申鐃緒申鐃緒申鐃叔わ申辰討鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申峪鐃熟わ申鐃緒申鐃祝わ申Perl鐃緒申鐃塾ってわ申鐃殉わ申鐃竣とわ申鐃緒申鐃処う鐃叔わ申鐃獣わ申鐃緒申鐃緒申鐃処う鐃祝器申鐃緒申鐃暑か鐃盾し鐃緒申覆鐃緒申鐃緒申鐃緒申鐃緒申鐃熟種申鐃春種申鐃緒申鐃夙わ申鐃緒申鐃緒申里鐃緒申鐃緒申颪�なわ申

# my ($var = $oldvar) =~ s/$regexp/$replacement/ 鐃緒申鐃緒申鐃緒申!
my $var = $oldvar;
$var =~ s/$regexp/$replacement/;

鐃夙わ申鐃駿わ申鐃叔わ申鐃暑。鐃緒申鐃緒申鐃盾こ鐃塾常申隋�鐃緒申劼里茲�鐃祝￥申鐃緒申鐃緒申鐃緒申分鐃熟実わ申URI鐃盾ジ鐃遵ー鐃緒申鐃夙わ申鐃緒申鐃祝わ申鐃緒申鐃緒申廚砲覆辰討鐃緒申泙鐃緒申里任鐃緒申襦�

LWP鐃緒申鐃緒申鐃獣てわ申鐃緒申弌鐃緒申鐃緒申鐃�URI鐃盾ジ鐃遵ー鐃暑が鐃春わ申鐃銃わ申鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃淑わ申鐃夙わ申鐃緒申鐃塾わ申鐃峻思議でわ申鐃暑。鐃緒申鐃所ジ鐃淑ワ申鐃�18-21鐃緒申鐃旬でわ申辰討鐃緒申襪鰹申箸蓮鐃緒申鐃緒申任任鐃�26-28鐃緒申鐃旬わ申鐃出場す鐃暑が鐃緒申鐃宿わ申鐃初が鐃緒か鐃緒申笋刻申鐃緒申鐃緒申鐃緒申鐃緒申鐃�?

鐃緒か鐃緒申砲鐃緒申鐃緒申鐃緒申塀鐃緒申鐃緒申鐃緒申鐃緒申辰鐃緒申蕁�鐃殉わ申鐃緒申鐃緒申鐃緒申鐃盾ジ鐃遵ー鐃緒申鐃獣居申鐃緒申討澆襦ｏ申鐃緒申鐃出わ申鐃緒申鐃夙わ申鐃緒申鐃淑わ申鐃緒申丱皀醐申紂種申鐃祝わ申鐃緒申CPAN鐃祝上げ鐃暑。鐃緒申鐃曙がBest Practice鐃叔わ申鐃暑。

鐃緒申鐃緒申鐃銃￥申CGI鐃盾ジ鐃遵ー鐃緒申粒鐃緒申僉鐃�$q->param()鐃緒申鐃緒申鐃緒申鐃楯わ申鐃緒申覆鐃緒申鐃緒申浤鐃�HTML鐃緒申展鐃緒申鐃祝わ申箸辰討鐃緒申鐃塾でわ申鐃緒申弌鐃緒申鐃獣とわ申辰罰鐃緒申僂鐃緒申茲�鐃緒申

鐃緒申鐃緒申$q->param()鐃緒申箸辰董鐃緒申鐃緒申鐃�use CGI qw/:standard/鐃緒申箸鐃緒申鐃緒申箸鐃緒申鐃緒申里蓮鐃緒申造鐃�non-trivial鐃淑種申鐃緒申覆里鐃緒申鐃緒申鼻鐃緒申鐃緒申里茲�鐃緒申CGI鐃緒申鐃緒申鐃緒申廛箸鐃緒申鐃緒申鐃緒申鐃緒申文鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑す鐃緒申鐃緒申砲蓮鐃�use CGI qw/:standard/鐃淑どわ申箸辰鐃粛常申廚鐃�$q->鐃緒申覆鐃緒申鐃緒申謄鐃竣レー鐃夙などわ申箸辰峠鐃緒申鐃緒申鐃緒申未砲覆辰討鐃緒申鐃緒申鐃熟￥申$q鐃緒申箸辰峠鐃緒申鐃緒申鐃緒申呂鐃緒申箸鐃緒申鐃緒申里鐃緒申鐃緒申譴わ申鐃緒申弔錣�鐃緒申笋刻申鐃緒申擇鐃淑�鐃緒申鐃緒申鐃夙思わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申圓覆里如鐃緒申鐃緒申里茲�鐃祝わ申鐃銃みわ申鐃初こ鐃緒申覆縫鐃緒申鐃緒申匹鐃緒申鐃緒申辰鐃緒申蠅件申鐃緒申鐃�

鐃緒申鐃淑みに￥申鐃緒申鐃塾ワ申鐃緒申廛襯鰹申鐃緒申匹離鐃緒申螢醐申淵鐃塾削申圓蓮鐃�Yahoo鐃緒申鐃緒申凌諭鐃緒申任鐃緒申襦ｏ申澆覆鐃緒申鐃熟￥申Yahoo鐃叔もこ鐃曙く鐃初い鐃竣と安随申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃瞬もし鐃緒申鐃緒申鐃銃プワ申鐃緒申鐃緒申鐃緒申鐃緒申鵐魁鐃緒申匹發鰹申鐃淑器申鐃緒申!?鐃竣わ申鐃峻安になっわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申藤鐃緒申鐃藷、わ申鐃緒申鐃夙仕誌申鐃緒申鐃殉わ申鐃順う

Dan the Contributing Writer Thereof