Hatena::Groupperlmemo

Perlメモ

2008年09月18日 より開始
最新5件(RSS 2.0)
古いモジュールの更新

Plagger(Fedora10)
Plagger(Ubuntu9.04)

CPAN::Mini

Remedie(Ubuntu 9.04、Vine4.9(5α)、Fedora11Preview)
Remedie(Fedora10) 見れたサイトまとめ
編集

2008-11-08

食べログ Webサービス

| 食べログ Webサービス - Perlメモ を含むブックマーク はてなブックマーク - 食べログ Webサービス - Perlメモ 食べログ Webサービス - Perlメモ のブックマークコメント

APIキーを取得します。

$ sudo cpan XML::TreePP

use strict;
use warnings;
use XML::TreePP;

my $tpp = XML::TreePP->new();

# [APIキー] を取得したAPIに入れ替えてください。最寄り駅で検索
my $url = 'http://api.tabelog.com/Ver2/RestaurantSearch/?key=[APIキー]&station=東京';

my $tree = $tpp->parsehttp( GET => $url );

#print "NumOfResult: ", $tree->{RestaurantInfo}->{NumOfResult}, "\n";

for(@{$tree->{RestaurantInfo}->{Item}}) {
    print $_->{RestaurantName} . "\n";
}

食べログAPIマニュアル食べログ.com

ホットペッパー Webサービス

| ホットペッパー Webサービス - Perlメモ を含むブックマーク はてなブックマーク - ホットペッパー Webサービス - Perlメモ ホットペッパー Webサービス - Perlメモ のブックマークコメント

$ sudo cpan XML::TreePP

APIキーを取得する必要があります。(メールアドレスを入れるだけです。)

use strict;
use warnings;
use XML::TreePP;

my $tpp = XML::TreePP->new();

# [APIキー] を取得したAPIに入れ替えてください。
my $url = 'http://webservice.recruit.co.jp/hotpepper/gourmet/v1/?key=[APIキー]';

#$url .= '&lat=34.67&lng=135.52&range=5&order=4';  #経度緯度
$url .= '&name=炭火';  #お店の名前で検索(部分一致)します。
#$url .= '&name_kana=うまいもん';  #お店の読みかなで検索(部分一致)します。
#$url .= '&address=東京';  #お店の住所で検索(部分一致)します。
#$url .= '&tel=03';
#$url .= '&keyword=オーガニック 東京';

my $tree = $tpp->parsehttp( GET => $url );

#print "api_version: ", $tree->{results}->{api_version}, "\n";
print "results_available: ", $tree->{results}->{results_available}, "\n";

for(@{$tree->{results}->{shop}}) {
  print $_->{name} . "\n";  #掲載店名
  #print $_->{station_name} . "\n";  #最寄り駅
  #print $_->{address} . "\n";  #住所
  #print $_->{photo}->{pc}->{l} . "\n";  #画像のURL
  print $_->{urls}->{pc} . "\n";  #PC向けURL
}

$ perl test.pl


perlについて質問です。 xmlをパースしてhtmlにするということに挑戦しようとしています。 xml::simpleなどカンタンなモジュールをCPANで入手できるそうですが root権限が.. - 人力検索はてな


■■simpleXMLでホットペッパーのAPIを…php5■■ - 教えて!goo


人力検索はてな - 質問一覧


ホットペッパー | APIリファレンス | リクルートWEBサービス


Geocoding - 住所から緯度経度を検索

2008-10-31

Yahoo::Search

| Yahoo::Search - Perlメモ を含むブックマーク はてなブックマーク - Yahoo::Search - Perlメモ Yahoo::Search - Perlメモ のブックマークコメント

$ sudo cpan -i Yahoo::Search

#!/usr/local/bin/perl
use strict;
use Yahoo::Search;


my $query = shift or die "usage: $0 ";


my @Results = Yahoo::Search->Results(
    Doc => $query,
    AppId => '********',
    Mode => 'all',
    Start => 0,
    Count => 10,
    Type => 'any',
    Language => 'ja',
);


for (@Results) {
    print $_->Title, "\n";
}

$ perl test.pl はてな


作って学ぶ、今どきのWebサービス:第4回 Webサービスって実はこんなに簡単 (2/2) - ITmedia エンタープライズ

2008-10-27

WebService::Hatena::Graph

| WebService::Hatena::Graph - Perlメモ を含むブックマーク はてなブックマーク - WebService::Hatena::Graph - Perlメモ WebService::Hatena::Graph - Perlメモ のブックマークコメント

$ sudo cpan -i WebService::Hatena::Graph

use strict;
use warnings;
use WebService::Hatena::Graph;
use DateTime;

my $username = 'yourusername';
my $password = 'yourpassword';

my $graph = WebService::Hatena::Graph->new(
    username => $username,
    password => $password,
);

$graph->post_data(
    graphname => 'test',  #グラフ名を指定(なければ作成します)
    date => DateTime->now->ymd,  #日付を指定(今日)
    value => rand(10)  #ランダムな数字
);

ユーザーネームとパスワードを修正して

$ perl test.pl すると

はてなグラフ に今日の日付で

データが1つ書き込まれます。


WebService::Hatena::Graph リリース - antipop


はてなグラフ数値登録APIとは - はてなキーワード