#!/usr/local/bin/perl -T use strict; use warnings; use Encode; use CGI; use LWP::Simple; use XML::Simple; use HTML::Template; use URI::Escape; use utf8; binmode STDOUT, ":utf8"; my $q = new CGI; my $sentence = $q->param('sentence') || ""; my $r_ref = yapi({sentence =>$sentence}); my $template = join("", ); my $t = HTML::Template->new(scalarref => \$template, die_on_bad_params => 0); $t->param(sentence => decode('utf-8', $sentence)); $t->param(segments => $r_ref->{SegmentList}->{Segment}) if $r_ref->{SegmentList}; print $q->header(-charset => 'UTF-8'), $t->output(); sub yapi { my ($args_ref) = @_; my $sentence = $args_ref->{sentence}; return {} unless $sentence; my $ec = URI::Escape::uri_escape($sentence); my $url = "https://jlp.yahooapis.jp/JIMService/V1/conversion?" ."dictionery=name,place,zip,symbol&" ."appid=THISISAPEN&sentence=$ec"; my $response = get($url); my $xmlsimple = XML::Simple->new(ForceArray => [ 'Segment', 'SegmentText', 'CandidateList', 'Candidate', ], ForceContent => 1, ); my $xml = $xmlsimple->XMLin($response); #use Data::Dumper; print Dumper($xml); return $xml->{Result}; } __DATA__ Y!API Kanakan Demo

Y!API Kanakan Demo



Yahoo!デベロッパーネットワーク - テキスト解析 - かな漢字変換