提供某一种解法，参考看看...
假设一个杂凑 %replace_list，里面放的是字母和数字的对应
即 a=1 b=2 c=3 ...
写一个函数来替换字母，在转换前，先将字母转小写
sub replace_abc_123 {
my $string = shift;
my $output = "";
for my $e (split //, $string) {
if ($e =~ /[[:alpha:]]/) {
$output .= $replace_list{lc $e};
}
else {
$output .= $e
}
}
return $output;
}
然后用常规表示式将要替换的地方抓出来
用刚写好的函数来替换掉即可
完整的例子可看连结 http://pastebin.com/Cf9Pk1hV
参考看看囉
※ 引述《sosojopoor (KeiDanX)》之铭言：
: 各位板上前辈大家好
: 小弟我刚接触perl有些问题想请教
: 主要是判断&取代的问题
:

抱歉现在才回 感谢N大 问题解决90%了!

另外的 10% 也是要写 Perl 解决吗？ 另开一篇文章来看看