zltt520 当前离线
列兵
DAIC 当前离线
中将
TOP
CrLf 当前离线
论坛巡查
use utf8; use Encode; open IN,"a.xml"; @ar=<IN>; close IN; $text = join '',@ar; encode "utf-8",$text; $text =~ s/DD/大神/; $text =~ s/DD Type/大神 牛逼/; open OUT,">:encoding(utf-8)","a.xml"; print OUT $text; close OUT;复制代码