my $request_token = $self->_consumer->get_request_token( callback_url => "$callback_uri", ) or die $self->_consumer->errstr; $callback_uri が $VAR1 = bless( do{\(my $o = 'http://localhost/auth/zaim/callback')}, 'URI::http' ); とかだったり…

脳はなにかと言い訳する―人は幸せになるようにできていた!? (新潮文庫)作者: 池谷裕二出版社/メーカー: 新潮社発売日: 2010/05/28メディア: 文庫購入: 13人 クリック: 36回この商品を含むブログ (26件) を見る 変身のニュース (モーニング KC)作者: 宮崎夏次…

use strict; use warnings; use Plack::Test; use HTTP::Request::Common; use Data::Dumper; my $app = ...; test_psgi app => $app, client => sub { my ($cb) = @_; my $jar = HTTP::Cookies->new; my $res = $cb->(GET '/'); $jar->extract_cookies($res…

use 5.012; use strict; use warnings; use Benchmark qw(:all); bench($_) for qw(10 100 1000 10000); sub bench { my ($max) = @_; my @vars = map {$_ => $_} 1..$max; say $max; cmpthese -1 => { 'no copy' => sub{ my @keys = map { $_%2 ? () : $var…

cpanfile requires 'Mouse' => 1.02; requires 'Text::Xslate' => 2.0000; requires 'Router::Simple' => 0.14; requires 'parent' => 0.225; requires 'URI' => 1.59; requires 'Plack' => 0.9986; requires 'Plack::Middleware::Session' => 0.15; on test…

Rubyの勉強会初めてだったけど、行ってよかったと思った。 全体的に若い人だったり女性が多かった印象。誰とも喋ってないけど…。「みなさんならこの人、このgem知ってるでしょ」みたいなの、普通に知らなかった。 Perlだとそういうのあんまりないから新鮮だ…

package let; use 5.10.1; sub s { say @_ } package main; let's dance; #=> dance let's unko; #=> unko やっぱPerlはさいこうだぜ！・追記 Acme::Don'tというのがあることを教えてもらいました。 実装を見てみると sub don't (&) {} となっていて、確かに…

FIELDS TERMINATED BYうんたら毎回ググってる。 use 5.10.1; use strict; use warnings; use DBI; use Encode; use Text::CSV; my $sql = shift @ARGV; my $dbh = DBI->connect(...); my $sth = $dbh->prepare($sql); my $csv = Text::CSV->new; $sth->execu…

思い通りにならない事、生きてるといっぱいあって、 それに対してイライラしたりして、集中したい事に集中出来ないこととかよくある。こうやって言ったのにこの人全然覚えてねえとか、 そんな事聞いてませんけどみたいなのとか、 いきなりポエムっぽいこと言…