Чтение строки XML из базы данных сервера SQL с помощью Perl

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);