« Archive 2017/04 123456789101112131415161718192021222324252627282930 »

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


詳細


カテゴリ:スポンサー広告
このページのURL:http://bigchocolate.blog120.fc2.com/?overture" target="_new
記事が作成された日時:--/--/-- --:--:--(--)
コメント数:-
TrackBackの数:-

Comment

Comment Form





管理者にだけ表示を許可する

TrackBack


FC2_piyoのAPIを使用してみる

FC2_piyoのAPIをちょっと試してみた時に書いてみた。大したことはできませんが、使ってみようという奇特な人がどこかにいるかもしれないのでさらしておきます。

まあ、Twitterとは集まってる人間がまた別なので、あまりAPI叩いてIMのステータスやら、ブログやら、SBMやらを更新してもうざがられるだけかもしれませんが(笑)RSSフィードの読み込みも目障りっていう人もいるみたいで。それ言い出すと、毒にも薬にもならない一行コメントみたいなものも、他人が読めば目障りかもしれないわけで、そういう自覚はないのか?と逆に問いたくもなりますが。傍から見てる分には目糞鼻糞なところもあるやろうし、そこを楽しむものでもあるだろうからなぁ。
#!/usr/bin/perl --

my $api_key='your_api_key';
my $pid="your_pid";

my $piyo = Piyo::Simple->new(
	api_key => $api_key,
	pid => $pid,
);
#http://piyo.fc2.com/api.html
#詳しい説明は上記URLで。

#URLの表示例
$piyo->public(30)->apiurl;
$piyo->send("テストです")->apiurl;
$piyo->comment(30,10)->apiurl;
$piyo->user(fc2piyostaff2,30)->apiurl;
$piyo->status(fc2piyostaff2,f)->apiurl;

#データ取得例
$piyo->status(midoler,f)->getdata;

#メッセージの送信例
$piyo->send("おはようございます")->post;

#XMLパース例
#これはまだまだ
#$piyo->public(30)->getdata->xmlparse;
#--------------------------------
#■package Piyo::Simple;
#--------------------------------
package Piyo::Simple;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use XML::Simple;
use Encode;
use Data::Dumper;

sub new {
    my $class = shift;
    my $self = { @_ };
    bless $self, $class;
}

sub apiurl {
    my $self = shift;
    print "$self->{apiurl}\n";
}

#public 広場の最新の発言を取得する(最大30件)
sub public{
	my $self=shift;
	my $api_key=$self->{api_key};
	my $pid=$self->{pid};
	my $limit=shift;
	$self->{apiurl}="http://piyo.fc2.com/contents/api/?mode=public&key=$api_key&limit=$limit";
	return $self;
}

#send ひろばにメッセージを送信する
sub send{
	my $self=shift;
	my $contents=shift;
	my $api_key=$self->{api_key};
	my $pid=$self->{pid};
	$self->{apiurl}="http://piyo.fc2.com/contents/api/?mode=send&key=$api_key&pid=$pid&content=$contents";
	return $self;
}

#comment 指定したメッセージNOに付随するコメントと親メッセージを取得する(最大30件)
sub comment{
	my $self=shift;
	my $api_key=$self->{api_key};
	my $pid=$self->{pid};
	my $messageno=shift;
	my $limit=shift;
	$self->{apiurl}="http://piyo.fc2.com/contents/api/?mode=comment&key=$api_key&no=$messageno&limit=$limit";
	return $self;
}

#user 指定したPIYOIDのメッセージを取得する。指定送信は除外。最大30件
sub user{
	my $self=shift;
	my $api_key=$self->{api_key};
	my $userid=shift;#相手のID。
	my $limit=shift;
	$self->{apiurl}="http://piyo.fc2.com/contents/api/?mode=user&key=$api_key&userid=$userid&limit=$limit";
	return $self;
}

#status 指定したPIYOIDのプロフィール、その友達のプロフィールを取得する。
sub status{
	my $self=shift;
	my $api_key=$self->{api_key};
	my $userid=shift;#取得する人のPIYOID。
	my $option=shift;
	$self->{apiurl}="http://piyo.fc2.com/contents/api/?mode=status&key=$api_key&userid=$userid&option=$option";
	return $self;
}

#コメントを送信するメソッド
sub post{
	my $self=shift;
	my $apiurl=$self->{apiurl};
	my $request  = POST($apiurl);
	my $ua = LWP::UserAgent->new;
	my $res = $ua->request($request);
	#print $res->as_string;
}

#データを取得するだけのメソッド
sub getdata{
	my $self=shift;
	my $refere_url="http://piyo.fc2.com/";
	my $ua = LWP::UserAgent->new;
	$ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)');
	my $request = HTTP::Request->new('GET' , $self->{apiurl});
	$request->header('Referer', $refere_url);
	my $response = $ua->request($request);
	$self->{data} = $response->content;
	return $self;
}

sub xmlparse{
	my $self=shift;
	my $simple = XML::Simple->new( );
	my $tree = $simple->XMLin("$self->{data}");

	foreach my $ln( @{$tree->{itemlist}} ) {
		print $ln->{piyoid}."\n";
		print $ln->{nickname}."\n";
		print $ln->{profimg}."\n";
		print $ln->{no}."\n";
		print $ln->{body}."\n";
		print $ln->{date}."\n";
		print $ln->{rescount}."\n";
		print $ln->{tmpfile}."\n";
		print $ln->{tmpmovurl}."\n";
	}

}

1;
スポンサーサイト


詳細

タグ:FC2piyoAPIperl
カテゴリ:未分類
このページのURL:http://bigchocolate.blog120.fc2.com/blog-entry-586.html
記事が作成された日時:2008/05/16 22:07:32(金)
コメント数:0
TrackBackの数:0

Comment

Comment Form





管理者にだけ表示を許可する

TrackBack


カテゴリー

月別アーカイブ

RSSリンク

ブログ全記事表示

全ての記事を表示する


あわせて読みたいブログパーツ
ページランク スカウター : bigchocolate
フィードメーター - bigchocolate
SEO対策 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。