如何在XML::Generator模块中使用大于和小于号？

capfsxl

请教各位大神，$info1,$info2,$info3是我循环出来的信息，我直接加了标签，可到模块中却翻译了另一种表达，小于号<变成了&lt;大于号>变成了&gt;，如何能杜绝呢？

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use warnings;
   
5. use XML::Generator;
   
6. 
   
7.    my ($xml,$put,$file,@info,$info1,$info2,$info3);
   
8.    $info1 = "\n<name>wang hong</name>\n<sex>male</sex>\n<age>21</age>\n<address>anhui</address>\n";
   
9.    $info2 = "\n<name>hou shiyou</name>\n<sex>male</sex>\n<age>22</age>\n<address>tianjin</address>\n";
   
10.    $info3 = "\n<name>yu huixia</name>\n<sex>female</sex>\n<age>18</age>\n<address>sichuan</address>\n";
    
11.    push @info,$info1,$info2,$info3;
    
12. 
    
13. $xml = new XML::Generator(
    
14.    'conformance' => 'strict',
    
15.     'escape'     => 'always',
    
16.     'pretty'     => 2,
    
17.     'encoding'   => 'utf-8'
    
18. );
    
19. $put = $xml->function(
    
20.     { 'funcname' => 'student_info', 'no' => 'no' },
    
21.     $xml->task_num('20131213008'),
    
22.     $xml->school(
    
23.         $xml->grade('Grade One'),
    
24.         $xml->student(
    
25.              map $xml->member($_), @info
    
26.         )
    
27.     )
    
28. );
    
29. $file = $xml->xmldecl."$put";
    
30. print "$file\n";
    

复制代码

下图是执行结果！

capfsxl

以【<![CDATA[】开始，以【]]>】结束？

capfsxl

祝大家周末愉快啊！

rubyish

错误的用法~ )

1. use XML::Generator;
   
2. 
   
3. my ( $xml, $put, $file, @info, $info1, $info2, $info3 );
   
4. $info1 =
   
5. "\n<name>wang hong</name>\n<sex>male</sex>\n<age>21</age>\n<address>anhui</address>\n";
   
6. $info2 =
   
7. "\n<name>hou shiyou</name>\n<sex>male</sex>\n<age>22</age>\n<address>tianjin</address>\n";
   
8. $info3 =
   
9. "\n<name>yu huixia</name>\n<sex>female</sex>\n<age>18</age>\n<address>sichuan</address>\n";
   
10. 
    
11. @info = map { { /<(\w+)>(.*?)</g } } $info1, $info2, $info3;
    
12. 
    
13. $xml = new XML::Generator(
    
14.     'conformance' => 'strict',
    
15.     'escape'      => 'always',
    
16.     'pretty'      => 2,
    
17.     'encoding'    => 'utf-8'
    
18. );
    
19. $put = $xml->function(
    
20.     { 'funcname' => 'student_info', 'no' => 'no' },
    
21.     $xml->task_num('20131213008'),
    
22.     $xml->school(
    
23.         $xml->grade('Grade One'),
    
24.         $xml->student(
    
25.             map {
    
26.                 my %member = %$_;
    
27.                 $xml->member(
    
28.                   map { $xml->$_( $member{$_} ) }
    
29.                       qw/name sex age address/ )
    
30.             } @info
    
31.         )
    
32.     )
    
33. );
    
34. 
    
35. $file = $xml->xmldecl . "$put";
    
36. print "$file\n";

复制代码

1. <?xml version="1.0" encoding="utf-8" standalone="yes"?>
   
2. <function funcname="student_info" no="no">
   
3.   <task_num>20131213008</task_num>
   
4.   <school>
   
5.     <grade>Grade One</grade>
   
6.     <student>
   
7.       <member>
   
8.         <name>wang hong</name>
   
9.         <sex>male</sex>
   
10.         <age>21</age>
    
11.         <address>anhui</address>
    
12.       </member>
    
13.       <member>
    
14.         <name>hou shiyou</name>
    
15.         <sex>male</sex>
    
16.         <age>22</age>
    
17.         <address>tianjin</address>
    
18.       </member>
    
19.       <member>
    
20.         <name>yu huixia</name>
    
21.         <sex>female</sex>
    
22.         <age>18</age>
    
23.         <address>sichuan</address>
    
24.       </member>
    
25.     </student>
    
26.   </school>
    
27. </function>
    

复制代码

capfsxl

回复 4# rubyish
感谢，CU真是一个温暖的大家庭！