PerlでXMLを文字列に変換する方法

Question

電子メールの本文としてXMLファイルを送信する必要があります。 XMLを簡単な文字列に変換し、本文に入れて電子メールを送信したいと思います。 RichTextBoxにPlainTextとしてファイルをロードすることで、C＃でこれまでに行ったことを思い出しました。

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

Answer 2

my $xmlfilename; 
my $myxml; 
open (FILE, '>', "$xmlfilename") or die "$!"; 
while (<FILE>){ 
    $myxml = "$myxml"."$_"; 

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

---

か、あなたがファイルからXMLデータを読み込む場合、それは「単純な文字列」になりますhttp://metacpan.org/pod/XML::Parserモジュール