噁心的windows編碼問題

一個代碼，只能解析utf8格式，在win上，想替換個字符串，費勁死了
utf-8->utf-8

轉成ansi格式

D:\code\test>perl -n -e "BEGIN{use utf8;use Encode;use Encode::Locale qw($ENCODING_LOCALE_FS); } my $str = encode('utf-8', decode('utf-8', $_)); $str =~s/kscdigest_id_replace/$ENV{path}/; print $str " -i.bak config-beijing-6-user18-1.ini

不做格式轉換

D:\code\test>perl -n -e "BEGIN{use utf8;use Encode;use Encode::Locale qw($ENCODING_LOCALE_FS); } my $str = decode('utf-8', $_); $str =~s/region/$ENV{path}/; print $str " -i.bak config-beijing-6-user18-1.ini
Wide character in print at -e line 1, <> line 25.