打開perl上的utf8文件和雙重編碼

Question

我有每個表有COLLATE ='utf8_general_ci'的mysql db。

我連接到使用DBI表my $db = DBI->connect($cstring, $user, $password)，沒有

$db->{mysql_enable_utf8} = 1 
$db->do(qq{SET NAMES 'utf8';}); 

然後選擇表，並用文字:: CSV到MYFILE其中MYFILE被打開，如下面將其複製到CSV文件：

binmode(Myfile, ":utf8") 

，我重複上與開像上面放一些文件，我得到雙重編碼且僅當我刪除這些S中的binmode不同的文件不同的表，這個過程中的問題peicfic文件的問題解決了，而其他文件都很好，編碼爲u​​tf8，如果我刪除binmode他們我得到一個問題在utf8 encdoing可能是什麼問題？

值得一提我試圖用：使用UTF8我的劇本，還試圖用

$db-> {mysql_enable_utf8} = 1 
    $db->do(qq{SET NAMES 'utf8';}); 

，但問題並沒有解決。

Answer 1

如果我理解正確的話，你看

éëè 

，你使用phpMyAdmin時預計

éëè 

。這表明數據庫中的數據是錯誤的（雙重編碼）。您需要返回並使用正確的數據重新填充數據庫。

---

如果你不能修復你的數據庫，它是最有可能的安全，只是添加以下內容：

utf8::decode($str); # Fix double-encoding 

它會嘗試將已解碼的數據從數據庫中進行解碼。如果數據是雙重編碼的，這將修復它。如果數據不是雙重編碼的，它將失敗，並在$str中保留正確的值（假設你的字符串不是很奇怪）。

我建議您編寫一個小型工具，從數據庫讀取數據，使用這個技巧修復數據，然後將其正確放回數據庫。