Try::Tiny使ってみてる

my $res = eval { ... }; if (my $e = $@) { ...; } 1人のときは↑のように書くことが多かった。ただ会社のみんながTry::Tinyを使ってるので、使っとくかと思ったけど、みんなこんな感じで書いてる。 my ($res); try { $res = ...; } catch { ...; }; それ、…

2013-05-23

テスト毎になんかを動かしたい。

追記：僕なりの結論です → http://hisaichi5518.hatenablog.jp/entry/2013/05/25/183128printするとテストこけたりするので、注意が必要っぽいですがこれで出来る気がしてきました。 package HeyHey; use strict; use warnings; warn "heyheyheyheyhey!!!!!!…

2013-05-21

テスト毎にcallback呼びたい。

追記：僕なりの結論です → http://hisaichi5518.hatenablog.jp/entry/2013/05/25/183128 各テストが実行される前になんかやりたいとか、各テストが実行された後になんか表示させたいとか、そういうことはよくある。 TAP::Harnessを継承してアレコレして、pro…

2013-05-16

JenkinsでCan't write to cpanm home '/.cpanm'と言われた。

後輩にセットアップしてもらっったJenkins。 cpanmしてないやーんってなったので、してもらった。だがしかし。 cpanm --mirror=http://cpan.metacpan.org/ --mirror=http://.../orepan/ --installdeps .しようとしたら Can't write to cpanm home '/.cpanm':…

2013-05-15

ドメイン失効しました。

hisaichi5518.comは、なくなりました。またお金を払うのを忘れておりました。クソですね。はてなスターも、消えてなくなりました。星になったのだとおもいます。ありがとうございました。

2013-04-24

Email::Simpleは添付ファイルを処理できない

Email::Simpleでは添付ファイルを処理できない、ひさいちおぼえた。http://gihyo.jp/dev/serial/01/modern-perl/0020

2013-04-19

今日はまったコード

if ( $tinco->is_chinchcin ($row->point||0) == 3 ) { ...; } と書いていて、結構長い間？？？？？？？？？？？？？ってなってた。死にたい。

2013-04-19

Perlでshadowパスワードをつくる

fujiwara: linuxがあれば fujiwara: perlで crypt("foo", '$6$SALT') fujiwara: SALTの部分はランダムに fujiwara: でsha512のhashが生成できます fujiwara: $1$SALTならmd5 fujiwara: macだとcryptが対応してなくてできないんですよね fujiwara: Crypt::Pas…

2013-04-09

Zaimに記録されている金額を日別にグラフ化するウェッブサービスを作った。

みなさんは、Zaimを使ってるとおもいます。ぼくもそうです。なんとはなしに、グラフで見たいなって時ありますよね。ぼくもそうです。日にち毎にZaimに記録されている金額をぱっと見るだけでわかります。便利です。http://www11268ue.sakura.ne.jp:50002/

2013-04-07

overload.pm 1.18を見てた。

use 5.10.1; use strict; use warnings; use URI; use Plack::Request; use Scalar::Util qw(blessed); my $uri = URI->new("http://localhost/"); my $req = Plack::Request->new({}); say +overload::StrVal($uri); #=> URI::http=SCALAR(0x7fa3aa8663c0) …

2013-03-31

OAuth::Lite::Consumerのget_request_token

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' ); とかだったり…

2013-03-31

HTTP::Cookies の extract_cookies と add_cookie_header

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…

2013-03-25

ハッシュっぽい配列からkeysだけ取り出したい

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…

2013-03-24

Module::Build + cpanfile

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…

2013-03-16

大江戸Ruby会議03に行ってきた。

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

2013-03-07

let's hogehoge

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 (&) {} となっていて、確かに…

2013-03-07

SQLからCSV

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…

2013-03-02

チーム

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

2013-02-27

swfmillが吐き出すxmlがうんぬんかんぬん

<PushData> <items> <StackString value="COMBO_BONUS"/> </items> </PushData> <PushData> <items> <StackString value="COMBO_BONUS"/> </items> </PushData> <GetVariable/> <PushData> <items> <StackString value="2"/> </items> </PushData> <Mulitply/> <SetVariable/>全部想像なので間違ってるのかもしれない。ただ見ててなんとなく分かる流れ。 COMBO_B…</setvariable/></mulitply/></getvariable/>

2013-02-20

誕生日休暇中です。

誕生日休暇中ですが、色々ありました。住所の確認も済みました。励ましのお祝い、お待ちしております。 Amazon.co.jp: hisaichi5518: ひさいちほしいモノリスト

2013-02-17

壁殴り代行サービスはじめました。

壁を殴りたくても簡単に殴れない人はたくさんいます。それを補うサービスがなかったので、はじめました。 http://www11268ue.sakura.ne.jp:50010/

2013-02-04

Net::Google::Spreadsheets::Worksheetのbatchupdate_cellを使っているとよくわからないところでエラーが出てつらぽよ〜

Can't call method "getAttribute" on an undefined value at /Users/hisaichi5518/perl5/perlbrew/perls/5.14.2/lib/site_perl/5.14.2/Net/Google/Spreadsheets/Worksheet.pm line 86.そんな時はGoogle Spreadsheetを開き、「一番下にnn行追加」を連打した…