外部アプリケーションにおいて、あるテキストに対してキーワードの自動リンク処理を行う場合のPerlサンプルスクリプトは以下のようになります。
#!/usr/bin/perl -w use strict; use XMLRPC::Lite; use Jcode; my $rpc = XMLRPC::Lite->new; $rpc->proxy('http://d.hatena.ne.jp/xmlrpc'); my $body = 'はてなダイアリーのキーワードをリンクして!'; my $res = $rpc->call( 'hatena.setKeywordLink', { body => XMLRPC::Data->type('string',Jcode->new($body,'euc')->utf8), score => 20, cname => ['book','movie'], a_target => '_blank', a_class => 'keyword', } ); if (my $fault = $res->fault){ for (keys %{$fault}){ warn $_."=>".$fault->{$_}; } } else { $body = $res->result; $body =~ s/</</ig; $body =~ s/>/>/ig; $body =~ s/"e;/"/ig; print Jcode->new($body,'utf8')->euc; }