use Encode; if ( $#ARGV < 0 ){         print "请输入一个文件\n";         exit(-1);     }   $var = $ARGV[0]; open (FILE,"<","$var") || die "can open file$!\n"; while (<FILE>) { $str = encode("gbk",decode("utf8","$_")); print "$str" ; } close FILE;