> > ああ(;´Д`)ソースをコピペするとこう > > $x = "i have a chinko."; > > $a = "chinko"; > > $b = "manko"; > > eval "\$x =~ tr/$a/$b/;"; > > print $x; > > n aave a mankoo.とか出る不思議だ > $x = "i have a chinko."; > $a = "chinko"; > $b = "manko"; > $x =~ s/$a/$b/g; > print $x; > C:\tmp>perl a.pl > i have a manko. > (;´Д`)? マンコを得た(;´Д`)クスコ 参考:2006/10/11(水)13時37分50秒