ishiducaの日記 このページをアンテナに追加 RSSフィード

2011-11-28

[]"Deep recursion on anonymous subroutine" 19:52 "Deep recursion on anonymous subroutine" - ishiducaの日記 を含むブックマーク はてなブックマーク - "Deep recursion on anonymous subroutine" - ishiducaの日記 "Deep recursion on anonymous subroutine" - ishiducaの日記 のブックマークコメント

合成関数を作る compose 関数を実装しようとして $f = sub { $f->($g->(@_)) } としたら、"Deep recursion on anonymous subroutine" と怒られた

use strict;
use warnings;
use feature qw(say);

sub inc {    my $x = shift; $x + 1; }
sub double { my $x = shift; $x * 2; }
sub square { my $x = shift; $x * $x; }

sub compose {
    my $first = pop @_;
    while (my $g = pop @_) {
        # こうすると "Deep recursion on anonymous subroutine" と警告を出して無限ループしちゃう
        $first = sub { $first->($g->(@_)) };
    }
    $first;
}
my $ids = compose(\&inc, \&double, \&square);
my $sdi = compose(\&square, \&double, \&inc);

say $ids->(3);
say $sdi->(3);

なのでループの代わりに再帰させる

sub compose {
    my $f = pop @_;
    my $g;

    ($g = pop @_)
        ? compose(@_, sub { $f->($g->(@_)) })
        : $f;
}

my $ids = compose(\&inc, \&double, \&square);
my $sdi = compose(\&square, \&double, \&inc);

ただ、最初の compose もあっさり抜けられて

sub compose {
    my $first = pop @_;
    while (my $g = pop @_) {
        my $f = $first; # $f に代入するだけ
        $first = sub { $f->($g->(@_)) };
    }
    $first;
}
my $ids = compose(\&inc, \&double, \&square);
my $sdi = compose(\&square, \&double, \&inc);

say $ids->(3); # 64
say $sdi->(3); # 19

焦ったのでメモ

ColexilkyColexilky2018/04/17 10:29Posologie Cialis Malegra <a href=http://tadalaffbuy.com>cialis</a> Amoxicillin Treatment Course For Pneumonia Cialis No Presciptiononline Trazodone

DerekBogDerekBog2018/06/15 20:18now <a href= http://buyviagramdf.com/ > buy viagra online </a> here "http://buyviagramdf.com/" - 25mg, 50mg, 100mg viagra tablets available today buyviagramdf.com

ftaletipctftaletipct2018/08/06 10:31<a href="http://psychologytweets.com">discount cialis pills</a> cialis india cheap order http://psychologytweets.com

ktaletmyqlktaletmyql2018/08/08 05:22<a href="http://baymontelreno.com">cialis online pharmacy</a> cheap cialis canada pharmacy http://baymontelreno.com

ltaletxtksltaletxtks2018/08/09 12:14<a href="http://motechautomotive.com">order cialis from india</a> buy cialis http://motechautomotive.com

qtaletypbfqtaletypbf2018/08/18 09:42<a href="http://mphasset.com">cheapest generic viagra prices online</a> dick with viagra http://mphasset.com

ptaletppvdptaletppvd2018/08/18 09:53<a href="http://mphasset.com">buy generic viagra online uk next day delivery</a> does viagra make you bigger than normal http://mphasset.com

btaletmtisbtaletmtis2018/08/18 14:44<a href="http://istanbulexpressonline.com">no name viagra</a> viagra daily http://istanbulexpressonline.com

rtaletaoxirtaletaoxi2018/08/18 14:53<a href="http://istanbulexpressonline.com">side effects of viagra for women</a> cialis 5mg vs viagra 50mg http://istanbulexpressonline.com

wtaletjlfgwtaletjlfg2018/08/18 18:48<a href="http://mphasset.com">healthy male viagra</a> 100mg viagra side effects http://mphasset.com

ltaletmkfultaletmkfu2018/08/18 18:55<a href="http://mphasset.com">viagra coupon pfizer</a> viagra mechanism http://mphasset.com

mtaletsxczmtaletsxcz2018/08/18 22:22<a href="http://bullsac.com">buy levitra without a prescription</a> online pharmacy levitra http://bullsac.com

ztaletuhfiztaletuhfi2018/08/19 01:41<a href="http://bakerssign.com">buy levitra online</a> levitra mg http://bakerssign.com

dtaletfjgydtaletfjgy2018/08/19 04:45<a href="http://baymontelreno.com">is cialis covered by health insurance</a> long term side effects of cialis http://baymontelreno.com

staletypibstaletypib2018/08/19 04:52<a href="http://baymontelreno.com">when does cialis expire</a> how to take cialis http://baymontelreno.com

staletpypkstaletpypk2018/08/19 07:41<a href="http://missreplicawatches.com">cialis formula</a> cheap cialis generic online http://missreplicawatches.com

xtaletjsrzxtaletjsrz2018/08/19 07:48<a href="http://baymontelreno.com">cialis back and leg pain</a> when does cialis go generic http://baymontelreno.com

ftaletxvcwftaletxvcw2018/08/19 10:37<a href="http://missreplicawatches.com">why does cialis cause muscle pain</a> how long before cialis daily starts working http://missreplicawatches.com

ataletaafbataletaafb2018/08/19 21:49<a href="http://bullsac.com">generic levitra online canada</a> levitra prescription cost http://bullsac.com

ytaletzhhqytaletzhhq2018/08/20 00:46<a href="http://missreplicawatches.com">cialis super active 20mg</a> cialis canada free trial http://missreplicawatches.com

qtaletjrqrqtaletjrqr2018/08/20 15:34<a href="http://bakerssign.com">taking levitra</a> buy generic levitra online http://bakerssign.com

CapprigamicoomaCapprigamicooma2018/09/11 05:15las vegas casinos <a href="https://onlinecasinodd.com/">gsn casino games</a> free casino games slots <a href="https://onlinecasinodd.com/">casino play</a> | https://onlinecasinodd.com/ - casino play https://onlinecasinodd.com/ - tropicana online casino

ptaletbmypptaletbmyp2018/09/11 07:46<a href="http://istanbulexpressonline.com">viagra uses</a> viagra 25mg http://istanbulexpressonline.com

ntaletnscpntaletnscp2018/09/11 12:21<a href="http://missreplicawatches.com">viagra cialis levitra comparison chart</a> cialis dosage maximum http://missreplicawatches.com

otaletiwkqotaletiwkq2018/09/11 13:21<a href="http://psychologytweets.com">get cialis online</a> when will there be a generic cialis http://psychologytweets.com

ltaletcrcultaletcrcu2018/09/11 15:57<a href="http://missreplicawatches.com">bph cialis</a> get cialis online http://missreplicawatches.com

ytaletdogjytaletdogj2018/09/11 20:39<a href="http://mphasset.com">mixing viagra with cialis</a> what is it like to take viagra http://mphasset.com

jtaletttahjtaletttah2018/09/11 22:44<a href="http://rabbitinahat.com">cialis alternatives</a> buy cialis online malaysia http://rabbitinahat.com

gtaletnootgtaletnoot2018/09/12 02:11<a href="http://h-m-j.com">order viagra using paypal</a> buy viagra new york http://h-m-j.com

etaletyhjpetaletyhjp2018/09/12 05:21<a href="http://baymontelreno.com">buy cialis without prescription</a> cialis mail order india http://baymontelreno.com

qtaletmdcqqtaletmdcq2018/09/12 08:07<a href="http://waltzweekend.com">order viagra pills</a> cheapest generic viagra online http://waltzweekend.com

qtaletzmuvqtaletzmuv2018/09/12 08:30<a href="http://canadian-pharmasale.com">buy cialis online without prescription</a> canadian cialis generic http://canadian-pharmasale.com

italetgfjditaletgfjd2018/09/12 09:06<a href="http://usedrestaurantequipmentaz.com">canadian online pharmacy generic cialis</a> cheap cialis pill http://usedrestaurantequipmentaz.com

gtaletcmbygtaletcmby2018/09/12 14:51<a href="http://usedrestaurantequipmentaz.com">buy cialis canadian pharmacy</a> generic cialis from canada http://usedrestaurantequipmentaz.com

utaletvhrdutaletvhrd2018/09/12 16:55<a href="http://missreplicawatches.com">buy cialis uk</a> buy cialis canada http://missreplicawatches.com

staletjbddstaletjbdd2018/09/12 17:12<a href="http://usedrestaurantequipmentaz.com">cialis 5mg best price</a> generic cialis in canada http://usedrestaurantequipmentaz.com

