Ｐｅｒｌでアルファベットを数字に変換することは出来るか？

Perlでアルファベットを数字に変換することは出来るのでしょうか？

No.6 回答者： pick52 回答日時： 2004/09/15 23:17

下の回答、少し間違えているかも知れません。

value =~ s/([0-9A-Fa-f]/hex($1)/ego;

ですね。
たぶん・・・。
（試しておらず、当てずっぽうなのでこれも間違えて
いるかも？）

すみません。(_ _)

No.5 回答者： pick52 回答日時： 2004/09/15 18:37

URLデコードでよく見られる処理をそのままパクって

value =~ s/([0-9A-Fa-f]/pack("C", hex($1))/ego;

でどうですか？

No.4 回答者： mach999 回答日時： 2004/09/12 18:53

小文字のみ

$s = "abcd";
$s =~ s/[a-z]/ord($&)-ord("a")+1/ge;

小文字と大文字
$s = "abcd";
$s =~ s/[a-z]/ord($&)-ord("a")+1/ge;
$s =~ s/[A-Z]/ord($&)-ord("A")+1/ge;

どう？

No.3 回答者： moon_night 回答日時： 2004/09/11 20:05

力技で・・・

$ver = "abcdef";

$ver =~ s/a/1/g;
$ver =~ s/b/2/g;
・
・
・

もっと簡単な書き方があるけど、基本はこんな感じでしょう。

No.2 ベストアンサー 回答者： osamuy 回答日時： 2004/09/11 19:32

例えばこんなのとか：

perl -e 'print join "", map { ord($_)-96; } split //, "abcdefg"'

アルファベットから数字に変換する規則を明示しないと、有効な回答が得られにくいと思います。

この回答へのお礼

規則で私が思いついたのは、
・アルファベットをから16進の文字コードに変換し、それを10進にする
・a=1,b=2,・・・,z=26を当てはめる
・a=j=t=1,b=k=u=2,・・・,i=s=0を当てはめる

お礼日時：2004/09/11 22:37

No.1 回答者： moon_night 回答日時： 2004/09/11 19:01

できると思います。

この回答へのお礼

そうですか。
では、例えば、
$moji = 'abcdefg'
を適当な数字（例えば、12345647など）に変換するコードを教えてくれませんか？

お礼日時：2004/09/11 19:18