请教：perl生成XML文档时如何调用变量

mtlmzb

交流一下，我最近也想写个脚本，生成XML文件，如果明天有空，讨论一下哦。可以加QQ 214284213

rubyish

:

1. use XML::Generator;
   
2. 
   
3. my $xml = XML::Generator->new(
   
4.     'conformance' => 'strict',
   
5.     'escape'      => 'always',
   
6.     'pretty'      => 3,
   
7.     'encoding'    => 'GBK'
   
8. );
   
9. 
   
10. my @rules = split /\n/, <<REND;
    
11. rule deny 192.168.1.1  0.0.0.255
    
12. rule deny 192.168.2.1  0.0.0.128
    
13. rule permit any
    
14. REND
    
15. 
    
16. print $xml->xmldecl, $xml->function(
    
17.     { funcname => 'acl_black_list', mode => 'predefined', no => 'no' },
    
18.     $xml->task_name('20130502152226_815403777'),
    
19.     $xml->device(
    
20.         $xml->device_name('202.197.12.200'),
    
21.         $xml->interface_name('GigabitEthernet0/0/2'),
    
22.         $xml->rule_list( map $xml->rule($_), @rules )
    
23.     )
    
24.   );

复制代码

capfsxl

回复 12# rubyish
感谢，感谢，这个问题困扰我几天了，一直找不到办法，感谢大哥的无私帮助！