如何用perl 将字符串里的 所有 a 替换成z b替换成y c 替换成x d替换成w ...

qq64878641

将字符串里的 所有 a 替换成z   b替换成y  c 替换成x   d替换成w  e 替换成v  f 替换成u .

jason680

将字符串里的 所有 a 替换成z   b替换成y  c 替换成x   d替换成w  e 替换成v  f 替换成u .
qq64878641 发表于 2011-04-22 08:29

tr

qq64878641

回复 2# jason680


    tr支持内插吗？ 我想把 原始 的字符 和 最终 字符 保存在 标量里。 然后内插 再转换。这样行吗？

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. chomp(my $ord = <STDIN>);
   
4. chomp(my $change = <STDIN>);
   
5. while(my $line = <STDIN>){
   
6.     chomp($line);
   
7.     $line =~ tr/$or/$change/ ;
   
8. }

复制代码

jason680

回复  jason680


    tr支持内插吗？ 我想把 原始 的字符 和 最终 字符 保存在 标量里。 然后内插 再转 ...
qq64878641 发表于 2011-04-22 09:05

没用过内插在tr

自己试试就知...

jason680

$ cat tr.pl

$_ = "123";
$old="123";
$new="abc";
print "org='$_'\n";
tr/$old/$new/;                     # it didn't work
# eval "tr/$old/$new/";       # it can work fine
print "\$old/\$new='$_'\n";
tr/123/abc/;
print "123/abc='$_'\n";

$ perl tr.pl
org='123'
$old/$new='123'
123/abc='abc'

xiongdp

tr 或s都可以

qq64878641

回复 5# jason680


    谢谢.可以的!