但是，如果資料含有中文字，就要特別處理轉碼的問題，
原本處理來自IBM主機資料時，一直 Convert::IBM390這個模組，
也由於之前資料內很幸運的都沒有中文，
所以一直也沒注意到這個無法轉換中文的限制，直到.....今天。
Convert::IBM390只能夠轉換 IBM-1047 <=> ISO8859-1
而 IBM主機上的Traditional Chinese EBCDIC編碼是IBM-937(cp937)
目前Perl在CPAN上面的Encode模組找不到支援cp937
另外唐鳳所寫的模組Encode::IBM可以支援。(但我沒試過)
Unix-like作業系統上，也有一個iconv的指令，可已進行檔案轉碼的作業。
簡單介紹可以參考這裡
所以經由Perl可以間接使用iconv來轉碼，再將結果取回放回變數內，舉例如下。
###############################
# CP937 => Big5 轉碼
# 使用inconv指令
#
sub CP937_BIG5 {
my $eb = shift;
return '' unless $eb;
# 在家目錄/tmp下
my $big5file = $ENV{HOME} . '/tmp/big5file';
open Convert, " | iconv -s -f IBM-937 -t big5 > $big5file " or die;
print Convert $eb;
close Convert;
open B5, '<', $big5file or die;
my $big5 = <B5>;
close B5;
return $big5;
}
如果不想使用上面的方法，也可以改用Text::Iconv，比較簡潔。
###############################
# CP937 => Big5 轉碼
# 使用Text::Iconv來介接inconv指令
#
use Text::Iconv;
sub CP937_BIG5 {
my $eb = shift;
if ($eb) {
return Text::Iconv->new("IBM-937" => "big5")->convert($eb);
}
else {
return '';
}
}轉碼是個不得已沒有營養的作業，
但為了現有營運中不同系統間的資料轉換，
它又是個必須存在的基本工具。
Perl提供了良好多樣性的方法來達到我們的目的，是個值得學習而又實用的程式語言。
發表文章
