gistfile1.pl

#你在使用这个代码之前先要把输入文件转换成UTF-8的编码
open $in, "<", "a.txt";

while (<$in>) {
    chomp;
    ( $city, $pinyin ) = split;
    $city .= "市";
    $hash{$city} = $pinyin;
}

$citys = join "|", keys %hash;

open $in,  "<", "IPData.txt";
open $out, ">", "out.txt";

while (<$in>) {
    s/($citys)/$hash{$&}/g;
    print $out $_;
}