ftaletqucxftaletqucx2018/09/12 20:12<a href="http://baymontelreno.com">buy brand cialis</a> cheap cialis 20mg online http://baymontelreno.com

ttaletqqwcttaletqqwc2018/09/12 22:07<a href="http://gigawatt6.com">cheap cialis tablet</a> cialis order online uk http://gigawatt6.com

otaletttzkotaletttzk2018/09/13 00:09<a href="http://buycialisonlineglka.com">buy cialis 20 mg</a> cheap cialis uk http://buycialisonlineglka.com

vtaletikkgvtaletikkg2018/09/13 00:23<a href="http://baymontelreno.com">cheapest generic cialis</a> purchase cialis online http://baymontelreno.com

xtaletpxukxtaletpxuk2018/09/13 02:42<a href="http://canadian-pharmasale.com">buy cialis canadian pharmacy</a> cialis order online india http://canadian-pharmasale.com

jtaletnrsljtaletnrsl2018/09/13 03:42<a href="http://valladium.com">order cialis daily</a> order cialis online no prescription http://valladium.com

jtaletvmfjjtaletvmfj2018/09/13 04:20<a href="http://gigawatt6.com">cheap cialis 20mg online</a> order cialis usa http://gigawatt6.com

ntaletoazintaletoazi2018/09/13 08:55<a href="http://unishade.com">cheap brand cialis</a> cheapest place to buy cialis http://unishade.com

ltaletrabwltaletrabw2018/09/13 09:21<a href="http://baymontelreno.com">order cialis online from canada</a> how to order cialis online safely http://baymontelreno.com

italetrlqwitaletrlqw2018/09/13 12:05<a href="http://baymontelreno.com">cheap cialis online usa</a> generic cialis india pharmacy http://baymontelreno.com

staletppdqstaletppdq2018/09/13 18:50<a href="http://missreplicawatches.com">order cialis from canadian pharmacy</a> cialis 20mg online http://missreplicawatches.com

qtaletbdlzqtaletbdlz2018/09/13 20:08<a href="http://missreplicawatches.com">brand cialis online</a> buy cialis from canada http://missreplicawatches.com

dtaletkxpydtaletkxpy2018/09/13 22:01<a href="http://usedrestaurantequipmentaz.com">cialis 20 mg</a> best place to buy generic cialis http://usedrestaurantequipmentaz.com

qtaletjpbuqtaletjpbu2018/09/14 00:23<a href="http://rabbitinahat.com">order cialis online in canada</a> cialis india cheap order http://rabbitinahat.com

qtaletplpqqtaletplpq2018/09/14 02:00<a href="http://buycialisonl1ne.us">buy real cialis online</a> cialis coupons http://buycialisonl1ne.us

utaleteueoutaleteueo2018/09/14 02:15<a href="http://timsbmw.com">levitra online</a> levitra pe http://timsbmw.com

jtaletsziljtaletszil2018/09/14 02:50<a href="http://missreplicawatches.com">generic cialis</a> cialis 20 mg http://missreplicawatches.com

ctaletzqmmctaletzqmm2018/09/14 04:33<a href="http://canadian-pharmasale.com">generic cialis pills</a> buy cialis no prescription http://canadian-pharmasale.com

ctaletifutctaletifut2018/09/14 09:14<a href="http://top-monterey-salinas-dentists.com">levitra generic us</a> levitra for sale http://top-monterey-salinas-dentists.com

jtaletdoayjtaletdoay2018/09/14 12:13<a href="http://missreplicawatches.com">cheap cialis 5mg</a> best site to order cialis http://missreplicawatches.com

xtaletanrmxtaletanrm2018/09/14 12:41<a href="http://bullsac.com">levitra pills price</a> levitra online canada http://bullsac.com

ptaletedorptaletedor2018/09/14 15:38<a href="http://buycialisonlineglka.com">cheap cialis tablet</a> generic cialis canada online pharmacy http://buycialisonlineglka.com

ztaletuzodztaletuzod2018/09/14 21:55<a href="http://missreplicawatches.com">cheap cialis nz</a> order cialis from canada http://missreplicawatches.com

ataletpffsataletpffs2018/09/14 22:22<a href="http://zbloggers.com">buy propecia online</a> propecia results timeline http://zbloggers.com

jtalethfusjtalethfus2018/09/15 00:02<a href="http://valladium.com">generic cialis online pharmacy</a> ordering cialis online http://valladium.com

ntaletwgwdntaletwgwd2018/09/15 00:37<a href="http://canadian-pharmabuy.com">best place to buy viagra online</a> generic viagra pills http://canadian-pharmabuy.com

ytaletxsfzytaletxsfz2018/09/15 08:20<a href="http://buycialisonl1ne.us">order generic cialis online no prescription</a> order cialis online canadian pharmacy http://buycialisonl1ne.us

ktaletosktktaletoskt2018/09/15 09:41<a href="http://baymontelreno.com">cheap cialis canada pharmacy</a> cialis 5mg http://baymontelreno.com

ktaletqramktaletqram2018/09/15 18:48<a href="http://top-monterey-salinas-dentists.com">levitra free trial coupon</a> how long is levitra effective http://top-monterey-salinas-dentists.com

dtaletdvhpdtaletdvhp2018/09/15 23:11<a href="http://h-m-j.com">viagra mail order usa</a> cheap viagra pills for sale http://h-m-j.com

ztaleteteoztaleteteo2018/09/16 02:27<a href="http://valladium.com">buy cialis online in usa</a> order cialis online safe http://valladium.com

ctaletghfectaletghfe2018/09/16 02:30<a href="http://h-m-j.com">buy viagra uk</a> order pfizer viagra http://h-m-j.com

utaletauyqutaletauyq2018/09/16 02:45<a href="http://gigawatt6.com">best place to buy cialis online</a> order cialis pills http://gigawatt6.com

ytaletqzzqytaletqzzq2018/09/16 06:00<a href="http://buycialisonl1ne.us">order cialis</a> cialis online us pharmacy http://buycialisonl1ne.us

xtaletklllxtaletklll2018/09/16 09:26<a href="http://usedrestaurantequipmentaz.com">buy cialis online pharmacy</a> cialis by mail order http://usedrestaurantequipmentaz.com

gtaletiuhigtaletiuhi2018/09/16 20:04<a href="http://rabbitinahat.com">order cialis online safe</a> cialis online canada cheap http://rabbitinahat.com

mtaletoblnmtaletobln2018/09/16 20:29<a href="http://unishade.com">cialis 5 mg</a> buy cialis without prescription http://unishade.com

italetganyitaletgany2018/09/17 01:27<a href="http://timsbmw.com">how long does levitra take to start working</a> purchase levitra online http://timsbmw.com

ytaletrttlytaletrttl2018/09/17 05:01<a href="http://baymontelreno.com">generic cialis without prescription</a> cheap cialis canada pharmacy http://baymontelreno.com

ntaletfqointaletfqoi2018/09/17 06:21<a href="http://timsbmw.com">levitra film coated tablets</a> does levitra lower blood pressure http://timsbmw.com

btaletzwmvbtaletzwmv2018/09/17 10:48<a href="http://timsbmw.com">levitra over the counter</a> buy levitra on line http://timsbmw.com

btaletgjeqbtaletgjeq2018/09/17 13:28<a href="http://rabbitinahat.com">how to order cialis online safely</a> viagra cialis online http://rabbitinahat.com

wtaletjnxnwtaletjnxn2018/09/17 14:53<a href="http://timsbmw.com">levitra brand online</a> levitra canada online http://timsbmw.com

qtaletxaiqqtaletxaiq2018/09/17 19:09<a href="http://canadian-pharmaonline.com">buy viagra from canada</a> cheap viagra online 100mg http://canadian-pharmaonline.com

wtalethotswtalethots2018/09/17 23:26<a href="http://unishade.com">order cialis pills</a> cialis by mail order http://unishade.com

dtalettnctdtalettnct2018/09/17 23:31<a href="http://waltzweekend.com">buy viagra uk</a> buy viagra canada http://waltzweekend.com

mtaletqulgmtaletqulg2018/09/18 02:07<a href="http://buycialisonlineglka.com">order cialis pills online</a> cheap cialis pill http://buycialisonlineglka.com

wtaletuopawtaletuopa2018/09/18 04:07<a href="http://viciolatino.com">cheap canadian viagra pills</a> online order for viagra http://viciolatino.com

qtaletlmkeqtaletlmke2018/09/18 09:01<a href="http://buyviagraonl1ne.us">order viagra online india</a> buy female viagra http://buyviagraonl1ne.us

