文字列操作ならやはりPerl

http://d.hatena.ne.jp/ymko/20090725#1248542106
のスクリプトをm.plとして実行権限つけて保存、
これのラッパーとしてinterface.cgiを作成する。

#!/usr/bin/perl

use strict;
use warnings;

=pod
E m4m5m8m9s1s7s9p1p3j2j2j7
S m2m3s3s4s8p4p4p5p6j1j6
W m3m5m6m6s6p1p6p7j3j5j6
N m1m3m7m8s5s6p6p9p9j5j5
を
Content-type: text/plain; charset=utf-8

<xml>
        <EAST>m:1,m:8,m:8,s:1,s:3,s:4,s:6,s:6,s:9,p:1,p:2,p:8</EAST>
        <RANDOM>1</RANDOM>
</xml>
に変換する！
=cut

my $script = "./m.pl";

my @list = `$script`;
foreach my $line (@list) {
    chomp $line;
    my ($home, $other) = split / /, $line;

    $other =~ s/([a-z])(\d)/$1:$2,/g;# 強力すぎるｗ
    $other =~ s/,$//;
    if (defined $home && $home eq "E") {
print <<END_OF_TEXT;
Content-type: text/plain; charset=utf-8

<xml>
    <EAST>$other</EAST>
    <RANDOM>1</RANDOM>
</xml>
END_OF_TEXT
    }
}

メモ

perl.vim のsyntaxでアンダーバーが見にくい。。
とりあえず:set syntax offでしのぐ。
　
Perlの謎（その８）：正規表現 - 燈明日記
http://d.hatena.ne.jp/chaichanPaPa/20090704/1246704646
　非常にわかりやすいのでメモ。
　
404 Blog Not Found:perl - & はいつ使うべきか
http://blog.livedoor.jp/dankogai/archives/51237271.html
　うーん、Perlベストプラクティス？に&つけるべきでないとか書いてあって
　えー、とか思っていたがー。これからは付けずにやってみよう。
　しかしPerlは時々strictとか基本的な話題が出てくるなー。
　ひょっとしたら自分はとてつもない間違い知らずに書いてるんじゃないかと
　不安になってくるな。

【AS3入門】マウスカーソルをボタンの動作（ハンドカーソル）にする - 独学ActionScript
http://d.hatena.ne.jp/ActionScript/20080927/as3_mouse_cursor_button
　
FlashDevelopの使い方 (7)便利なコード生成機能（Ctrl+Shift+1） - 独学ActionScript
http://d.hatena.ne.jp/ActionScript/20090408/fd_ctrl_shift_1
　コレは便利！
　
forked from: ActionScript で弾幕ゲーをこしらえてみた | wonderfl build flash online
http://wonderfl.net/code/6611a69e3a2a1775a72ec9f8213077ead71bc41f
　
行き詰った。
これは書き直しだな。。