というわけで、Text::Hatenaに渡したらHTMLエスケープした上で整形するように継承してみた。 #!/usr/bin/perl use strict; use warnings; { package Text::Hatena::Escaped; use base qw(Text::Hatena); sub text_line { my $class = shift; my $text = shif…

NanoWikiを作ってて思ったんだけど、Wiki SyntaxとHTMLの関係って難しいすな。そもそもフォーム入力 → HTMLエスケープ → HTML変換→HTML出力って感じに処理させるのが全うな考え方だと思うわけです。Text::Markdownの場合、特殊文字(&とかとか)の実態参照変換…

そのまま使っても簡単にCGIが書けるNanoAですが、プラグインを書くとアプリケーションのコード全体的が見通しよくなります。単純なプラグインの例を見ていきます。app/plugin/hello.pm package plugin::hello; use strict; use warnings; use utf8; use base…

http://hidek.sakura.ne.jp/wiki/nanoa.cgi/wiki/mixiで認証してmarkdown syntaxなwikiっぽいもの作った。TODO: ページ削除 validation(え パスワードプロテクト マイミク限定公開 ファイル添付 追記: githubに置きました GitHub - hidek/nanowiki: Wiki pow…

JPerl Advend Calendarで無名スカラーリファレンスネタをやったんだけどさくらとかでFreeBSD6.1で bless \do{""}, "class"; とかやるとModification of a read-only value attemptedとか言って怒られる。 CentOSとかだとだいじょぶなんだけどなー なんでだ？…

最近GitHubを使っているのですが、pushのたびにパスワード入力めんどうだからこのへん見てssh-agentを使ってパスワード入力を省くようにしてました。が、keychainを使えばさらにログイン間で共有できるようになることを今さら知りました。CentOSではrpmforge…

http://d.hatena.ne.jp/yappo/20081209/1228790133id:yappoさんに送ろうと思ったけどマイミクじゃないので送れなかったよ＞＜

事後報告。http://perl-users.jp/articles/advent-calendar/2008/04.html書きました。 さらっと書いたら、あらゆる方面から色んなご指摘が入って大幅加筆させていただきました。 ありがとうございました。で、すでにupされてるけど次はid:hirose31さんで。

Connection => [invoke] method:connect id:1 args:{"pageUrl":"http://hidek.dyndns.tv/red5/publisher.html","audioCodecs":3191,"app":"oflaDemo","videoCodecs":252,"tcUrl":"rtmp:/oflaDemo","swfUrl":"http://hidek.dyndns.tv/red5/publisher.swf","vi…

世間ではShikaとかMouseとかが叫ばれている中、久々にMooseを触ったボクです。 で、すごい勢いでMoose忘れてるのでこんなのさえわかんなくなってました。 { package Base; use Moose; sub foo { warn 'Base'; } } { package RoleA; use Moose::Role; before …

typester氏謹製のPerlのRTMPサーバーKamaitachiに首ったけです。 もともとネットでDJをやるのにShoutcastやらWindows Media Serverやらを渡り歩いて来たので趣味と実益ならぬ、趣味と趣味を兼ねたすばらしい世界です。Kamaitachi-0.05 - perl flash media se…