perl

2009-03-21

404 Blog Not Found:Ajax - Lightweight Languages を実行するAPI
に伴い「 lleval 」に。

---

弾さんの API に丸投げ。

http://gist.github.com/78137

# 選択範囲の単語を大雑把に数える
perl $\+=split for<>;print

# 選択範囲の英単語を小文字に揃えてソートして出現頻度表示
perl s/\w+/++$_{lc$&}/eg for<>;print"$_{$_} $_\n"x/^\D/for sort%_

いちいち print するの面倒かも。起動オプション指定できるといいんだが。