如何在perl中替換文件utf8中的字符？

Question

我有這樣的事情（它的工作原理）：

perl -C -MText::Unidecode -n -i -e'print unidecode($_)' unicode_text.txt 

，現在我想要做同樣的腳本：

#!/usr/bin/perl -w -CSA 

use utf8; 
use Text::Unidecode; 


while(<>) 
{ 
    print unidecode($_); 
} 

，但它不工作。

Answer 1

你應該得到的錯誤消息

Too late for "-CSA" option 

這是什麼使程序讀取輸入文件爲UTF-8編碼。

相反，你需要把

use open qw(:std :utf8); 

的while循環，這不一樣-CS在命令行，即之前設置STDIN，STDOUT和STDERR處理以UTF-8編碼