Question

我正在尝试使用CGI Perl在简单的HTML表格中显示XML内容（这是一个SOAP请求）。但是，XML内容在内部被截断表格单元格。任何人都可以建议一个正确呈现XML的解决方案 HTML页面？

以下是代码：

use strict;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $qry = new CGI;

&show_html();


sub show_html {
    $qry->header();
    $qry->start_html(-bgcolor=>'#FFFFFF', -title=>'Rendering XML');
    my $body = &display_page();
    print $body;

    $qry->end_html;
}

sub display_page {

    my $html = qq{
        <table border="1">
        <tr>
            <th> Key </th>
            <th>Value</th>
        </tr>
        <tr>
            <td> SOAP </td>
            <td>POST /Quotation HTTP/1.0 Host: www.demohost Content-Type: text/xml; charset=utf-8 Content-Length: nnn  <?xml version="1.0"?> <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://www.demourl1/2001/12/soap-envelope" SOAP-ENV:encodingStyle="http://www.demourl2/2001/12/soap-encoding" >     <SOAP-ENV:Body xmlns:m="http://www.demourl3/quotations" >              <m:GetQuotation>          <m:QuotationsName>MiscroSoft</m:QuotationsName>       </m:GetQuotation>                  </SOAP-ENV:Body>      </SOAP-ENV:Envelope>
            </td>
        </tr>
        </table>
    };
    return $html;

}

Answer 1

XML中充满了<和&等字符，这些字符在HTML中具有特殊含义。

你需要对它们进行编码。

通常使用the HTML::Entities module完成。

use HTML::Entities;
my $html_encoded_string = encode_entities($raw_xml_string);

或者，使用支持HTML过滤的模板语言。

例如，在Template-Toolkit中，您可以执行以下操作：

<td>[% raw_xml_string | html %]</td>

你也可以使用CGI.pm的HTML生成函数（正如你在show_html中所做的那样，但是它们被标记为HTML Generation functions should no longer be used所以你真的应该停止在{{}中使用它们1}}。

CGI.pm文档推荐使用模板方法。

如何使用CGI Perl在HTML表中呈现xml内容

1 个答案: