網路城邦
上一篇 回創作列表 下一篇 　 字體：小 中 大
Some of perl with XML
2010/03/02 14:36:54瀏覽461｜回應1｜推薦0
http://perl-xml.sourceforge.net/faq/

http://www.xml.com/pub/a/98/09/xml-perl.html
( 休閒生活｜生活情報 )
回應 列印 加入我的文摘
上一篇 回創作列表 下一篇

引用
引用網址：https://classic-blog.udn.com/article/trackback.jsp?uid=92girls&aid=3817554

　回應文章

凱雅斯
等級：7
留言｜加入好友
UTF-8
2011/07/04 21:04
#!/usr/bin/perl
use XML::Simple qw(:strict);
use utf8;

:
:
# $db_str <- 這是由資料庫中取得的資料.
# $v_str <- 這是在程式中定義的變數
# $xml_str <- 這是透過 XML::Simple 取得的 xml 內資料

$x = "[$db_str][$v_str][$xml_str]"; # $x 印出後會出現亂碼.
print("x=$x\n");

$xml_str=to_utf8($xml_str);
$y = "[$db_str][$v_str][$xml_str]"; # $y 印出後可以正常顯示.
print("y=$y\n");


# 轉成 utf8
sub to_utf8 {
local($p_str) = @_;
if (utf8::is_utf8($p_str)){
utf8::decode($p_str);
}
return($p_str);
}