xml - 使用 Perl 从 sql server 数据库中读取 xml 字符串

Question

我有一个表，其中有一个类型为 ntext 的名为 XML 的列，其中我正在存储 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);