Perl用数字替换26个字符

Question

我想用数字对应替换字符串。

例如（在Windows上的一行）：

perl -e "$_ = \"abcdefghijklmnopqrstuvwxyz\"; tr\a-z\1-9\;" 

结果是：

12345678999999999999999999 

这工作，直到9，但我怎么能字符后，我分配数字记者？
我想知道我怎么可以将2号以一个1个符号，

例如，

12 -> j, 13 -> k, etc. 

要确定的数值它会是有意义的分配

"1-", "2-", ... "25-", "26". 

Answer 1

perl -E"$_ = 'abcdefghijklmnopqrstuvwxyz'; s/([a-z])/ord($1)-96/ge; say;" 

，或者如果你有5.14+

perl -E"say 'abcdefghijklmnopqrstuvwxyz' =~ s/([a-z])/ord($1)-96/ger;" 

您可以替换任何规则，而不是ord($1) - 96。

Answer 2

我不相信tr///可以做到这一点，不幸的是 - 这是一对一的字符替换。所以你必须走很长的路：

my %indicies = map { $_ => (ord($_) - ord('a')) + 1 } ('a' .. 'z'); 
my $result = join '', map { $indicies{$_} } split(//, $string); 

不幸的是，这不是一个单线。