dtaletntwwdtaletntww2018/09/18 15:13<a href="http://viciolatino.com">viagra price</a> generic viagra canada pharmacy http://viciolatino.com

ftaletbixnftaletbixn2018/09/18 20:23<a href="http://gigawatt6.com">best place to buy cialis online</a> buy cheap cialis generic http://gigawatt6.com

ptaletwqrvptaletwqrv2018/09/18 23:03<a href="http://motechautomotive.com">cialis online canada cheap</a> order cialis without prescription http://motechautomotive.com

vtaletsccgvtaletsccg2018/09/19 00:58<a href="http://missreplicawatches.com">buy cialis in canada</a> generic cialis online canada http://missreplicawatches.com

ntaletdhvnntaletdhvn2018/09/19 01:14<a href="http://buycialisonl1ne.us">cialis pill</a> cheap cialis from india http://buycialisonl1ne.us

etaletdhzdetaletdhzd2018/09/19 01:37<a href="http://valladium.com">order cialis online australia</a> mail order cialis http://valladium.com

htaletldvohtaletldvo2018/09/19 07:12<a href="http://missreplicawatches.com">cheap cialis generic online</a> cialis for sale cheap http://missreplicawatches.com

utaletljwiutaletljwi2018/09/19 08:15<a href="http://valladium.com">order cialis with paypal</a> order internet cialis http://valladium.com

CapprigamicoomaCapprigamicooma2018/09/19 09:18free slots games <a href="https://onlinecasinodd.com/">online casino bonus</a> zone online casino <a href="https://onlinecasinodd.com/">no deposit casino</a> | https://onlinecasinodd.com/ - free casino slot games https://onlinecasinodd.com/ - empire city online casino

ytalettyzkytalettyzk2018/09/19 10:42<a href="http://missreplicawatches.com">buy cialis online cheap</a> generic cialis for sale http://missreplicawatches.com

ktaletryxnktaletryxn2018/09/19 11:25<a href="http://usedrestaurantequipmentaz.com">cheap brand cialis</a> cheap cialis 20mg http://usedrestaurantequipmentaz.com

utaletxaigutaletxaig2018/09/19 11:47<a href="http://motechautomotive.com">order cialis online from canada</a> canadian pharmacy online cialis http://motechautomotive.com

wtalethqfdwtalethqfd2018/09/19 13:53<a href="http://top-monterey-salinas-dentists.com">side effects of levitra</a> levitra when to take http://top-monterey-salinas-dentists.com

mtaletwedsmtaletweds2018/09/19 19:13<a href="http://missreplicawatches.com">buy cheap cialis australia</a> order cialis with paypal http://missreplicawatches.com

qtalettbccqtalettbcc2018/09/19 19:48<a href="http://top-monterey-salinas-dentists.com">levitra online overnight delivery</a> online levitra http://top-monterey-salinas-dentists.com

qtaletsybwqtaletsybw2018/09/19 21:01<a href="http://missreplicawatches.com">cialis online canada</a> order cialis from canada http://missreplicawatches.com

ytaletltdqytaletltdq2018/09/19 21:53<a href="http://usedrestaurantequipmentaz.com">buy cialis canada</a> cialis online bestellen http://usedrestaurantequipmentaz.com

ltaletphcrltaletphcr2018/09/20 04:30<a href="http://baymontelreno.com">cialis 5mg online</a> cheap cialis tablets http://baymontelreno.com

jtaletpmiojtaletpmio2018/09/20 05:05<a href="http://zbloggers.com">generic propecia cost</a> propecia lawsuit http://zbloggers.com

ytaletvndqytaletvndq2018/09/20 06:36<a href="http://canadian-pharmabuy.com">order viagra online india</a> order viagra without prescription http://canadian-pharmabuy.com

italetpptqitaletpptq2018/09/20 09:46<a href="http://canadian-pharmasale.com">buy cialis without prescription</a> buy cialis online safely http://canadian-pharmasale.com

htaletdscxhtaletdscx2018/09/20 15:24<a href="http://unishade.com">order cialis no prescription</a> buy brand cialis http://unishade.com

utaletprlvutaletprlv2018/09/20 17:24<a href="http://buycialisonlineglka.com">buy cialis non prescription</a> generic cialis without prescription http://buycialisonlineglka.com

htaletcbddhtaletcbdd2018/09/20 23:05<a href="http://unishade.com">cialis 20 mg</a> buy brand cialis online http://unishade.com

xtaletkrrqxtaletkrrq2018/09/21 00:03<a href="http://timsbmw.com">how long does levitra work</a> levitra online canada http://timsbmw.com

ktaletqwcxktaletqwcx2018/09/21 01:21<a href="http://gigawatt6.com">cialis for sale cheap</a> discount generic cialis http://gigawatt6.com

ltalethmhtltalethmht2018/09/21 03:48<a href="http://bullsac.com">how long does levitra 20 mg last</a> recommended dosage of levitra http://bullsac.com

ltaletvfubltaletvfub2018/09/21 03:52<a href="http://baymontelreno.com">purchase cialis online</a> buy cialis usa http://baymontelreno.com

ntaletsvhyntaletsvhy2018/09/21 07:15<a href="http://bullsac.com">viagra levitra cialis comparison</a> levitra vardenafil http://bullsac.com

GuestseicyGuestseicy2018/09/21 14:55<a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a> - generic viagra super active sildenafil
viagra super active - <a href=" https://viagrasuperactive.icu/ ">fildena super active viagra</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 15:25free online slots <a href="https://onlinecasinoplay.us.org/">borgata online casino</a> tropicana online casino <a href="https://onlinecasinoplay.us.org/">play online casino</a> | https://onlinecasinoplay.us.org/ - free slots games https://onlinecasinoplay.us.org/ - free casino games slotomania

GuestseicyGuestseicy2018/09/21 15:34<a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a> - viagra super active 150mg
cheap viagra super active, <a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a>
https://viagrasuperactive.icu/

wayncpymnwayncpymn2018/09/21 15:49caesar casino online slot games <a href="https://freeonlinecasino.icu/">casino slot</a> posh casino online <a href="https://freeonlinecasino.icu/">viejas casino</a> | https://freeonlinecasino.icu/ - real casino https://freeonlinecasino.icu/ - grand casino hinckley

BroanoInderseBroanoInderse2018/09/21 15:53play free vegas casino games <a href="https://onlinecasinox.icu/">doubledown casino promo codes</a> bovada casino <a href="https://onlinecasinox.icu/">online slot machines</a> | https://onlinecasinox.icu/ - blue chip casino https://onlinecasinox.icu/ - jackpot party casino

CapprigamicoomaCapprigamicooma2018/09/21 15:57free buffalo slots <a href="https://vegasslotsonline.icu/">online slot games</a> charlestown races and slots <a href="https://vegasslotsonline.icu/">slots farm</a> | https://vegasslotsonline.icu/ - brian christopher slots https://vegasslotsonline.icu/ - gamepoint slots

CapprigamicoomaCapprigamicooma2018/09/21 16:12chumash casino <a href="https://slotsonline.ooo/">dakota sioux casino</a> free casino <a href="https://slotsonline.ooo/">firekeepers casino</a> | https://slotsonline.ooo/ - gsn casino on facebook https://slotsonline.ooo/ - virgin casino online

GuestseicyGuestseicy2018/09/21 16:20<a href=" https://viagrasuperactive.icu/ ">viagra super active 100mg pills</a> - super active viagra 150 mg
viagra super active review - <a href=" https://viagrasuperactive.icu/ ">viagra super active 150mg</a>
https://viagrasuperactive.icu/

FofsarrobiaFofsarrobia2018/09/21 17:07vegas free slots online <a href="https://realmoneyslots.icu/">slots free online</a> vegas free slots online <a href="https://realmoneyslots.icu/">quick hits free slots</a> | https://realmoneyslots.icu/ - pop slots casino https://realmoneyslots.icu/ - free video slots

wayncpymnwayncpymn2018/09/21 17:16slot machines <a href="https://freeonlinecasino.icu/">high 5 casino</a> sugarhouse online casino <a href="https://freeonlinecasino.icu/">borgata online casino</a> | https://freeonlinecasino.icu/ - hollywood casino play4fun https://freeonlinecasino.icu/ - virgin casino online nj

BroanoInderseBroanoInderse2018/09/21 17:21casino games free <a href="https://onlinecasinox.icu/">borgata hotel casino</a> slot machines <a href="https://onlinecasinox.icu/">gsn casino games</a> | https://onlinecasinox.icu/ - doubleu casino https://onlinecasinox.icu/ - online gambling sites

