巨大なファイルをgetする場合のLWP::UserAgentとFurlの場合 - Practice of Programming
バッチ処理がやたらメモリくってると思ったら、なんかおっきいファイルをgetしてたせいでした orz 一旦ファイルに吐き出して、後でopenして使いたいような場合は、LWPでは、 my $ua = LWP::UserAgent->new(); $ua->get('http://example.com/big_file.gz', ':content_file' => '/path/to/big_file.gz'); Furlの場合、write_fileオプションを使います。こちらはファイルハンドル。 my $f = Furl->new(); open my $fh, '>', $filename; $f->request(url => 'http://example.com/big_file.gz', write_file => $fh); Furl::HTTPのドキュメントにあるけど、Fur
FurlX::Coro を使ってみたかった - はちゅにっき
節電対応で休日が日・月になった hatyuki です。ということで、明日がおやすみ！ 「DB から引っ張ってきた 5,000 件くらいの URL が、全部 HTTP Status Code 200 を返してくるか調べたいんだけど。」 という、なさそうでやっぱない依頼をうけたのでささっと書いてみることに。 ぱっと思いついたのはこんな感じ。 use strict; use warnings; use Furl; use My::Util qw/ db /; use Test::More; my $furl = Furl->new; my $itr = db->search('tables'); while (my $row = $itr->next) { my $res = $furl->head($row->url); is $res->code, 200, $row->url; } don
FacebookのTest Users APIをPerlで叩く - すぎゃーんメモ
Facebookアプリで色々試す際に、自分のアカウントを使うと何かと不都合が起きるかも、というときに使える TestUser作成APIがある。 本家ドキュメント： Graph API Reference Test User /test-user - グラフAPI - 参考資料 - 開発者向けFacebook 解説記事いろいろ： http://www.madin.jp/diary/?date=20110508 今日の出来事 : Facebookアプリテストユーザー作成方法 今日の出来事 : Facebookアプリテストユーザー作成方法〜実践編 フェイスブックの新 API でフェイスブックアプリのテストを自動化しよう。 - IT戦記 もちろんcurlとかで叩いても良いのだけど、試しにPerlからAPIを叩いたりしてみた。 ユーザ作成 Facebook開発者 - 開発者向けFacebookでアプ
Released FurlX::Coro! - Islands in the byte stream (legacy)
Coroを使うと簡単にFurlで並列HTTP通信が出来ます。 #!perl # usage: http-ping.pl [urls...] use strict; use warnings; use Coro; use Coro::Select; # Furlよりも先にロードすること！ use Furl; my @coros; foreach my $url(@ARGV) { push @coros, async { print "fetching $url\n"; my $ua = Furl->new(); my $res = $ua->head($url); print "$url: ", $res->status_line, "\n"; }; } $_->join for @coros; __END__ わざわざモジュール化する必要はあまりないのですが、上記スクリプトが時々参照される
にひりずむ::しんぷる - 初めての Furl
巷でとっても速くて便利だねこれってなってる HTTP Client であるところの Furl の簡単なつかい方を紹介します。 そもそも Furl は何かっていうと、perl には LWP っていう超高機能な HTTP Client があって、これがデファクトになってるんですね。 でも、それって結構昔からあって、かつ重厚長大なモジュール群なので結構遅いわけです。とくに CPU 使用率が高い。 そんなわけで、libcurl ぐらい速くて軽い HTTP Client があるといいよねってことで開発されたのが Furl です。 読み方は ふぁーる。 use strict; use warnings; use 5.0100; use Furl; my $furl = Furl->new(agent => 'Madoka-Magica/chu-2'); my $res = $furl->get('ht
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Furlでhttpsリクエストがtimeoutになる場合がある件