Perl 翻译

Question

我想做这样的事情

$string ='4791';
$string =~ tr/4791/(ma)(laya)(lam)(_baasha)/;

应该给我

$string='malayalam_baasha';

即用其他 n 个字符替换每个字符。每个字符的 n 可能不同。

这个翻译有单行解决方案吗？

Answer 1

假设您总是想用特定字符串替换单个字符...

my %Replacement = (
    '0' => 'abc',
    '1' => 'def',
    '2' => 'ghi',
    '3' => 'jkl',
    # ... whatever others you like ...
);

my $String = '0123';
print "$String\n"; # Prints "0123"
$String =~ s{(.)}
            {exists($Replacement{$1}) ? $Replacement{$1} : $1}egx;
print "$String\n"; # Prints "abcdefghijkl"

只需在 %Replacement 中为您想要换出的每个字符输入一个条目。

重新阅读你的问题，不，这不是一行，尽管如果你愿意的话可以这样写（尽管很混乱）。不过，将其限制在一行实际上取决于您想要有多少个不同的交换。过了某个点，它就会变得丑陋。

Answer 2

正确的答案是 Brian Gerard 的，但它可以用一行相当短且几乎可读的行来完成：

$string =~ s/(.)/{1 => "_baasha", 4 => "ma", 7 => "laya", 9 => "lam"}->{$1}/ge;

或一行短的不可读行：

$string =~ s/(.)/{4,ma=>7,laya=>9,lam=>1,"_baasha"}->{$1}/ge;

甚至更短，但更具可读性：

$string =~ s/(.)/qw(a _baasha a a ma a a laya a lam)[$1]/ge;

或我能得到的最短的答案（这个不会在 strict 打开的情况下工作）：

$string =~ s/(.)/(a,_baasha,a,a,ma,a,a,laya,a,lam)[$1]/ge;

Answer 3

这个

($i=0) || (@tr = qw |abc def ghi jkl| ) && (@string = map { $tr[$i++] } split //,'0123') && ($string =join '',@string);

OR

( %tr = ( 0 => 'abc' , 1 => 'def' , 2 => 'ghi' , 3 => 'jkl' ) ) && (@string = map { $tr{$_} } split //,'0123') && ($string =join '',@string); 

应该有效！但我不会用它！