Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!perl
- use warnings;
- use strict;
- use LWP::UserAgent;
- my $title = 'エントリタイトル';
- my $excerpt = 'エントリ要約ですよ';
- my $url = 'http://d.hatena.ne.jp/shibaTest/20101022/p1';
- my $blog_name = 'Dive into the Tech World!';
- my $ua = LWP::UserAgent->new;
- $ua->timeout(10);
- my $response = $ua->post(
- 'http://local.hatena.ne.jp:3000/shiba_yu36/20101022/1287724375', {
- title => $title,
- excerpt => $excerpt,
- url => $url,
- blog_name => $blog_name,
- },
- );
- use YAML;
- warn YAML::Dump($response);
Add Comment
Please, Sign In to add comment