Perl 26자를 숫자로 대체하십시오.

Question

문자열을 숫자로 바꾸고 싶습니다. 예 (Windows의 한 줄)에 대한

는 :

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

결과는 다음과 같습니다

12345678999999999999999999 

이것은 내가 문자 난 후 숫자 기자를 할당하는 방법을 9까지 작동하지만? 내가 좋아하는 것
은 의미가 할당 내가 한 일 서명, 예를 들어

,

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

그것을 것 만드는 수치를 확인하기 위해 2 기호를 할당하는 방법을 알고

"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); 

불행히도 그것은 한 줄의 것이 아닙니다.