unknownplace.org

gorou さんがうごかねっつってるので触ってみた。

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use FileHandle;
use Readonly;

Readonly my $url     => 'http://bulkfeeds.net/app/terms.xml';
Readonly my $api_key => 'my key';

my $ua = LWP::UserAgent->new;

# read test.txt
my $text = q{};
if ( my $fh = FileHandle->new('test.txt') ) {
    $text = join q{}, <$fh>;
    $fh->close;
}
else {
    die 'text read error';
}

# call api
my $res = $ua->request(POST $url, [ apikey => $api_key, content => $text, ]);

if (not $res->is_success) {
    die $res->status_line;
}
else {
    print $res->status_line, qq{\n\n};
    print $res->content;
}

で、結果

200 OK

<?xml version="1.0" encoding="utf-8"?>
<terms>
<term>クリッパーズ</term>
<term>臥</term>
<term>NBA</term>
<term>プレシーズン</term>
<term>初戦</term>
<term>開幕</term>
<term>田</term>
<term>アシスト</term>
<term>リバウンド</term>
<term>サンズ</term>
<term>ユーイング</term>
<term>リビングストン</term>
<term>95</term>
<term>勇</term>
<term>4Q</term>
<term>俊敏</term>
<term>＞？</term>
<term>無得点</term>
<term>得点</term>
<term>ベンチ</term>
</terms>

動いてる！ あーこれおもしろいかも。