xml - Perlを使用してSQLサーバーデータベースから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 ;

SQLServerデータベースを使用しています。

誰かが私がこれを取り除くのを手伝ってくれませんか？

Answer 1

そのコードは実行されるようには見えないため、問題を診断するのは困難です。selectrow_array をスカラーコンテキストに評価しているように見えますが、これは役に立ちません。

代わりに、次を使用する必要があります。

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