在perl中保存音译表
我想用1到8的数字音译为0但在编译时不知道数字。由于音译不插入变量，我这样做：
@trs = (sub{die},sub{${$_[0]} =~ tr/[0,1]/[1,0]/},sub{${$_[0]} =~ tr/[0,2]/[2,0]/},sub{${$_[0]} =~ tr/[0,3]/[3,0]/},sub{${$_[0]} =~ tr/[0,4]/[4,0]/},sub{${$_[0]} =~ tr/[0,5]/[5,0]/},sub{${$_[0]} =~ tr/[0,6]/[6,0]/},sub{${$_[0]} =~ tr/[0,7]/[7,0]/},sub{${$_[0]} =~ tr/[0,8]/[8,0]/});
$trs[$character_to_transliterate]($var_to_change);
没有找到相关结果
已邀请:
3 个回复
纤洞需匪
在编译时创建表，因此可以使用在运行时访问编译器：my @trs = (sub {die}, map {eval "sub {$_[0] =~ tr/${_}0/0$_/}"} 1 .. 8); my $x = 123; $trs[2]($x); print "$xn"; # 103运算符：sub subst {$_[0] =~ s/($_[1]|0)/$1 ? 0 : $_[1]/ge} my $z = 1230; subst $z => 2; print "$zn"; # 1032构造比快，因为后者支持正则表达式。购藏盗码韦
，转而支持一些实际上允许像ѭ5一样的元编程的东西。例如：# Replace $to_swap with 0 and 0 with $to_swap, and leave # everything else alone. sub swap_with_0 { my ($digit, $to_swap) = @_; if ($digit == $to_swap) { return 0; } elsif ($digit == 0) { return $to_swap; } else { return $digit; } } # Swap 0 and $to_swap throughout $string sub swap_digits { my ($string, $to_swap) = @_; $string =~ s/([0$to_swap])/swap_with_0($1, $to_swap)/eg; return $string; }锯康
sub swap_digits { my ($str, $digit) = @_; $str =~ s{ (0) | $digit }{ defined $1 ? $digit : 0 }gex; return $str; }