夙川アトム

この間のめちゃいけを見て夙川アトムに惚れた人も多いと思いますが、なんか今日急にルー語ばりに日本語を夙川アトム風に変換するモジュールを書きたくなったので書いてみた。そして先ほど無謀にもCPANにリリースしてみた。

これは衝撃のモジュール。→ 夙川アトム 使ってみます。

#!/usr/bin/env/perl
use strict;
use warnings;

use Acme::Shukugawa::Atom;
use Term::Encoding qw/term_encoding/;
use URI;
use XML::Feed;

use autobox;
use autobox::Encode;
use autobox::Core;

my $url = shift or die "usage: $0 <url>";

my @feeds = XML::Feed->find_feeds($url) or die "Couldn't found any feed from $url";
my $feed = XML::Feed->parse( URI->new($feeds[0]) ) or die XML::Feed->errstr;

$_->title->shukugawafy->encode(term_encoding)->say for $feed->entries;

sub SCALAR::shukugawafy ($) {
    Acme::Shukugawa::Atom->translate(shift);
}

自分の日記を夙川アトム風にしてみます。

% perl shukugawafy.pl http://d.hatena.ne.jp/naoya/
IntroductiontoInformationRetrieval#2ハンコー、#3ハンゼンのシューフクョーシリ
アソフトウェュツギジーャシとしてのコリノーカンジー
ニコニコガードーーオータイストテー
トキョーです!
IntroductiontoInformationRetrieval#2(ハンゼン)のシューフクョーシリ

むむむｗ 惜しい感じ! たぶんタイトルをきっちり書いている人の日記がうまくはまるのではないかと思ったので...

% perl shukugawafy.pl http://d.hatena.ne.jp/umedamochio/
[ラムコー]「ウェブダイジー5つのイリテー」もンーヨーマーコーガマンに
[ラムコー]「ラクハタモチキーにヒをケルツー」(トーサイカシターョチ)のコブンセツカイをマシカキた
[ラムコー]ケイルイ70ンーマーブパートッーとノーモーキーガーサバティカル
[ラムコー]「バツセンムーチーー」というソーハツ
[SiliconValleyLife]ツクジャ、12イーサー。デトーオメ!
[ラムコー]ンサンケイシンブチーイーンーメーサイレンがケツカン、ブゼントメマーてウェブでマスヨメ。
[ラムコー]ナルサラテンハツシューガクのメーターに・・・「ウェブダイジー5つのイリテー」ゲンメイクリンーーシュー

「ウエブダイジー 5つのイリテー」ｗｗｗ わー、ごめんなさいごめんなさい!

ウェブ時代 5つの定理―この言葉が未来を切り開く!