亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 如何在XML::Generator模塊中使用大于和小于號(hào)？ [打印本頁(yè)]
作者: capfsxl    時(shí)間: 2013-12-13 21:15
標(biāo)題: 如何在XML::Generator模塊中使用大于和小于號(hào)？
請(qǐng)教各位大神，$info1,$info2,$info3是我循環(huán)出來的信息，我直接加了標(biāo)簽，可到模塊中卻翻譯了另一種表達(dá)，小于號(hào)<變成了&lt;大于號(hào)>變成了&gt;，如何能杜絕呢？

  2. #!/usr/bin/perl -w
  3. use strict;
  4. use warnings;
  5. use XML::Generator;

  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;

  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";
復(fù)制代碼
下圖是執(zhí)行結(jié)果！
作者: capfsxl    時(shí)間: 2013-12-13 21:52
以【<![CDATA[】開始，以【]]>】結(jié)束？
作者: capfsxl    時(shí)間: 2013-12-14 00:22
祝大家周末愉快��！
作者: rubyish    時(shí)間: 2013-12-14 01:18
錯(cuò)誤的用法~ )
  1. use XML::Generator;

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

  11. @info = map { { /<(\w+)>(.*?)</g } } $info1, $info2, $info3;

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

  35. $file = $xml->xmldecl . "$put";
  36. print "$file\n";
復(fù)制代碼
  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>
復(fù)制代碼
作者: capfsxl    時(shí)間: 2013-12-14 11:38
回復(fù) 4# rubyish
感謝，CU真是一個(gè)溫暖的大家庭！
   



歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2