AMF と Perl について - yoshizu@S2F

XS版を作ったとしてもMooseつかっているかぎりCGIでのパフォーマンスは望めないかなぁ。逆にmod_perlとかFastCGIであれば今のでもそんなに遅くはないはず。

ただ、Remoting(RPC) 目的でAMFを使うのはそんなにメリットないんじゃないかなーとは思う。

でwassrはIMに対応してるっぽいので、この辺でつくったTwircというtwitter用のIM-Jabberゲートウェイアプリを改造してtwitter以外のサービスでも汎用的に使えるようにした。

channels:
  - name:   '#twitter'
    target: 'twitter@twitter.com'
  - name:   '#wassr'
    target: 'wassr-bot@wassr.jp'

こんな感じでいろいろサービス増やせるようになった。まぁtwitterはいまIM死んでるから使えないけど。

ついでにMoose化。ついでにgithubにうつした。

http://github.com/typester/twirc/tree/master

自分が POE になれてるからだと思うのけど、素で書いたほうがわかりやすい。

Moose はつかうけど MooseX::POE はつかわない方向。

5.10 の問題ではなくて、最新版の libwww-perl (5.10に付属)の問題という話だけど、5.8.x でも LWP あげたらおなじことになるのかなー。

FCGIネームスペースを騙るにはあまりにも僕の使い方にかたよりすぎているしな。

http://github.com/typester/flight/tree/master

lighttpdを使用してFastCGIスクリプトのテスト(開発)サーバーを簡単に立てられるアプリです。

$ flight -p 3000 yourscript.fcgi

とかすると localhost:3000 でそのfcgiスクリプトが動くという感じ。

catalystだったら

$ flight -p 3000 ./script/myapp_fastcgi.pl

でOK。

Catalyst用にはすでに専用のヘルパーを書いていて、lighttpdでテスト(開発)サーバーを立てられるようにしていたのだけどそれをもっと汎用的にした感じ。

ネームスペースは FCGI::Server::Lighttpd とかしちゃってるのだけどどうだろう？ App::Flight とかのがいいのかなー。

意見求む。

image2pdf.pl -o output.pdf *.png

とかやることによりコマンドラインで渡した画像から一気にPDFのスライドが作れる。

install_script するかまよったけどとりあえずしなかった。うかつにやるとおこられそうだしな。。

僕のセッションの資料もアップしておきました。

• FormValidator::Assets
• Open Fastladder with Plagger

やっぱり参加するとグッとモチベーションがあがりますね。

2年前うけた衝撃も大きかったですが、今年もいろいろな人からアイデアややる気をもらいました。

ところでこの2年間でひとつ大きく変わったなぁと思うのは、perlハッカーの使っているPCの種類が変わったことです。

2006年時には

こんな感じで Thinkpad が幅をきかせまくっていたと思うのですが、今回の hachathon で Thinkpad を使っていたのは僕と mizzy さんだけ！

今年はみんな Macbook。

Hackathon きてた人の9割くらいは macbook だったんじゃなかろうか。。

http://github.com/typester/www-google-docs-upload/tree/master/example/gdoc-upload.pl

muttとかサーバーサイドのメーラーを使っているとコンソールで開けない添付ファイルが来たときちょっと困るなーと思っていて、いままではsshfsとかでマウントしてあるところに一時的にファイルを保存してそこをローカルのPCから開いていたけど面倒。

いちおうimapも使えるようにしてあるので添付ファイルだけほかのメーラーで読むというのもありかなと思ったけどBeckyもThunderbirdも(imap経由だからか)重くてよけいめんどい。

で、mutt からパイプでわたすだけで google docs にアップロードされたら便利だなーと思って作ってみたというところ。

ただパイプで渡したのを File::Temp で保存してそれをアップしてるのだけど、Google Docs側が拡張子でファイルの種類を判別してるようで、File::Temp->new しただけだと拡張子がつかなくてアップされない＞＜

ので現状は

| gdoc-upload.pl -n ppt

とか拡張子を指定する必要がある。

ファイル形式の変換とリサイズしかできない。

#!/usr/bin/env perl

use strict;
use warnings;

use Getopt::Long;

use Imager;
use Path::Class qw/file/;

GetOptions(
    \my %options,
    qw/geometry=s/,
);

my $in  = file($ARGV[0]);
my $out = file($ARGV[1]);

my ($width, $height) = ($options{geometry} || '') =~ /(\d+)x(\d+)/;

# read
my $img = Imager->new;
$img->read( file => "$in" ) or die 'Cannot read: ', $img->errstr;

# scale if exists geometry option
if ($width and $height) {
    $img = $img->scale( xpixels => $width, ypixels => $height, type => 'nonprop' );
}

# write
$img->write( file => $out ) or die 'Cannot write: ', $img->errstr;

1. アプリ名にかかわらず設定ファイルはconfig.yamlとconfig_local.yaml
2. でも変更することがないほとんどの設定はyamlには書かない。yamlがごちゃっとするときもい
3. ForceUTF8系モジュールは使用しない。内部がきちんとutf8で統一されていれば必要ない。
4. MyApp::UtilsとかいうのでいろいろBKなことをまとめてする。uri_forを気に入るように直したり、FillInFormの挙動変えたり

なんか抜けてる気がするけどこんな感じ。

はてなフォトライフでWebカメラから直接写真を撮影してアップロードできるようになりました - はてなフォトライフ日記 - 機能変更、お知らせなど

をみて、おもろいなーとおもったので僕も作ってみた。Flickrバージョン。

http://coderepos.org/share/browser/websites/camr/trunk

本家に比べると大分しょぼいけど、動いたので満足した。なんかこれだけで3時間くらいかかった。。

ローカル git レポジトリからあげる方法がわからなんだので、普通に svn import した＞＜

use Data::Dumper;

my $s = "H\x{c3}\x{ab}llo";

utf8::decode($s);

warn Dumper $s;        # => "H\x{eb}llo"
warn utf8::is_utf8($s) # => 1

だけれども

my $s = "H\x{eb}llo";

warn utf8::is_utf8($s) # => Warning: something's wrong

ということで、"\x{6751}\x{702c}\x{5927}\x{8f14}" などというData::Dumper表記でかならずしも utf-8フラグがたつわけじゃない。ということがいいたかったんだと思うのだけれど、

そもそも ë が latin-1 では "\x{eb}" だけど utf-8 では "\x{c4}\x{ab}" であるということを僕が認識してなかったせいでおかしなことになった。すみません。