にひりずむ::しんぷる - 勝手に YAPC::NA 2013 に行ってきた！！
6/3 ～ 6/5 にメインで開催された YAPC::NA 2013 に参加して来ました。特に JPA のなんたらではなく、会社のお金で行って来ました！！ DeNA++ 日本からは、@yusukebe と @tokuhirom と The Perl Foundation の President であるところの Karen が参加していました。 すでに @yusukebe と @tokuhirom がレポートを書いているので、パクかぶっているところもあるかと思いますが、ご容赦を！ Future Perl - YAPC::NA 2013 に参加して - tokuhirom's blog. YAPC::NA 2013に行って来た - ゆーすけべー日記 開催場所 今回の YAPC::NA の開催場所は、アメリカはテキサス州にあるオースティン大学でした。日本からだと、成田とかからサンフランシスコ o
にひりずむ::しんぷる - WWW::Google::Cloud::Messaging 書いた
C2DM has been deprecated and replaced by Google Cloud Messaging for Android (GCM). というわけで、C2DM さん今までありがとうございました。これからは GCM の時代になりましたので WWW::Google::Cloud::Messaging をリリースしました。 JSON API のみの対応です。API key の取得はこのへんに書いてありますのでよしなに。 SYNOPSIS 貼っつけると use WWW::Google::Cloud::Messaging; my $api_key = 'Your API Key'; my $gcm = WWW::Google::Cloud::Messaging->new(api_key => $api_key); my $res = $gcm->send({ regis
にひりずむ::しんぷる - homebrew で最低限これだけはいれておけってやつ
新卒向けなんたらカレンダーの X日目です。 そもそも homebrew 使ってない まず Xcode を入れる必要がある。Xcode は App Store からインストールして、 Preference → Downloads → Components → Command Line Tools をインストール。 そしたらおもむろに以下のコマンドを打つ $ ruby -e "$(curl -fsSL https://raw.github.com/mxcl/homebrew/go/install)" おしまい。 sl $ brew install sl 必須コマンド。 zsh $ brew install --disable-etcdir zsh OS X は PATH をゴニョゴニョやられてむかつくので /etc/zshenv を読まないように --disable-etcdir 付きでインス
にひりずむ::しんぷる - Minila 化でハマったときに解決する 108 つの方法
実際は 3つぐらいしかないです。 Cinnamon の Minilla 化で @shiba_yu36 先生がハマっていたのでここに記す。 ちなむと、Minilla の現在の HEAD (cb3fc97d4e) で試しているのであり、今後は修正される可能性が大いにあります。 migrate 編 0. とりあえずブランチ切りましょう いつでもあの頃に戻りたい。みんなそう思っている。 # Minilla 化される直前の commit からブランチを作成 $ git checkout -b minilize 0bf8634 あとは、何かあったら以下のコマンドで元通りです。 $ git reset && git checkout . && git clean -df 1. ディレクトリ名とモジュール名が一致していない git repository では全部小文字なんだけど実際のモジュールは大文字だっ
にひりずむ::しんぷる - CPAN Module の変更点をサクッと調べる方法
http://blog.livedoor.jp/xaicron/archives/54444878.html これでどういう感じで調べたのかというのをなんとなく書いてみます。 Changes を見る まず、なにはともあれ Changes を確認します。自分はよく metacpan を利用しているので、 https://metacpan.org/source/KROKI/Cache-Memcached-Fast-0.20/Changes らへんをさらっとみます。 または、Pod::Cpandoc というモジュールをインストールすると cpandoc というコマンドが利用可能になるので $ cpandoc -c Cache::Memcached::Fast などとしても良いです。 そんなこんなで以下の様な内容が読み取れます 0.20 2013-04-03 - finally fix magic
にひりずむ::しんぷる - ngrep 便利！
tcpdump で HTTP みてたら、まさかり族の長に 23:44 hirose31: ngrep -d any -W byline port 80 便利 っていわれてそういえば ngrep とかあったわーってことで大変便利でした。@hirose31++ ちなみに今回は request 側から特定のホストのみに限定してみたかったので $ sudo ngrep -W byline port 80 and host www.google.co.jp とかしたのでした。これで生の HTTP がらくらくみれて幸せ！ ちなみに tcpdump では $ sudo tcpdump -l -s 1600 -nxX -i en0 host www.google.co.jp とかやってました。オプションむずいよぉ。 https://twitter.com/muranet/status/3118546330
にひりずむ::しんぷる - JSONPath が便利でスクレイピングが捗る話
JSONPath というのがあって、いわゆる XPath の JSON 版です。 仕様は以下 JSONPath - XPath for JSON XPath すべての機能が使えるわけではありませんが、巨大な JSON から目的の key を探す場合にはなかなか便利です。 たとえば、Dailymotion の JSON なんかはダンプすると 900行ぐらいあったりして、しかも超絶階層が深い。更にいうと配列が多くて、順番が変わる可能性も高い (というか実際に昔作ったスクリプトがうごかなくなっていた)。 そういう場合にサクッと指定してモリっと取ってきてくれると便利ですね。 例えば Dailymotion の動画のタイトルが欲しい場合は、JSONPath を使わないと以下のようになります。 my $title = $json->{sequence}[0]{layerList}[0]{sequenc
にひりずむ::しんぷる - DBI で KVS っぽいテーブルのデータをフラットなハッシュとして受け取りたい
例えば以下の様なテーブルがあったとして mysql> SELECT * FROM some_table; +-----------+----------+ | key | value | +-----------+----------+ | zigorou | moja | | antipop | idol | | bayashi | condom | | kazuho | BL | | ikebe | AKB48 | | clouder | yokohama | | satoshi | -- | +-----------+----------+ 以下のようにフラットなハッシュとして取得したいケースが合った場合。 { zigorou => 'moja', antipop => 'idol', bayashi => 'condom', ... } こんな感じでやればよい # $sql は適当
にひりずむ::しんぷる - LWP::UserAgent で接続先を差し替える
http://karupanerura.hateblo.jp/entry/2012/07/16/075051 https://metacpan.org/module/LWP::UserAgent::DNS::Hosts 乗るしか無い、このビッグウェーブに。そして海行きたい。 use strict; use warnings; use feature 'say'; use Test::Mock::Guard qw(mock_guard); use LWP::UserAgent; my $url = 'http://example.com/'; my $ua = LWP::UserAgent->new; say $ua->head($url)->headers->as_string; { my $hosts = { 'example.com' => 'google.com', }; my $g
にひりずむ::しんぷる - subtest の出力をフラットにする Test::Flatten を書いてみた
皆さん subtest 使ってますか？僕はよく使ってます。 でも最近いろいろとアレげだなーと思っていることがあって、適当に Test::Flatten とかいう謎モジュールをでっち上げてみました。 xaicron/p5-Test-Flatten - GitHub use Test::More; subtest 'foo' => sub { pass 'ok'; }; done_testing; というようなテストを走らせた場合の TAP 出力は以下のようになりますが、その subtest が終わったあとになって初めて「ああ、このテストは foo だったのかー」とわかります。 $ prove -lvc t/foo.t t/foo.t .. ok 1 - ok 1..1 ok 1 - foo 1..1 ok その subtest の開始時に見たいですね。 use Test::More; sub
にひりずむ::しんぷる - 死んでほしくない人のための Sub::Retry
Sub::Retry はクールでクレバーなモジュールなのですが、retry の条件が exception のみでちょっと悲しかったので、retry 条件をカスタマイズ出来るようにしてみました。すでに取り込まれて、0.03 としてリリースされています。 Sub-Retry-0.03 - FrePAN ユースケース としては、Cache::Memcached::Fast とかで set とか get に失敗したときに retry するとかが挙げられます。 第４引数に coderef を指定することで、retry 条件を変えられます。 retry したいときは、true を返し、そうでない場合は（つまり、成功した場合は）false を返すようにします。default は 以前の挙動と同じです。 coderef の引数は return value と同じなので、その結果如何で処理を切り替えることが
にひりずむ::しんぷる - そういえば、WWW::Google::ClientLogin 書いた
Perlから非公式Google Reader APIにアクセスする - ゆーすけべー日記 そういえば、ちょっと前に WWW::Google::ClientLogin っていうのを書いてました。 WWW::Google::Auth::ClientLogin っていうのもあったんですが、若干実装と戻り値とかがいけてないのと、もう一個作った WWW::Google::C2DM とインターフェースを揃えたい欲求があったので作った次第です。 ゆーすけべーさんのコードをこれを使って書きなおしてみると、以下のような感じになるます。 use strict; use warnings;use XML::Feed; use LWP::UserAgent; use WWW::Google::ClientLogin; my $email = 'my@emailaddress'; my $password = 'm
にひりずむ::しんぷる - Data::Dumper と Data::Dump の実行速度の違い
Data::Dump はデフォルトでそれなりに整形して表示してくれるのと、コンテキストを見てよしなに処理を変えてくれるので、スクリプトのデバッグなどに使うのはまぁまぁ便利だったりします。 が、この子は PurePerl で実装されているので実行速度が結構遅いです。 どのくらい遅いかというと use strict; use warnings; use Benchmark qw(cmpthese :hireswallclock); use Data::Dump (); use Data::Dumper (); my $data = { foo => [qw/bar/], bar => { hoge => 'piyo', }, heavy => So::Heavy::Object->new(10), }; cmpthese -1, { 'Data::Dump' => sub { my $res
にひりずむ::しんぷる - 復数のカラムでソート
意外とみんな知らない感じなのかな。そして使う機会が滅多にないので知らなくてOK。 use strict; use warnings; use 5.12.1; use Data::Dumper; my @data = ( ['nekokak', '1130', '1900'], ['nekokak', '1000', '1800'], ['zigorou', '1230', '2000'], ['zigorou', '1130', '2100'], ['xaicron', '1300', '2200'], ['xaicron', '1400', '2330'], ); $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 0; say join "\n", Dumper sort { $a->[0] cmp $b->[0] or $b->[1]
にひりずむ::しんぷる - 親プロセスと子プロセスでデータを送受信する方法のメモ
pipe() とか socketpair() とか色々方法はあるけど、素直に IO::Pipe 使っとくと簡単便利。コアモジュールですし。 use strict; use warnings; use IO::Pipe; my $pipes = []; my $children = []; for my $i (1..10) { push @$pipes, my $pipe = IO::Pipe->new; my $pid = fork; if ($pid) { # parent $pipe->reader; push @$children, $pid; next; } # child die $! unless defined $pid; $pipe->writer; print {$pipe} "pid: $$, index: $i\n"; exit; } for my $pid (@$
にひりずむ::しんぷる - Mac OSX に MySQL と Q4M と Handler Socket を一発で入れるスクリプト
こんにちは！ MySQL Casual Advent Calendar の三日目がやって参りました。皆様いかがお過ごしでしょうか。僕は例年通り、クリスマスをどうやってなくすかに頭を悩ませています。 さて、自分は MySQL のこととかあんまりよくわからないんですが、仕事で Q4M とか HandlerSocket とか使う機会があります。 更に言うと、手元の Mac の環境でそれらを手軽に使いたいので、簡単にセットアップが出来ると嬉しいですね。 というわけで、一発で MySQL と Q4M と HandlerSocket のセットアップが出来ちゃうシェルスクリプトを書きました！大変カジュアルですね！！ 前提条件として、Xcode と homebrew は入っているものとします。 $ zsh -c "$(curl -fsSL https://raw.github.com/gist/14264
にひりずむ::しんぷる - Git ライクなコマンドライン引数を処理できる Getopt::Compact::WithCmd を書いた
近いうちに水性ペンを買います。（挨拶） コマンドライン引数を処理するモジュールっていっぱいありますね！ありすぎてどれがいいかよくわからないし、「まぁぶっちゃけ Getopt::Long さえあれば大体いいよね！コアだし！」って感じですが、まぁなんか書いた。 xaicron's p5-Getopt-Compact-WithCmd at master - GitHub App::Cmdとかありますが、あれはモジュール化しなきゃいけなくて、大変めんどうです。*1 俺は一枚のスクリプトに書きたいんだ！！ サブコマンド前提 usage は自動生成 default や required の指定が可能 依存が少ない（かも）*2 という感じです。最初は、Getopt::Compactを継承して書いてたんですが、途中からなんかあびゃーってなったのでやめました。使い方は大体一緒ですが。 Getopt::Com
にひりずむ::しんぷる - IO::Prompt::Simple 書いた
リリースしました にひりずむ::しんぷる - IO::Prompt::Simple 0.01 リリース あらすじ xaicron:> ExtUtils::MakeMaker はロードに1秒ぐらいかかるから遅延ロードにしたた。prompt 使いたいだけなんだけど。IO::Prompt はなんかごついし、今後はコピペでいい気がしてきた。 tokuhir○m:> @xaicron IO::Prompt::Simpleの予感 xaicron:> @t○kuhirom srd! というわけで適当にでっち上げた。 xaicron/p5-IO-Prompt-Simple - GitHub 基本的には ExUtils::MakeMaker の prompt() と同じだけど、第三引数で指定した文字じゃないとダメとか、この正規表現にマッチしたやつじゃないとだめとかを設定できる感じ。 あとは、terminal
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
にひりずむ::しんぷる - OS X の tcpdump で localhost 間の通信を見たい
にひりずむ::しんぷる - 最近の .proverc