読者です 読者をやめる 読者になる 読者になる

Perlの黒魔術を解説するよ〜〜〜〜

まずはこちらをごらんください。 Base64 decoder/encoder in Perl - 兼雑記shinh.hatenablog.com すごすぎる……。恐ろしいですね。 なぜこんなことになるのか、解説していきましょう。まずはPerlの気持ちになりましょう。 Perlの気持ち編 ポイントその1 barew…

YAPC::Asia 2013 レポート

YAPC::Asia 2013 にはプライベートの都合で参加できませんでした。YAPC今年もすごく楽しかったです。とくに dankogai が親指を立てながら溶鉱炉に沈んでいくシーンは涙無しには見られなかった。 クソ!行きたかった!!!!!

Niigata.ll が開催されるので長野からエア参加します

新潟の LLer たちが集まってワイワイするイベント Niigata.ll が本日開催されるそうです。わたしは個人的な事情で現在長野県におり参加できないので、資料だけ送りつけて長野からエア参加します。 Perlなめんな 内容は、別言語のひとたちから DIS られがちで…

Perl とか Ruby だと型が指定できなくて辛いときがある話

Perl も Ruby も、メソッドの定義読んだときに引数と返り値の型がわからないのけっこう辛い感じする、実行時チェックで問題ないならば Perl だと Smart::Args とかがあるし Moose 系のやつで型をある程度強制すればちょっとマシになる感じするけど Ruby だと…

コマンドの標準出力をリアルタイムで監視してなんかするやつ

標準出力を監視してなんかしたいんだけど、パイプで渡すと標準出力が奪われちゃうから、teeでちゃんと標準出力にも出力するみたいな。 もっといい方法がある気がする

Perl で unicorn っぽい感じでダウンタイムなしでリスタートするやつ

_人人人人人人人人人人人人_ > 元気になるコンニャク <  ̄YYYYYYYYYYYY ̄ Server::Starter を使うとよい。unicornと似たような仕組み(プロセス間でソケットを共有しておき、新しいプロセスが立ち上がったら古いプロセス殺す)で無停止リスタ…

YAPC::Asia 2012に参加してきた

自分の発表 「リアルタイム通知システムの舞台裏」というタイトルでメインのトークを、「小さなプログラムによる実験音楽」というタイトルでLTソンでの発表をさせていただきました。 http://yapcasia.org/2012/talk/show/8104edaa-b2ab-11e1-a08b-95586aeab6…

Niigata.pm tech talk #2 を開催してきました #niigatapm

タイトルの通り、Niigata.pm tech talk #2 : ATND を開催してきました。今回は「データ処理」などというざっくりしすぎてテーマでしたが、なんかいい具合に統一感のある発表が集まっていて、結果オーライでよかったなーなんて思いました。 印象に残った発表 …

Niigata.pm 決起集会をやってきました

昨日の話になりますが、Niigata.pmの決起集会をやってきました。長岡のよくわからないお店で、最初ちょっと「えっここ大丈夫なの…」と思ったんですけど、電源も貸してくれたし普通に良心的な感じでよかったです。印象に残った話としては、長岡技術科学大学の…

Niigata.pm tech talk #1 を開催してきました

4/28(土)、Niigata.pm tech talk #1を開催してきました。今回はNiigata.pmとして初の、居酒屋とかじゃないちゃんとした会場でのtech talkでした。自分の力だけでは絶対にこういう場を設けることはできなくて、Niigata.pmに参加されているみなさんや私と交流…

NDS25で「やったーGA(遺伝的アルゴリズム)でDTMできたよー\(^o^)/」というタイトルで発表して来ました

3/31(土)に、新潟県長岡市で定期的に行われている勉強会「長岡開発者勉強会(NDS)」に参加してきました。わたしは、「やったーGA(遺伝的アルゴリズム)でDTMできたよー\(^o^)/」というタイトルで発表して来ました。ふざけたタイトルですけど結構まじめなもの…

PerlでPHPのin_arrayっぽいことしたいって話

某所で話題になったので。ぼくはこうしてる use strict; use warnings; my @arr = qw/ran miki suu dia/; if (grep {$_ eq "ran"} @arr) { warn "found ✖╹◡╹✖"; } unless (grep {$_ eq "amu"} @arr) { warn "not found ✖X◡X✖"; } 追記何度もチェックすると…