Ustream にて、“職質テックトーク”なる放送をやります。 普段職質ばかり受けている僕 *1 が、逆に人に質問しまくって、IT エンジニア的なテックトークをしようという放送です*2。 YAPC::Asia Tokyo 2013 が開催されるまでは、YAPC のスピーカーの皆さんをゲストにお迎えして、 「俺のトーク面白いから聞きに来なよ！！」的なトークを展開しつつ、色々とお話しできたらなあと思っています。 第1回目は本日7月11日 (木) の19:30 から、ゆーすけべーさんをお呼びして放送します。 YAPC::Asia Tokyo の話や、YAPC::NA の話などを中心に行う予定ですが、どうなるか分かりません！！！。 http://www.ustream.tv/channel/shock-sheets-tech よろしくお願いします！！ なお、音声は後日アーカイブ的にpodcast

ある日、リスペクトしている、とある偉いperlハッカー先生がツイッターでつぶやいていた。 perl入学式で、無いものはcpanモジュールを駆使して自分で作れば良いと教わっていたので、自分でtwitterbotを作って見ることにした。 ・・・何ヶ月か前に勉強会perl鍋に参加した時に作り、ローカル環境で実験してうまく動いてからずっと放置していたので、きちんとスクリプトを仕上げてさくらvpsのサーバーに上げて自動実行させようとしたら色々ハマッてしまったので、その解決策を備忘録として書いておく。 twitterbotのスクリプトは、cpanのNet::Twitter::Lite::WithAPIv1_1モジュールを使った。TwitterAPIの利用登録から実際の使い方は@yusukebeさんのブログ記事「イカ娘でTwitter OAuth認証」を参考にさせていただいた。 作ったtwitterbo

どうもマコピーです。名ばかり、です。 Nephiaというウェブフレームワークを@ytnobodyさんを中心にHachioji.pmの方々とで作っているというのは以前の記事で話題に出したのですが、なんか最近方向性がはっきりしてきたというか、そろそろユーザがほしいので一言。 Perlに限らずウェブアプリケーションを作るためのフレームワークというのは世の中にたくさんあります。そして、プログラミング言語が備える、もしくは後付された思想と同じように、フレームワークにもエコシステムが生まれるのでそれぞれ思想があります。 例えばRuby on RailsはDRY(記述を繰り返さない)、設定より規約等々。。。 SinatraやFlaskはマイクロフレームワーク、彼らはマイクロが故にRoRなどのフルスタックなフレームワークが標準で備えるORMは添付されず、勝手にやってくれという思想です。 Nephiaの思想

http://perldoc.jp/docs/perl/5.18.0/perl5180delta.pod#splits32first32argument32is32more32consistently32interpreted 知らなかったのでメモ。Templateのテストが Perl 5.18でこけていたのは これが原因のようです。なおリリースはされていないようですが、すでに修正は マージされているようです. Fix split for Perl 5.18.0 by jonjensen · Pull Request #19 · abw/Template2 · GitHub 変更点 splitの第一引数に空白一つの文字列リテラルを与えたときと 空白一つが代入された変数を指定したときの挙動が今まで違って いたのが同じになったようです。 #!perl use strict; use warni

最近テストをしていて、全く同じ文字列に見えるのに、テストが通らないという事例がありました。今回は\tとか\rとか特殊文字が入っていて文字列が一致しないという事例でした。 特殊文字とかを見える形でするのはどうすればいいのだろうと思っていたら、Data::Dumperでそういう機能がありました。 my $str = "hoge\tfuga\n"; use Data::Dumper; $Data::Dumper::Useqq = 1; warn Dumper($str); # $VAR1 = "hoge\tfuga\n"; 便利ですね。

大チェッカーすばらしい。こういうのがほしかった。 Mobile Application Development なおフィードはだれでも追加できるようにしてあります。 http://central.sonatype.org/articles/2014/Oct/28/enforcing-valid-dependency-versions/ 2014年10月の話ですが、これのせいで手元のライブラリのアップロードが失敗するようになってました。これからは、依存ライブラリのバージョンは "3.+" ではなく"[3,4)" （3以上4未満）などのような数学的範囲表記（mathematical range syntax）をしなければならない、ということです。詳しくは上記エントリを参照のこと。 変更例： https://github.com/gfx/android-power-assert-plugin/c