CapprigamicoomaCapprigamicooma2018/09/21 17:25empire city online casino <a href="https://onlinecasinoplay.us.org/">online casino slots</a> lady luck online casino <a href="https://onlinecasinoplay.us.org/">online casino slots</a> | https://onlinecasinoplay.us.org/ - lady luck online casino https://onlinecasinoplay.us.org/ - free casino games slotomania

CapprigamicoomaCapprigamicooma2018/09/21 17:25jackpot magic slots <a href="https://vegasslotsonline.icu/">heart of vegas free slots</a> slots of vegas casino <a href="https://vegasslotsonline.icu/">online slot games</a> | https://vegasslotsonline.icu/ - free vegas slots https://vegasslotsonline.icu/ - free slot machine games

pseushjahpseushjah2018/09/21 17:55free android spy <a href="https://phonespy.us.com/">how to track an iphone</a> spy on cell phone without touching it <a href=" https://phonespy.us.com/">free spy apps without installing target phone</a> | https://phonespy.us.com/ - spy on text messages https://phonespy.us.com/ - spy phone app

CapprigamicoomaCapprigamicooma2018/09/21 18:19huuuge casino <a href="https://slotsonline.ooo/">casino slot</a> gambling sites <a href="https://slotsonline.ooo/">free slots casino games</a> | https://slotsonline.ooo/ - free casino slot games https://slotsonline.ooo/ - free slots casino games

GuestseicyGuestseicy2018/09/21 18:30<a href=" https://viagrasuperactive.icu/ ">generic viagra super active 100mg</a> - super active viagra 150 mg
buy cheap viagra super active - <a href=" https://viagrasuperactive.icu/ ">online viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 18:40<a href=" https://viagrasuperactive.icu/ ">viagra super active</a>, buy cheap viagra super active
buy viagra super active - <a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 18:49<a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a> - generic viagra super active sildenafil
cheap viagra super active - <a href=" https://viagrasuperactive.icu/ ">cialis super active</a>
https://viagrasuperactive.icu/

FofsarrobiaFofsarrobia2018/09/21 18:54slotomania on facebook <a href="https://realmoneyslots.icu/">quick hit slots</a> gold fish casino slots <a href="https://realmoneyslots.icu/">charlestown races and slots</a> | https://realmoneyslots.icu/ - play free slots https://realmoneyslots.icu/ - heart of vegas slots

GuestseicyGuestseicy2018/09/21 18:58<a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a> - viagra super active vs viagra
fildena super active viagra, <a href=" https://viagrasuperactive.icu/ ">viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 19:09<a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a>, viagra super active vs viagra
super active viagra 150 mg, <a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 19:14<a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a> - sildenafil 100mg price
viagra super active sildenafil citrate, <a href=" https://viagrasuperactive.icu/ ">online viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 19:24<a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a>, super active viagra 150 mg
viagra super active review, <a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 19:29buffalo slots <a href="https://vegasslotsonline.icu/">slotomania on facebook</a> free slots no download <a href="https://vegasslotsonline.icu/">pompeii slots</a> | https://vegasslotsonline.icu/ - wheel of fortune slots https://vegasslotsonline.icu/ - infinity slots

GuestseicyGuestseicy2018/09/21 19:31<a href=" https://viagrasuperactive.icu/ ">viagra super active 100mg pills</a>, super active viagra 150 mg
lowest price generic viagra 100mg, <a href=" https://viagrasuperactive.icu/ ">buy viagra super active</a>
https://viagrasuperactive.icu/

wayncpymnwayncpymn2018/09/21 19:33hypercasinos <a href="https://freeonlinecasino.icu/">play casino</a> casinos online <a href="https://freeonlinecasino.icu/">viejas casino</a> | https://freeonlinecasino.icu/ - gambling sites https://freeonlinecasino.icu/ - free slots casino games

CapprigamicoomaCapprigamicooma2018/09/21 19:33zone online casino <a href="https://onlinecasinoplay.us.org/">casino games free</a> online casinos for us players <a href="https://onlinecasinoplay.us.org/">free casino games vegas world</a> | https://onlinecasinoplay.us.org/ - free online casino games https://onlinecasinoplay.us.org/ - online casino games

BroanoInderseBroanoInderse2018/09/21 19:36slot machines <a href="https://onlinecasinox.icu/">888 casino</a> tropicana online casino <a href="https://onlinecasinox.icu/">turning stone casino</a> | https://onlinecasinox.icu/ - rivers casino https://onlinecasinox.icu/ - online casino gambling

GuestseicyGuestseicy2018/09/21 19:41<a href=" https://viagrasuperactive.icu/ ">cialis super active</a> - viagra super active vs viagra
viagra without prescription, <a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 19:49<a href=" https://viagrasuperactive.icu/ ">viagra super active sildenafil citrate</a> - sildenafil generic
super active viagra 150 mg - <a href=" https://viagrasuperactive.icu/ ">viagra super active online</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 19:50cashman casino <a href="https://slotsonline.ooo/">free online casino slots</a> online casino bonus <a href="https://slotsonline.ooo/">choctaw casino</a> | https://slotsonline.ooo/ - casinos in iowa https://slotsonline.ooo/ - play online casino

GuestseicyGuestseicy2018/09/21 19:55<a href=" https://viagrasuperactive.icu/ ">cialis super active</a>, viagra super active vs viagra
viagra super active vs viagra - <a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 19:58<a href=" https://viagrasuperactive.icu/ ">viagra super active plus reviews</a> - buy cheap viagra super active
lowest price generic viagra 100mg, <a href=" https://viagrasuperactive.icu/ ">super viagra pills 100 mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:00<a href=" https://viagrasuperactive.icu/ ">super active viagra</a> - cheap viagra super active
viagra super active - <a href=" https://viagrasuperactive.icu/ ">online viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:01<a href=" https://viagrasuperactive.icu/ ">online viagra super active</a> - viagra super active online
sildenafil 100mg price - <a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:03<a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a>, viagra without a doctors prescription
sildenafil 100mg price, <a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:08<a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a>, viagra super active review
viagra super active 100mg pills, <a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:15<a href=" https://viagrasuperactive.icu/ ">viagra super active 100mg pills</a> - viagra super active 100mg pills
cialis super active - <a href=" https://viagrasuperactive.icu/ ">viagra super active 100mg pills</a>
https://viagrasuperactive.icu/

FofsarrobiaFofsarrobia2018/09/21 20:17vegas slots <a href="https://realmoneyslots.icu/">play free slots for fun</a> brian christopher slots <a href="https://realmoneyslots.icu/">play slots online</a> | https://realmoneyslots.icu/ - free slots online no download https://realmoneyslots.icu/ - brian christopher slots

GuestseicyGuestseicy2018/09/21 20:23<a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a>, buy cheap viagra super active
what is viagra super active - <a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:25<a href=" https://viagrasuperactive.icu/ ">super active viagra</a> - super active viagra
viagra without a doctors prescription, <a href=" https://viagrasuperactive.icu/ ">buy viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:28<a href=" https://viagrasuperactive.icu/ ">viagra super active 150mg</a>, lowest price generic viagra 100mg
sildenafil generic - <a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:42<a href=" https://viagrasuperactive.icu/ ">cialis super active</a>, buy cheap viagra super active
viagra super active 100mg pills, <a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:44<a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a> - viagra without a doctors prescription
generic viagra super active sildenafil, <a href=" https://viagrasuperactive.icu/ ">viagra super active sildenafil citrate</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:48<a href=" https://viagrasuperactive.icu/ ">cialis super active</a>, what is viagra super active
viagra super active - <a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:51<a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a>, viagra super active
viagra super active 150mg, <a href=" https://viagrasuperactive.icu/ ">viagra super active vs viagra</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 20:54<a href=" https://viagrasuperactive.icu/ ">cialis super active</a> - cialis super active
viagra super active plus reviews - <a href=" https://viagrasuperactive.icu/ ">generic viagra super active 100mg</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 20:57free online slots games <a href="https://vegasslotsonline.icu/">slots for free</a> liberty slots casino <a href="https://vegasslotsonline.icu/">free casino slots games</a> | https://vegasslotsonline.icu/ - gamepoint slots https://vegasslotsonline.icu/ - free vegas slots

CapprigamicoomaCapprigamicooma2018/09/21 21:06free casino games online <a href="https://onlinecasinoplay.us.org/">real casino</a> casino games slots free <a href="https://onlinecasinoplay.us.org/">free casino games slotomania</a> | https://onlinecasinoplay.us.org/ - best online casino https://onlinecasinoplay.us.org/ - play free vegas casino games

