Lingua::JA::Numbers Released!

タイトルどおり、Ligua::JA::NumbersをReleaseしました。CPANからまだ取れなければ

http://www.dan.co.jp/~dankogai/cpan/Lingua-JA-Numbers-0.02.tar.gz

にて入手可能です。

こんなことが出来ます。

% perl -Ilib -Mencoding=utf8 -MLingua::JA::Numbers -ple '$_=num2ja(ja2num($_))'
1
一
12
十二
123
百二十三
1234
千二百三十四
10**68
一無量大数
10**72-1
九千九百九十九無量大数九千九百九十九不可思議九千九百九十九那由他九千九百九十九阿僧祇九千九百九十九恒河沙九千九百九十九極九千九百九十九載九千九百九十九正九千九百九十九澗九千九百九十九溝九千九百九十九穣九千九百九十九禾予九千九百九十九垓九千九百九十九京九千九百九十九兆九千九百九十九億九千九百九十九万九千九百九十九
6.0225かける10の23乗
六千二百二十五垓
無量大数かける１万
一点〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇〇掛ける十の七十二乗
三と一割四分一厘五毛九忽二微
三点一四一五九二
（１たす２）わる３かける４
四

Enjoy!

Dan the JAPH

Comments

もぉ〜，こういうの作ってくれるんでしたら先に言ってくださいよぉ（笑． LL2005の「キミならこう書く」（http://ll.jus.or.jp/2005/details/program）に出てくれる人がいなくて困ってたんですから．セッションは川合さんにお願いしてますが，乱入，よろしくお願いいたします．m<(_ _)>m

ちなみにふたつ質問があります．
1. ja2num という関数の中で
$ja =~ tr[（）＋ー×÷０-９][()\+\-\*];
ってありますけど，その上に
$ja =~ tr[０-９][0-9];
あるから０-９の部分はいらないのでは？
2. winxp + activeperl v5.8.6 の環境で
perl -Mencoding=shiftjis -e "$a = qq{×};
$a =~ tr[×][*]; print $a" と書くと"*"になりますが，
perl -Mencoding=shiftjis -e "$a = qq{×};
　 $a =~ s/×/*/; print $a" と書くと"×" に
なっちゃうのはなぜでしょう．ヒントでもいいので
教えてくださいませ．

Posted by k.daiba at 2005年08月18日 10:28

台場さん、おはようございます。LLDNの飛び入りは想定の範囲内です:)

A1. Thanks, applied in my repository.
A2. わかりません。が、-Mencoding=shiftjis は(utf8やeucjpと比較すると) controversial な機能です(5.8.1 でコケなくはなりましたが)。

$a =~ s/×/\*/;

ではどうでしょうか?詳報を [e-mail] に挙げていただくと、inabaさんがなんとかしてくれるかも:)

Dan the JAPH

Posted by 弾 at 2005年08月18日 11:12

ラジャ!!

Posted by k.daiba at 2005年08月18日 12:05

あ、SYNOPSIS に typo がありますよー。
s/Linuga/Lingua/

Posted by nipotan at 2005年08月18日 12:09

> s/Linuga/Lingua/
Thanks, applied in my repostory
#今日中に0.03がでちゃいそ:)

Dan

Posted by 弾 at 2005年08月18日 13:42

$ja =~ tr[（）＋ー×÷０-９][()\+\-\*]; のところで，'ー'は'−'じゃないでしょうか．「マイナス」を変換すると後者がでてきます．前者は，「あーれー」とかに出てくる長音符号ですよね？

Posted by k.daiba at 2005年08月18日 14:04

> $ja =~ tr[（）＋ー×÷０-９][()\+\-\*]; のところで，'ー'は'−'じゃないでしょうか．
Thanks, applied in my repository.

Dan

Posted by 弾 at 2005年08月18日 14:34