GuardでPerlのテストを実行するときに使えるguard-tapというGemを書いた． t/以下のファイルが変更されたら実行するとか，lib/以下のファイルが実行されたら，名前が似てるテストファイルを推測して実行，とかできる． GitHub - hitode909/guard-tap: Guard gem for Test Anything Protocol guard-tap | RubyGems.org | your community gem host 実行結果のTAP形式の文字列をパースしていて，テスト結果や，失敗したときのエラーメッセージなどをGrowlに表示できる． TAPは単なる文字列のプロトコルで，実装すれば言語によらず使えるので，Perl以外でも使いたい人いたらguard-tapとつなげて使える．いないと思うけど． Test Anything Protocol - W

文字幅ってどうやって調べるんだろって思って、 使えるモジュールを探してみた。 #!/usr/bin/env perl use strict; use warnings; use utf8; my $str = "ﾘﾝｺﾞｺﾞﾘﾗ"; { use Unicode::Japanese; printf "[%s] length = %d\n", 'Unicode::Japanese', Unicode::Japanese->new($str)->strlen; } { use Text::VisualWidth::UTF8; printf "[%s] length = %d\n", 'Text::VisualWidth', Text::VisualWidth::UTF8::width($str); } { use Unicode::EastAsianWidth; my $count_length

perlでprintfデバッグするにはData::Dumperがおなじみかと思いますが、printfデバッグでは「○○が××なのではないか」という仮説を１つずつ検証していくことになり大変なときもあります。Perlはスタックトレースとかをあまり吐いてくれないし大変だと思いきや、エラーの可視化などに便利なモジュールがあったのでメモりました。 変な場所でdieまたはwarnが出て困っている場合 => Carp::Always warnまたはdieが出た時に、スタックトレースを引数付きで表示してくれます。warnやdieが出るが、どこから呼び出された時に、どんな引数のときにで出ているのかわからない場合に便利です。 ※ Carp::Always::Colorというモジュールもあるようですが、まだ試していません。 エラーメッセージが少なすぎたので use Carp::Always;を適当な場所に追加（

blog.bulknews.netで知ってから(宮川さんに感謝)Perlcastというポッドキャストを聞いていて、その中の表題のインタビュー(25分間)を聞いた。Perlで書かれたPerlの文法解析(parsing)モジュールであるPPIの作者へのインタビューである。表題のリンク先ページの始めのほうの「interview」というリンクからMP3ファイルがダウンロードできる。 Perlには「only perl can parse Perl」*1というモットーがあることもあって、Perlの字句解析および文法解析をPerlで記述したものは長らくなかった。PPIはそれをかなりの精度で実現している。インタビューの中で興味深いと思ったのは以下の点である。 現在のものは3つ目の実装 PPIは2回ほぼ一から書き直していて、今のものは最初から数えて3回目に書いたものである。最初の実装は正規表現をベースにして

スクリプト読んでたら，PPI::Document ってモジュールが使われていてチョー気になったもんだから調べてみました． Nothing but perl can parse Perl そもそも perl なしに Perl を解析できないかという試みは次々に試され，そして失敗していったそうです．あまりに Perl の文法が複雑で動的なもんだからってのがその大きな原因みたいですね． begin{} ブロックなんてのは，解析とともに普通実行も伴うわけで，"実行なし" に Perl のソースコードを解析するのは至難の技だったりします．また，以下のような問題も発生してしまいます． @result = (dothis $foo, $bar); # Which of the following is it equivalent to? @result = (dothis($foo), $bar); @

本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回は普段Webアプリケーションの開発を行っているtokuhiromさんで、テーマはWebアプリケーションフレームワークAmon2です。 Amon2とは？ こんにちは。tokuhiromです。本稿では、筆者が中心となって開発を進めているAmon2というWebアプリケーションフレームワークについて説明します。 Amon2は、次のような特徴を持つWebアプリケーションフレームワークです。 PSGI/Plackベース Amon2はHTTP::Engine/PSGI/Plackの開発／制定に初期のころから関わっている筆者が作成したWebアプリケーションフレームワークです。そのため、Plackの部品をできる限り利用することにより、少ないコードベースでWebアプリケーションフレームワークを実現しています。これにより学習コストが低くなってい