GuestseicyGuestseicy2018/09/21 21:09<a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a> - cheap viagra super active
super active viagra 150 mg, <a href=" https://viagrasuperactive.icu/ ">buy viagra super active</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 21:09online casino slots <a href="https://slotsonline.ooo/">viejas casino</a> 888 casino <a href="https://slotsonline.ooo/">bonus casino</a> | https://slotsonline.ooo/ - playmgm nj casino online https://slotsonline.ooo/ - grand casino hinckley

GuestseicyGuestseicy2018/09/21 21:10<a href=" https://viagrasuperactive.icu/ ">viagra super active vs viagra</a>, buy viagra super active
buy cheap viagra super active, <a href=" https://viagrasuperactive.icu/ ">viagra super active online</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 21:10<a href=" https://viagrasuperactive.icu/ ">viagra super active vs viagra</a> - super active viagra
buy viagra super active, <a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 21:20<a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a> - super active viagra
buy viagra super active - <a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 21:23<a href=" https://viagrasuperactive.icu/ ">sildenafil 100mg price</a>, viagra super active 150mg
viagra super active sildenafil citrate, <a href=" https://viagrasuperactive.icu/ ">super active viagra 150 mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 21:27<a href=" https://viagrasuperactive.icu/ ">buy viagra super active</a> - viagra super active 150mg
viagra super active, <a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 21:29<a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a>, lowest price generic viagra 100mg
viagra super active 150mg, <a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>
https://viagrasuperactive.icu/

pseushjahpseushjah2018/09/21 21:30iphone tracker free gps <a href="https://phonespy.us.com/">spy phone app mobile tracker</a> spy phone app <a href=" https://phonespy.us.com/">iphone tracker locator</a> | https://phonespy.us.com/ - track iphone location https://phonespy.us.com/ - free android spy

FofsarrobiaFofsarrobia2018/09/21 21:34free slots vegas world <a href="https://realmoneyslots.icu/">simslots free slots</a> free slots no download no registration <a href="https://realmoneyslots.icu/">vegas slots</a> | https://realmoneyslots.icu/ - cleopatra slots https://realmoneyslots.icu/ - slot games

GuestseicyGuestseicy2018/09/21 21:46<a href=" https://viagrasuperactive.icu/ ">online viagra super active</a> - viagra super active sildenafil citrate
buy viagra super active - <a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 21:54<a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a>, super active viagra 150 mg
viagra super active sildenafil citrate, <a href=" https://viagrasuperactive.icu/ ">super active viagra</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:00<a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a> - sildenafil 100mg price
sildenafil generic - <a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:02<a href=" https://viagrasuperactive.icu/ ">online viagra super active</a> - sildenafil generic
viagra super active 150mg - <a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:10<a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a> - viagra super active sildenafil citrate
generic viagra super active 100mg - <a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:13<a href=" https://viagrasuperactive.icu/ ">online viagra super active</a> - what is viagra super active
viagra super active online - <a href=" https://viagrasuperactive.icu/ ">cialis super active</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 22:17slots online <a href="https://vegasslotsonline.icu/">online casino slots</a> hot shot casino slots <a href="https://vegasslotsonline.icu/">hollywood casino online slots</a> | https://vegasslotsonline.icu/ - free slots vegas world https://vegasslotsonline.icu/ - buffalo gold slots

GuestseicyGuestseicy2018/09/21 22:19<a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a>, viagra super active 100mg pills
generic viagra super active 100mg, <a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:19<a href=" https://viagrasuperactive.icu/ ">super viagra pills 100 mg</a> - viagra super active vs viagra
online viagra super active - <a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:19<a href=" https://viagrasuperactive.icu/ ">viagra super active sildenafil citrate</a> - generic viagra super active 100mg
sildenafil 100mg price - <a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 22:21codeshareonline doubledown casino <a href="https://slotsonline.ooo/">caesars casino</a> hollywood casino online <a href="https://slotsonline.ooo/">casino slot</a> | https://slotsonline.ooo/ - vegas casino online https://slotsonline.ooo/ - casino games

wayncpymnwayncpymn2018/09/21 22:27zone online casino games <a href="https://freeonlinecasino.icu/">borgata online casino</a> empire city casino online <a href="https://freeonlinecasino.icu/">free online casino games</a> | https://freeonlinecasino.icu/ - treasure island casino minnesota https://freeonlinecasino.icu/ - cashman casino

BroanoInderseBroanoInderse2018/09/21 22:28free casino games slots <a href="https://onlinecasinox.icu/">red rock casino</a> online slot machines <a href="https://onlinecasinox.icu/">cherokee casino</a> | https://onlinecasinox.icu/ - harrah cherokee casino https://onlinecasinox.icu/ - foxwoods casino online slots

GuestseicyGuestseicy2018/09/21 22:29<a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a> - generic viagra super active 100mg
viagra super active 100mg pills - <a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:32<a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a> - buy cheap viagra super active
viagra super active plus reviews - <a href=" https://viagrasuperactive.icu/ ">super viagra pills 100 mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:38<a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>, buy cheap viagra super active
viagra super active, <a href=" https://viagrasuperactive.icu/ ">buy viagra super active</a>
https://viagrasuperactive.icu/

FofsarrobiaFofsarrobia2018/09/21 22:43gossip slots <a href="https://realmoneyslots.icu/">caesars slots free casino</a> slots online <a href="https://realmoneyslots.icu/">pch slots tournament</a> | https://realmoneyslots.icu/ - vegas world free slots https://realmoneyslots.icu/ - online slots real money

GuestseicyGuestseicy2018/09/21 22:45<a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a> - viagra super active vs viagra
viagra super active review - <a href=" https://viagrasuperactive.icu/ ">fildena super active viagra</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:54<a href=" https://viagrasuperactive.icu/ ">cialis super active</a> - generic viagra super active 100mg
cialis super active, <a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:55<a href=" https://viagrasuperactive.icu/ ">sildenafil 100mg price</a>, viagra without a doctors prescription
fildena super active viagra, <a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 22:57<a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a> - sildenafil generic
lowest price generic viagra 100mg, <a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:02<a href=" https://viagrasuperactive.icu/ ">generic viagra super active 100mg</a>, online viagra super active
what is viagra super active - <a href=" https://viagrasuperactive.icu/ ">viagra super active sildenafil citrate</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:12<a href=" https://viagrasuperactive.icu/ ">viagra super active</a>, buy viagra super active
viagra without a doctors prescription - <a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:13<a href=" https://viagrasuperactive.icu/ ">viagra super active vs viagra</a> - viagra super active online
buy cheap viagra super active - <a href=" https://viagrasuperactive.icu/ ">generic viagra super active sildenafil</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:22<a href=" https://viagrasuperactive.icu/ ">sildenafil 100mg price</a> - super active viagra 150 mg
viagra without prescription - <a href=" https://viagrasuperactive.icu/ ">fildena super active viagra</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:27<a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a> - buy cheap viagra super active
viagra super active, <a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 23:27free games online slots <a href="https://vegasslotsonline.icu/">online casino slots no download</a> wizard of oz slots <a href="https://vegasslotsonline.icu/">online casino slots no download</a> | https://vegasslotsonline.icu/ - quick hits free slots https://vegasslotsonline.icu/ - free slots no download

GuestseicyGuestseicy2018/09/21 23:28<a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a> - generic viagra super active sildenafil
viagra super active 100mg pills, <a href=" https://viagrasuperactive.icu/ ">online viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:28<a href=" https://viagrasuperactive.icu/ ">super active viagra 150 mg</a>, viagra without prescription
generic viagra super active 100mg, <a href=" https://viagrasuperactive.icu/ ">generic viagra super active 100mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:28<a href=" https://viagrasuperactive.icu/ ">super active viagra</a> - viagra super active vs viagra
sildenafil 100mg price - <a href=" https://viagrasuperactive.icu/ ">cialis super active</a>
https://viagrasuperactive.icu/

CapprigamicoomaCapprigamicooma2018/09/21 23:29muckleshoot casino <a href="https://slotsonline.ooo/">del lago casino</a> grand falls casino <a href="https://slotsonline.ooo/">mgm online casino nj</a> | https://slotsonline.ooo/ - free casino games slotomania https://slotsonline.ooo/ - island view casino

