YAPC::Asia Tokyo 2012 に参加しました - FloralCompany.log
2012-09-27(Thu)〜29(Sat) に東京大学本郷キャンパス内で行われた 世界最大のPerlのお祭り、 YAPC::Asia Tokyo 2012 に参加＆ちょろっとLT登壇させていただきました。 以下、各日の感想等々 09-27(Thu) 昼前に新大阪から新幹線のぞみに乗っていざ東京へ、 は、いいけどぴくすぷろーらーで「作品タグが見れなくなってます＞＜」という報告をいただいてたのに朝気がついて出発前に家で＋新幹線車中で頑張って修正してました。 前のLLDecadeの時も何か直してた気がするけど、なんで自分が遠出するタイミングでHTML変えるんだぴくしぶさん。 ホテルついて、ぴくすぷろーらーさんの修正版リリースできたところでYAPC::Asia前夜祭へ。 しかし道中チケットをホテルに置き忘れていたことに気づいて慌てて取りに戻る。おかげで1本目のトークを聞けなかった(;_; しか
AnyEvent::Twitter::Stream 0.20 でjson decode エラーが発生する件 - FloralCompany.log
既に Bug #64471 for AnyEvent-Twitter-Stream: JSON parsing errors としてRTには登録されていますが、 twitterのUserStreamを使うと JSON文字列の前に JSON文字列(+改行分?)長 のHEX文字列が入り込んでくることがあるみたいで(UserStreamのドキュメント見ても見つけられなかった、誰か知ってたら教えてください)、 AnyEvent::Twitter::Stream->new に no_decode_json => 1 を指定しておかないと HEX文字列が来たときに JSON::decode_json がcroak してしまい、UserStreamの読み込みが出来なくなってしまうようです。 んで、とりあえずやってきた文字列がJSONオブジェクトじゃなさそうな場合は読み飛ばすようにするパッチを作ってみた。
Rubyの罠？Perlの罠？ - FloralCompany.log
Ruby公式ドキュメントの trap::スコープ、制御構造 より、 ・ローカル変数は本当にローカル。Perl の my とかとは違う # Ruby local = "hoge" def hoge print local, "\n" # 未定義。エラー end hoge # Perl my $local = "hoge"; sub hoge { print $local, "\n"; #=> hoge } hoge; この項目を書いた人は my ... を ローカル変数 宣言だと思ったんだろうか... my ... は レキシカル変数 宣言であって、ローカル変数じゃないのに。 前掲のコードにおいては、 $local のスコープは登場時からコード末尾まで。 例えば、 #!perl use strict; package hoge; my $local = 1; package main; pr
古いPerl環境にインストールされているモジュールを新しいPerl環境に持っていく - FloralCompany.log
近年、 perlbrew のおかげもあり、様々なバージョンのPerlを気軽にインストールできるようになってきたりしてますが、いざPerlをバージョンアップしたりすると、古い方のPerl環境にインストールしたモジュールを新しいPerl環境にもセットするのがめんどくさいものです。 そんなわけで、古いPerl環境にインストールされているモジュールを簡単に新しいPerl環境にインストールする方法について考えてみた。 新しい環境へのインストールは cpanm に任せるのでいいとして、インストール済みモジュールを列挙する方法を考えてみた。 方法１： perllocal.pod をparseする。 cat `find /path-to-old-perl/lib -name 'perllocal.pod'` | \ perl -nlE 'say /L<([^|]+)\|.+>/ && $1 if /^=i
YAPC::Asia Tokyo 2010 に行ってきた - FloralCompany.log
去る 2010/05/15(Fri)-16(Sat) に東京工業大学大岡山キャンパスにて行われた Perlハッカー達の バカ騒ぎ 祭典。 YAPC::Asia Tokyo 2010 に参加してきました。 今年も参加者のPerlに対する熱い思いを感じられる良いYAPC::Asiaであったと思います。 代表の941さんを始め運営の方々、スタッフの方々、 今年も開催場所を提供してくださった東工大、 各スポンサー会社、 ゲストスピーカのLarry, Jesse, Miyagawaさん、 一般トークのスピーカの方々、そして一緒にあの楽しい場を作り上げたみんなにまずは感謝。 後、快く(?)行かせてくれた嫁にも感謝。 気になったセッション等は以下 今年の全体的なトレンドは Plack/PSGI と perlbrew+cpanm かな。 まぁ多分今のところWindowsユーザはperlbrewをまともに使
CPANモジュールインストールメモ (for mingw-gcc) - FloralCompany.log
自分のWindows Perl(mingw-gccでスクラッチビルド)環境でCPANモジュールを入れる際に普通にcpanm HogeHoge ではダメなやつのメモ XML::Parser perl Makefile.PL EXPATINCPATH=/path/to/include EXPATLIBPATH=/path/to/lib Imager Makefile.PL 中の libfiles=>$^O eq 'MSWin32' ? '-lpng -lzlib' : '-lpng -lz', の箇所、 -lzlib を -lz に変更 perl Makefile.PL --incpath=/path/to/include --libpath=/path/to/lib DateTime::TimeZone dmake の制約で PM_TO_BLIB設定箇所で「1行が長すぎる」みたいなエラーが出
Net::Twitter-3.13003 と Net::OAuth-0.24 の組み合わせで日本語がpost出来ない - FloralCompany.log
Net::Twitter-3.13003 と Net::OAuth-0.24 の組み合わせで日本語がpost出来ない [Perl] [twitter] 事の発端は、昨日 Net::Twitter をupgrade してpostしたらTwitterAPIから "Incorrect Signature" って返ってきてなんじゃらほい ってことから。 とりあえず、Incorrect Signature でぐぐって みたら perlのNet::Twitterを更新したらOAuthで日本語がpostできなくなった という記事を発見。ひとまずNet::Twitterを3.13001に落として様子見。 Net::Twitterの3.13001から3.13003へのdiffを眺めつつそこから呼び出されてるNet::OAuthを眺めつつ。 Net::Twitter で $Net::OAuth::SKIP_U
cpanminus雑感 - FloralCompany.log
ここ何ヶ月かの間、Perl界隈ではやれlocal::libだcpanminusだperlbrewだと、既存環境に手を入れずにローカルなモジュール環境を構築するという系の話が多くなってきてるような気がします。 local::lib はpixiv2rssをサクラ鯖上で動かす時に使ってみました。 perlbrew は環境をごっそり切り替える系なので、今のところ使うアテがない. で、残りのcpanminusですが、この間からApp::cpanminusをインストールしてちょこちょこ使ってみてます。(cpanminusはApp::cpanminus以外に githubからstandalone版を持ってくるとか wget http://cpanmin.us/ | perl するとか色々あるみたい) 以下はその雑感です。 スピードに関しては、余計な事をしていない分やっぱり CPAN や CPANPLUS
Module::Setup::Plugin::VC::Bazaar - FloralCompany.log
を、先ほどCPANにuploadしました。（ちょっと色々ミスってて最新版はいきなり0.02ですけど。 名前の通り、Module::Setupでバージョン管理に Bazaar を使う向きのプラグインです。 Module::Setupに元々入っている VC::Git を元にして作ったので、大体あってる筈。 デフォルトflavorを使ってる場合、MANIFEST.SKIPに ^\.bzr/の一行を追加してあげないとmake manifestでエラい事になるので要注意です。 ソースコードは この辺 に置いてあります。 現時点では search.cpan.org には反映されてないようです。一晩寝て起きたらきっと反映されてると思います。
Is "あ" an alphabet? - FloralCompany.log
問：以下のスクリプトの出力を想像してみましょう(perlのバージョンは5.8以降、スクリプトの文字コードはutf-8とする) use utf8; print 1 if "あ" =~ /\p{IsAlpha}/; print 2 if "あ" =~ /\p{Alphabetic}/; print 3 if "あ" =~ /[[:alpha:]]/; . .. ... 答： 123 . .. ﾅﾝﾃﾞﾔﾈｰﾝ .. ... http://d.hatena.ne.jp/moriyoshi/20090315/1237103809 と http://unicode.org/charts/#scripts とをにらめっこして、 恐る恐る lib/unicore/lib/gc_sc/Alpha.pl を開いてみると、そこには.. # (略) return <<'END'; 0041 005A 0061
Plack/PSGIで簡易podwebserver - FloralCompany.log
モジュール一覧とか要らなければ、 # app.psgi use Pod::Simple::XHTML; use Pod::Simple::Search; sub { my $env = shift; my $path = $env->{PATH_INFO}; if ( $path eq '/' ) { return [ 200, [ ], ['It works!'] ]; } $path =~ s{^/}{}; my $mod = $path; $mod =~ s{/}{::}g; my $filepath = Pod::Simple::Search->new->find($mod); if ( $filepath ) { my $podparser = Pod::Simple::XHTML->new; my $content = ''; $podparser->output_string
pixiv2rss
pixiv2rss の実験場 pixivでの最新投稿最大20件をRSS化するサービスです。まだ実験中です。 現在、手動約3時間おきでデータ収集・RSS作成スクリプトを動かしてます 使ってみたいという方は、↓の登録用フォームに記入して登録するか、Twitterまたはpixivメッセージで turugina宛に連絡ください。(http://twitter.com/turugina, http://www.pixiv.net/member.php?id=12335) RSS化の例(ほぼR-18絵なので注意) Yahoo!Pipesのpipeを通せばブログパーツや簡易イラストリストになります。 Yahoo!Pipes例：ここをクリックしたら表示します(ほぼR-18絵なので注意) 登録用フォーム pixiv登録番号: (プロフィール確認ページに書いてある [ http://www.pixiv.net
WWW::Pixiv - FloralCompany.log
WWW::Pixiv という、CPANには登録されていないPerlモジュールがある。 一つは kuzuha さん作のもの。 githubに置いてある ざっと見た感じ、機能は タグを指定してイラスト情報をひっぱってくる イラストIDを指定してイラスト情報をひっぱってくる の2つ。非常にシンプル。 ドキュメントもちゃんとしてるっぽい。 今年の6月で開発が止まってる。もう枯れてる？ もう一つは私がこっそり作ってる。 launchpadに置いてある まだまだ開発中 タグ検索による一覧の他、新着一覧とかお気に入り新着一覧とかマイピク新着一覧とかランキングとか色々取ってこれる(はず)。 但し、現在 member_illust.php の関連部分をまだ作ってないのでイラストぶっこ抜きとかには使えない。 一応 pluggable なものを目指してる。もうちょい柔軟にplug-inできるようにしたい ドキュ
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
