如何在Perl中将XML转换为字符串

Question

我需要发送一个XML文件作为电子邮件的正文.我想将XML转换为简单的字符串,将其放入正文然后发送电子邮件.我记得我之前在C#中通过将文件作为PlainText加载到RichTextBox中来实现.

my $xmlfilename;
my $myxml;
# XML TO STRING?
my $email = Email::Simple->create(
header => [
To      => '"AB <a@b.it"',
From    => '"CD" <c@d.it>',
Subject => "TEST",
],
body => $myxml,
);
sendmail($email);

任何的想法？

Answer 1

如果您从文件中读取XML数据,那么它将是一个"简单字符串".我不确定是什么混淆.

my $xmlfilename;

open my $fh, $xmlfilename or die "Can't open $xmlfilename: $!";

my $myxml = do { local $/; <$fh>; };

my $email = Email::Simple->create(
    header => [
        To      => '"AB <a@b.it"',
        From    => '"CD" <c@d.it>',
        Subject => "TEST",
    ],
    body => $myxml,
);

sendmail($email);