GuestseicyGuestseicy2018/09/21 23:38<a href=" https://viagrasuperactive.icu/ ">viagra super active</a> - what is viagra super active
viagra super active 100mg pills - <a href=" https://viagrasuperactive.icu/ ">viagra without a doctors prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:43<a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a>, viagra super active sildenafil citrate
viagra without a doctors prescription, <a href=" https://viagrasuperactive.icu/ ">viagra super active plus reviews</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:43<a href=" https://viagrasuperactive.icu/ ">viagra super active 100mg pills</a> - online viagra super active
viagra super active 100mg pills - <a href=" https://viagrasuperactive.icu/ ">super viagra pills 100 mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:56<a href=" https://viagrasuperactive.icu/ ">generic viagra super active 100mg</a>, viagra super active 100mg pills
buy cheap viagra super active - <a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/21 23:57<a href=" https://viagrasuperactive.icu/ ">super viagra pills 100 mg</a>, super viagra pills 100 mg
cheap viagra super active, <a href=" https://viagrasuperactive.icu/ ">viagra without prescription</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/22 00:07<a href=" https://viagrasuperactive.icu/ ">super active viagra</a> - viagra super active vs viagra
viagra super active vs viagra, <a href=" https://viagrasuperactive.icu/ ">viagra super active plus reviews</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/22 00:13<a href=" https://viagrasuperactive.icu/ ">viagra super active review</a>, cialis super active
cialis super active, <a href=" https://viagrasuperactive.icu/ ">cheap viagra super active</a>
https://viagrasuperactive.icu/

newwountYnewwountY2018/09/22 00:19prairie meadows casino <a href="https://onlinecasinoo.icu/">cafe casino online</a> belterra casino <a href="https://onlinecasinoo.icu/">real money casino</a> | https://onlinecasinoo.icu/ - plainridge casino https://onlinecasinoo.icu/ - doubleu casino

artercagtibeartercagtibe2018/09/22 00:20penny slots <a href="https://playonlinecasino.icu/">gsn casino slots</a> gun lake casino <a href="https://playonlinecasino.icu/">gsn casino on facebook</a> | https://playonlinecasino.icu/ - vegas casino online https://playonlinecasino.icu/ - sugarhouse online casino

infubanlinyinfubanliny2018/09/22 00:22gold fish casino slots <a href="https://slotsrealmoney.icu/">free slots online</a> slotomania on facebook <a href="https://slotsrealmoney.icu/">free slots no download no registration</a> | https://slotsrealmoney.icu/ - free penny slots no download https://slotsrealmoney.icu/ - vegas slots

GuestseicyGuestseicy2018/09/22 00:25<a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a> - cialis super active
generic viagra super active sildenafil - <a href=" https://viagrasuperactive.icu/ ">sildenafil generic</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/22 00:25<a href=" https://viagrasuperactive.icu/ ">viagra super active</a>, buy cheap viagra super active
cheap viagra super active, <a href=" https://viagrasuperactive.icu/ ">generic viagra super active 100mg</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/22 00:29<a href=" https://viagrasuperactive.icu/ ">viagra super active vs viagra</a> - viagra super active
viagra super active, <a href=" https://viagrasuperactive.icu/ ">sildenafil 100mg price</a>
https://viagrasuperactive.icu/

pseushjahpseushjah2018/09/22 00:32iphone tracker locator <a href="https://phonespy.us.com/">iphone tracker locator</a> best android spy app undetectable <a href=" https://phonespy.us.com/">free phone tracker</a> | https://phonespy.us.com/ - locate a cell phone position free https://phonespy.us.com/ - free phone tracker

GuestseicyGuestseicy2018/09/22 00:33<a href=" https://viagrasuperactive.icu/ ">cialis super active</a> - super viagra pills 100 mg
super active viagra 150 mg - <a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a>
https://viagrasuperactive.icu/

TosiubribraTosiubribra2018/09/22 00:36free online slots <a href="https://onlinecasino2018.us.org/">tropicana online casino</a> gsn casino games <a href="https://onlinecasino2018.us.org/">slots for real money</a> | https://onlinecasino2018.us.org/ - online casino real money https://onlinecasino2018.us.org/ - real casino

GuestseicyGuestseicy2018/09/22 00:37<a href=" https://viagrasuperactive.icu/ ">viagra super active plus reviews</a> - viagra super active
viagra super active sildenafil citrate - <a href=" https://viagrasuperactive.icu/ ">buy cheap viagra super active</a>
https://viagrasuperactive.icu/

GuestseicyGuestseicy2018/09/22 00:38<a href=" https://viagrasuperactive.icu/ ">lowest price generic viagra 100mg</a> - viagra super active vs viagra
super active viagra 150 mg - <a href=" https://viagrasuperactive.icu/ ">what is viagra super active</a>
https://viagrasuperactive.icu/

FofsarrobiaFofsarrobia2018/09/22 00:39high five casino slots <a href="https://casinoo.ooo/">thunder valley casino</a> stn play online casino <a href="https://casinoo.ooo/">golden nugget online casino</a> | https://casinoo.ooo/ - treasure island casino minnesota https://casinoo.ooo/ - free vegas casino games

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20111128

2011-11-15

[][]AnyEventの文脈でFriendFeedに画像とか音声とかのファイルをポストする 14:19 AnyEventの文脈でFriendFeedに画像とか音声とかのファイルをポストする - ishiducaの日記 を含むブックマーク はてなブックマーク - AnyEventの文脈でFriendFeedに画像とか音声とかのファイルをポストする - ishiducaの日記 AnyEventの文脈でFriendFeedに画像とか音声とかのファイルをポストする - ishiducaの日記 のブックマークコメント

ポストするだけ。

feed馬鹿には FriendFeed は必須コンテンツなので、簡単になくなってもらうと困りますね。

post.pl

#!/usr/bin/env perl
use strict;
use warnings;
use MyApp::AnyEvent::FriendFeed;

my $message = "hogehoge";
my @files   = qw( path/to/image/1.jpg );

for my $file (@files) {
    die qq(! failed: "$file" not found) unless -e $file;
}

my %options = (
    file    => [ @files ],
    comment => 'comment of hogehoge',
);

my $client = MyApp::AnyEvent::FriendFeed->new(
    username => 'your username', remotekey => 'remotekey',
);

my $cv = AE::cv;

$client->post($message, %options, sub {
    my($response, $headers) = @_;

    if ($headers->{Status} ne '200') {
        warn qq(! failed $headers->{Status} $headers->{Reason}\n);
    }

    if ($response->{errorCode}) {
        warn qq(! failed $response->{errorCode}\n);
    }

    print join '\t',
        $response->{date},
        "(id: $response->{id})",
        "url: $response->{uri}",
        "$response->{body}\n";

    $cv->send;

});

$cv->recv;


今更だけど、Tatsumaki::HTTPClient をベースにしたほうが筋いいよね...orz

package MyApp::AnyEvent::FriendFeed;
use strict;
use warnings;
use Carp;
use AnyEvent;
use AnyEvent::HTTP;
use MIME::Base64;
use HTTP::Request::Common;
use HTTP::Request;
use JSON;

our $VERSION = '0.01';

my $api = 'http://friendfeed-api.com/v2/entry';

sub new {
    my $class = shift;
    my %args  = @_;

    $args{'username'}  || Carp::croak qq(! failed: "username" not found\n);
    $args{'remotekey'} || Carp::croak qq(! failed: "remotekey" not found\n);
 
    chomp(my $auth = MIME::Base64::encode( join ':', $args{username}, $args{remotekey}));

    bless {
        authorization => "Basic ${auth}",
    }, $class;
}

sub post {
    my $self = shift;
    my $body = shift || Carp::croak qq(! failed: "body" parameter not found\n);
    my $cb   = pop   || Carp::croak qq(! failed: "callback" not found\n);
    my %opts = @_;

    my $on_error  = delete $opts{on_error}  || sub { die @_; return; };
    my $on_header = delete $opts{on_header} || sub {
        my $headers = shift;
        unless ($headers->{Status} =~ /^2/) {
            $on_error->(qq(! failed: $headers->{Status} "$headers->{Reason}"\n));
            return;
        }
        return 1;
    };

    $opts{body} = $body;

    my @request_params = ($api,
        Authorization => $self->{authorization},
        Content       => \%opts
    );

    push @request_params, qw/Content_Type form-data/ if $opts{file};
    
    my $request = HTTP::Request::Common::POST(@request_params);

    my $p; $p = http_request('POST' => $api,
        headers   => $request->headers,
        body      => $request->content,
        on_header => $on_header,
        sub {
            undef $p;
            my($body, $headers) = @_;
            my $res = JSON::decode_json $body;
            $cb->($res, $headers);
        }
    );
}

1;

__END__

こっちにも https://gist.github.com/1366140

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20111115

