使用Perl從sql server數據庫讀取xml字符串

Question

我有一個表，其中有一個名爲XML的類型爲ntext的列，用於存儲XML字符串。

當我用Perl腳本讀取該列並打印它時，整個XML字符串都不打印。

除了打印整個XML的只打印

< T u m o r > < p e r s o n U p i > 1 0 1 0 8 1 0 4 3 5 1 6 0 7 </p e

下面是腳本的一部分。

$get_xml_from_log_table = "SELECT XML FROM TR_MIGRATION_LOG WHERE MRN=123"; 
$xml_from_log_table = $dbh_sql_server->selectrow_array($get_xml_from_log_table); 
print $xml_from_log_table ; 

我正在使用SQL Server數據庫。

有人請幫我擺脫這個？

Answer 1

該代碼看起來不會運行，因此很難診斷問題所在。它看起來像你正在評估selectrow_array標量的上下文，這不會有幫助。

相反，你應該使用：

my($xml_from_log_table) = $dbh_sql_server->selectrow_array($get_xml_from_log_table);