Perl字符串替换

Question

我在perl中使用了字符串替换几次并且有特定的子字符串并用其他东西替换它们。

我很好奇是否有一个技巧只能保留某些字符，特别是我想删除字符串中不是a-z，A-Z或0-9的任何字符。

e.g。 a b c !@#$%^&*()_~+=[]{}\|;':",./<>? 123只是abc123

Answer 1

使用正则表达式，

s/[^a-zA-Z0-9]//g;

使用翻译，

tr/a-zA-Z0-9//dc;