2011-11-05

[][]いまさら「YAPC::ASIA 2011 Tokyo 行ってきたので」(追記: 2011.11.07) 21:30 いまさら「YAPC::ASIA 2011 Tokyo 行ってきたので」(追記: 2011.11.07) - ishiducaの日記 を含むブックマーク はてなブックマーク - いまさら「YAPC::ASIA 2011 Tokyo 行ってきたので」(追記: 2011.11.07) - ishiducaの日記 いまさら「YAPC::ASIA 2011 Tokyo 行ってきたので」(追記: 2011.11.07) - ishiducaの日記 のブックマークコメント

YAPC::ASIA 2011 Tokyoでは Marc Lehmann さんのトークの中で「アニメ」を連呼していたのがよかったですね。

(中略)ということで、マルチなダウンロードには AnyEvent を使うのがいいんだな! と勝手に合点して、AnyEvent::Pixiv::Download というのを書いた。今更感がすごいけど。

追記: github に上げました https://github.com/ishiduca/p5-AnyEvent-Pixiv-Download 原理的には同じなんだけど、メソッド名とか変わってます (2011.11.07)

サンプルのダウンロードスクリプト(dl.pl)

#!/usr/bin/env perl
use strict;
use warnings;
use Config::Pit;
use AnyEvent::Pixiv::Download;

my $config = pit_get('www.pixiv.net', require => {
    pixiv_id => '', pass => '',
});

my $cv = AE::cv;

my $client = AnyEvent::Pixiv::Download->new(
    pixiv_id => $config->{pixiv_id},
    pass     => $config->{pass},
);

for my $illust_id (qw/22854495 22856417 22855011 22849905/) {

    $client->to_mode_medium($illust_id, 'deep', sub {
        my $information = shift;
        my $illust_top_url     = $information->{illust_top_url};

        for my $img_src (@{$information->{contents}}) {

            $cv->begin;
            $client->download($img_src, $illust_top_url, sub {
                my(undef, $headers) = @_;
                warn "!! finish ", $headers->{URL}, "\n";
                $cv->end;
            });
        }
    });
}

$cv->recv;

1;

多重コールバックになるUIとか、リ○○ラをいちいち指定しなくちゃいけないのがださくて仕方ないので、ツッコミください


lib/AnyEvent/Pixiv/Download.pm

package AnyEvent::Pixiv::Download;

use warnings;
use strict;
use Carp;
use AnyEvent;
use AnyEvent::HTTP;
use Web::Scraper;
use File::Basename;
use Data::Dumper;

our $VERSION = '0.01';

my $www_pixiv_net = 'http://www.pixiv.net';
my $login_php     = "${www_pixiv_net}/login.php";
my $mypage_php    = "${www_pixiv_net}/mypage.php";
my $illust_top    = "${www_pixiv_net}/member_illust.php?mode=medium&illust_id=";

sub new {
    my $class = shift;
    my %args  = @_;

    my $self  = bless {}, $class;

    $self->{pixiv_id}   = delete $args{pixiv_id} || Carp::croak qq(! faild: "pixiv_id" not found);
    $self->{pass}       = delete $args{pass}     || Carp::croak qq(! failed: "pass" not found);
    $self->{verbose}    = delete $args{verbose}  || 1; # this test mode !
    $self->{cookie_jar} = {};
    $self->{information_mode_medium} = {};

    $self->login;

    return $self;
}

sub login {
    my $self = shift;

    my $sub_cv = AE::cv;
    my $login; $login = http_request('POST' => $login_php,
        headers => { 'content-type' => 'application/x-www-form-urlencoded' },
        body    => "mode=login&pixiv_id=$self->{pixiv_id}&pass=$self->{pass}",
        recurse => 0,
        sub {
            my($body, $headers) = @_;
            warn Dumper $headers             if $self->{verbose} == 2;
            warn qq(fetch: "${login_php}"\n) if $self->{verbose} == 1;

            Carp::croak qq(! failed: "set-cookie" not found at $headers->{URL}\n)
                unless $headers->{'set-cookie'};

            $self->{cookie_jar} = _cookie_jar_hogehoge($headers->{'set-cookie'})
                or Carp::croak qq(! failed: something wrong...\n);

            warn Dumper $self->{cookie_jar}                   if $self->{verbose} == 2;
            warn qq(get_cookie: "$headers->{'set-cookie'}"\n) if $self->{verbose} == 1;

            my $location = $headers->{'location'};

            undef $login;

            my $redirect; $redirect = http_request('GET' => $location,
                cookie_jar => $self->{cookie_jar},
                sub {    
                    my($body, $headers) = @_;
                    Carp::croak qq(! failed: "redirect" failed\n  $headers->{URL}\n)
                        if $headers->{URL} ne $location;

                    warn Dumper $headers                if $self->{verbose} == 2;
                    warn qq(fetch: "$headers->{URL}"\n) if $self->{verbose} == 1;
                    
                    undef $redirect;
                    $sub_cv->send("sucess: login !\n");
                }
            );
        }
    );
    my $message = $sub_cv->recv;
    warn $message;

    return $self;
}

