アルファベット、数字を読み込んで変換出力

解決済

質問者：huhumu
質問日時：2008/05/12 15:55
回答数：3件

アルファベット、数字を読み込んで、対応した文字、数字に変換し
出力したいのですが‥
例えば
[a-z ]= [1-26]と対応させ
a,b,5,7
を読み込んで
1,2,e,g
と出力させる感じです。
tr///などでコンパクトにまとめられるでしょうか？
お教え願います。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： sakusaker7
回答日時：2008/05/12 16:26

こんなんではどうでしょうか?

use strict;
use warnings;

while (my $line = <DATA>) {
chomp $line;
my @old = split q{,}, $line;
my @new = map { m/\d+/ ? chr($_ + 0x60) : ord($_)-ord('a')+1} @old;
print join(':', @new), "\n";
}

__END__
a,b,5,7

実行結果
1:2:e:g

- 0
- 件

通報する

この回答へのお礼

有難うございます。
参考にさせていただきます。
初心者なのでまた質問があると思いますが
よろしくお願い致します。

通報する

お礼日時：2008/05/12 16:44

No.3

回答者： Tacosan
回答日時：2008/05/12 19:19

無理に one-liner にすると

perl -pe 'BEGIN { @cvt{"a" .. "z", 1 .. 26} = (1 .. 26, "a" .. "z"); } s/[[:alnum:]]+/$cvt{$&}/eg;'
とかできそうだけど... う～ん, 意味不明.

- 0
- 件

通報する

No.1

回答者： sakusaker7
回答日時：2008/05/12 16:17

a → 1

b → 2
c → 3
…
x → 24
y → 25
z → 26

1 → a
2 → b
3 → c
24 → x
25 → y
26 → z

の双方向の変換ですか?
数字が二桁になっちゃってるんで trでは無理でしょうね。

コンパクトに纏めるというのはどういったものを想定していますか?
たぶん tr ほげほげのように一行かそこいらで書けるようなもの
だと思いますが。