[kansaipm] Re: Kansai.pm というモジュール

[mishima at momo.so-net.ne.jp]

三嶋です。

> 福原や．もうかりまっか？

ぼちぼちでんな。(^^)

> > Kansai.pm ちゅう名前のモジュールを作ってみましてん。(^^)
> > 
> > use Kansai;
> > とやると、kansai ちゅう名前の sub が使えるようになります。
> > その機能は、「$_ に格納された日本語を関西弁に変換する」
> > ちゅうものや。（しょうもなくて、すんまへん。）
> 
> お，これは面白いわな．
> Webページ(http://kansai.pm.org/japanese/src.html)に
> 掲載したいねんけどよろしいやろか？

もちろんです！　是非載っけてください。
（「ちょっと便利なスクリプト」かどうかは疑問ですが ^^;）

Japanese.pm を内部で使っているので、これもセットでお願いしますね。
（こちらは、ちょっと便利だと思ってます。）

まだまだ不完全なシロモノですが、みなさんにどしどしパッチを当てて
いただけたら嬉しいです。

> # のっけから関西弁で失礼しました．

いえいえ。
でも、ちょっとびっくりしました。(^^;)

--
$p='Perl'; $_='Masahiro Mishima'; sub _{pack'c*',$x=110+ at _*5,$x+1}
tr/oma/fa_/;s/./chr(ord($&)+2)/ge;@x=(sort(grep{!$_{$_}++}split//),
$p=~/(.(..).)/);$x[7]=~s/^/_/e;$x[8].=_ 1;for(@w=(47,1639,8,31259))
{s/\d/$x[$&+1]/g} print ucfirst "@w.\n";