sub to_mode_medium {
    my $self      = shift;
    my $cb        = pop;
    my $illust_id = shift || Carp::croak qq(! failed: "illust_id" not found\n);
    my $deep      = shift;

    my $mode_medium; $mode_medium = http_request('GET', "${illust_top}${illust_id}",
        cookie_jar => $self->{cookie_jar},
        sub {
            my($body, $headers) = @_;
            warn Dumper $headers                if $self->{verbose} == 2;
            warn qq(fetch: "$headers->{URL}"\n) if $self->{verbose} == 1;

            Carp::croak qq(! failed: something wrong...\n  $headers->{URL}\n)
                if $headers->{URL} ne "${illust_top}${illust_id}";

            my $information  = _scrape_mode_medium($body, $headers->{URL});

            if ($deep) {
                my $mode_big; $mode_big = http_request('GET', $information->{contents_url},
                    cookie_jar => $self->{cookie_jar},
                    headers    => { referer => $headers->{URL} },
                    sub {
                        my($body, $headers) = @_;

                        Carp::croak qq(! failed: something wrong...\n  $headers->{URL}\n)
                            if $headers->{URL} ne $information->{contents_url};

                        warn Dumper $headers                if $self->{verbose} == 2;
                        warn qq(fetch: "$headers->{URL}"\n) if $self->{verbose} == 1;

                        if ($information->{contents_url} =~ /mode=manga/) {
                            $information->{mode} = 'manga';
                            $information->{contents} = [];
                            while ($body =~ m!(http://img\d\d\.pixiv\.net/img/[^']+?)'!g) {
                                push @{$information->{contents}}, $1;
                            }
                        } else { # $information->{contents_url} =~ /mode=big/
                            $information->{mode} = 'big';
                            my $scraper = scraper {
                                process '//div/a/img[1]', 'img_src' => '@src';
                            };
                            $information->{contents} = [ ($scraper->scrape($body))->{img_src} ];
                        }

                        $self->{information_mode_medium} = $information;
                        warn Dumper $information if $self->{verbose} == 2;
                        warn Dumper $information if $self->{verbose} == 1;

                        undef $mode_big;
                        undef $mode_medium;
                        $cb->($information);
                    }
                );
            } else {
                $self->{information_mode_medium}->{$illust_id} = $information;
                warn Dumper $information if $self->{verbose} == 2;
                warn Dumper $information if $self->{verbose} == 1;

                undef $mode_medium;
                $cb->($information);
            }
        }
    );

    return $self;
}

sub download {
    my $self    = shift;
    my $cb      = pop;
    my $img_src = shift || Carp::croak qq(! failed: "img_src" not found\n);;
    my $referer = shift || Carp::croak qq(! failed: "referer" not found\n);
    my $options = shift;

    my $on_body = ($options->{on_body}) ? $options->{on_body} : (sub {
        my $filename = basename $img_src;
        $filename =~ s/\?.*$//;
        open my $fh, '>', $filename or Carp::croak qq(! failed: "${filename}" $!\n);
        binmode $fh;
        return sub {
            my($partial_body, $headers) = @_;
            if ($headers->{Status} =~ /^2/) {
                print $fh $partial_body;
            }
            return 1;
        };
    })->();

    my $done; $done = http_request('GET' => $img_src,
        cookie_jar => $self->{cookie_jar},
        headers    => { referer => $referer },
        on_header => sub {
            my $headers = shift;
            if ($headers->{Status} ne '200') {
                ($options->{on_error} || sub { die @_ })->(qq(failed: "${img_src}" $headers->{Status} $headers->{Reason}\n));
                return ;
            }
            return 1;
        },
        on_body => $on_body,
        sub {
            my($body, $headers) = @_;
            undef $done;
            $cb->(@_);
        }
    );

    return $self;
}

sub _scrape_mode_medium {
    my $body           = shift || Carp::croak qq(! failed: "body" not found\n);
    my $illust_top_url = shift || Carp::croak qq(! failed: "illust_top_url" not found\n);

    my $scraper = scraper {
        process '//h3[1]', 'title' => 'TEXT';
        process '//p[@class="works_caption"]', 'description' => 'HTML';
        process '//a[@class="avatar_m"]', 'author_name' => '@title';
        process '//a[@class="avatar_m"]', 'author_url'  => [ '@href', sub {
            return $www_pixiv_net . $_;
        } ];
        process '//div[@class="works_display"]/a[1]', 'contents_url' => [ '@href', sub {
            return join '/', $www_pixiv_net, $_;
        } ];
        process '//div[@class="works_display"]/a[1]/img[1]', 'img_src' => '@src';
    };

    my $information = $scraper->scrape($body);
    $information->{author} = {};
    $information->{author}->{name} = delete $information->{author_name};
    $information->{author}->{url}  = delete $information->{author_url};
    $information->{illust_top_url} = $illust_top_url;
    return $information;
}

sub _cookie_jar_hogehoge {
    local $_ = shift || return ;
    my %cookie = ();
    my $phpsessid = 'PHPSESSID';
    map{
        my($key, $value) = split /=/;
        $cookie{$key} = $value;
    }(split /; /);

    Carp::croak  qq(! failed: "${phpsessid}" not found) unless $cookie{$phpsessid};

    return {
        $cookie{domain} => {
            $cookie{path} => {
                $phpsessid => {
                    _expires => AnyEvent::HTTP::parse_date $cookie{expires},
                    value    => $cookie{$phpsessid},
                },
            },
        },
        version => 1,
    };
}


1;

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20111105

2011-08-12

[]バイナリなファイルの読み書き 13:13 バイナリなファイルの読み書き - ishiducaの日記 を含むブックマーク はてなブックマーク - バイナリなファイルの読み書き - ishiducaの日記 バイナリなファイルの読み書き - ishiducaの日記 のブックマークコメント

use IO:All するとよしなにしてくれるらしい。

my $read_file   = 'read.jpg';
my $write_file  = 'write.jpg';
my $buffer;
use IO::All;

$buffer = io($read_file)->binary->all;
# ごにょごにょ
$buffer > io($write_file);

使わない場合にはこう書いてる

$buffer = _read($read_file);
# ごにょごにょ
_write($write_file, $buffer);

sub _read {
    my $file = shift;
    open my $fh, '<', $file or die $!;
    binmode $fh;
    return do { local $/; <$fh> };
}
sub _write {
    my($file, $bin_data) = @_;
    open my $fh, '>', $file or die $!;
    binmode $fh;
    print $data;
    close $fh;
}

以前の _read 関数はこう

sub _read {
    my $file = shift;
    my $size = -s $file;
    my $buf;

    open my $fh, '<', $file or die $!;
    binmode $fh;
    read $fh, $buf, $size;
    $buf;
}

GaganGagan2013/02/02 09:16It's good to get a fresh way of loiokng at it.

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20110812

2011-06-27

[][][]AnyEvent::HTTPでFrinedFeedにポストしてコケる(未解決->解決 6/28 0:33) 20:53 AnyEvent::HTTPでFrinedFeedにポストしてコケる(未解決->解決 6/28 0:33) - ishiducaの日記 を含むブックマーク はてなブックマーク - AnyEvent::HTTPでFrinedFeedにポストしてコケる(未解決->解決 6/28 0:33) - ishiducaの日記 AnyEvent::HTTPでFrinedFeedにポストしてコケる(未解決->解決 6/28 0:33) - ishiducaの日記 のブックマークコメント

(追記)ブックマークid:mattn さんから頂いたコメント

_authの最下行の手前に chomp $auth; 入れるときっと動くナリ

をやってみたら、ポスト出来ました。 id:mattn さんありがとうございます!

--

AnyEvent::HTTP(と Tatsumaki::HTTPClient)でFriendFeedBasic認証付きのポストをしようとするとステータスコード 404 が返ってきて、bodyパラメータが必要ですって言われる!

FriendFeedAPIのドキュメントは「FriendFeed API Documentation」にある。

use strict;
use AnyEvent;
use AnyEvent::HTTP;
use MIME::Base64;
use Data::Dumper;

my $api = 'http://friendfeed-api.com/v2/entry';

my $cv = AnyEvent->condvar;
http_request('POST' => $api,
    headers => {
	    'Authorization' => _auth('my username', 'my remotekey') 
    },
    body    => "body=test",
    sub {
        warn Dumper \@_;
        $cv->send;
    },
);

$cv->recv;
exit 0;

sub _auth {
    my($username, $remote_key) = @_;
    my $auth = MIME::Base64::encode(join(":", $username, $remote_key));
    chomp $auth; # add
    "Basic $auth";
}

結果: 401が返ってきてないから、Basic認証は通ってるけど、errorCode で "body-required" って言ってるので、リクエストボディに問題があるっぽい。ちなみにFriendfeedAPIではリクエストボディに必ず body パラメータが必要で、それがリクエストボディに記述がないってエラーコードなんだけど、、、リクエストボディの送信ができてないのか、それともリクエストボディの記述が間違いなのか?

$VAR1 = [
          '{"errorCode":"body-required"}',
          {
            'URL' => 'http://friendfeed-api.com/v2/entry',
            'connection' => 'close',
            'set-cookie' => 'HASFF=1; Path=/,AT=3295780562084656563_1309173742; Path=/',
            'Status' => '404',
            'HTTPVersion' => '1.1',
            'date' => 'Mon, 27 Jun 2011 11:22:22 GMT',
            'content-length' => '29',
            'Reason' => 'Not Found',
            'content-type' => 'text/javascript; charset=UTF-8',
            'server' => 'FriendFeedServer/0.1'
          }
        ];

AnyEvent::HTTPのラッパーの Tatsumaki::HTTPClient を使ってみる

my $client = Tatsumaki::HTTPClient->new;

my $cv = AnyEvent->condvar;
$client->post(
    $api,
    [ body => 'TEST' ],
    Authorization => _auth('my username', 'my remotekey'), 
    sub {
        warn Dumper shift;
        $cv->send;
    }
);

$cv->recv;
exit 0;

結果: 同じ結果

$VAR1 = bless( {
      '_content' => '{"errorCode":"body-required"}',
      '_rc' => '404',
      '_headers' => bless( {
           'connection' => 'close',
           'set-cookie' => 'HASFF=1; Path=/,AT=2762172806905182125_1309174542; Path=/',
           'date' => 'Mon, 27 Jun 2011 11:35:42 GMT',
           'status' => '404',
           'reason' => 'Not Found',
           'httpversion' => '1.1',
           'content-length' => '29',
           'content-type' => 'text/javascript; charset=UTF-8',
           'url' => bless( do{\(my $o = 'http://friendfeed-api.com/v2/entry')}, 'URI::http' ),
           'server' => 'FriendFeedServer/0.1'
         }, 'HTTP::Headers' ),
      '_msg' => 'Not Found'
    }, 'HTTP::Response' );

ちなみに

  • LWP::UserAgent を使うとポストできる
  • 他のコンテンツへのポストは成功している

yamada-22yamada-222011/06/28 00:17リクエストのContent-Typeがapplication/x-www-form-urlencodedになっていない

yamada-22yamada-222011/06/28 00:22ああ!MIME::Base64::encodeが改行を付けてくれるんだw
MIME::Base64::encode('user:password', '')

DrewDrew2012/06/07 21:10Kick the tires and light the fires, pobrlem officially solved!

agxmfhaagxmfha2012/06/09 21:02Io5KaW <a href="http://fyaycxcrdhjp.com/">fyaycxcrdhjp</a>

cispuamcispuam2012/06/11 04:218CoSjX , [url=http://bjktioecdzru.com/]bjktioecdzru[/url], [link=http://oflrgnwvwvst.com/]oflrgnwvwvst[/link], http://tjepxvynitpm.com/

bzjdqwzbflbzjdqwzbfl2012/06/13 10:29UmydyD , [url=http://wyoyiunnomhj.com/]wyoyiunnomhj[/url], [link=http://vgnlnayohkwz.com/]vgnlnayohkwz[/link], http://iqvgphlofwhj.com/

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20110627