perl 操作xml实例

1. ?用XML::Simple来写xml代码如下：

#!perl -w
use strict;
  use warnings;
  use XML::Simple;

my $str = <<XML_STRING_;
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
       <server name="sahara" osname="solaris" osversion="2.6">         
       		<address>10.0.0.101 </address>         
       		<address>10.0.1.101 </address>       
       </server>       
       <server name="gobi" osname="irix" osversion="6.5">         
       		<address>10.0.0.102 </address>       
       	</server>       
</config> 
XML_STRING_
    

my $xml_ref=XMLin($str,ForceArray => 1,KeepRoot => 1);  
use Data::Dumper;
print(Dumper($xml_ref));
my $xml_str=XMLout($xml_ref,rootname => 'enter_rootname_here');
print("$xml_strn");

打印效果如下：

2. perl heredoc 在windows上的故障解决

Why do I get an error using Perl's here-doc syntax (<<),that says "Can't find string terminator anywhere before EOF"?

This is a weird error that occurs when your string terminator is on the last line of your script. With a script like:

    print <<"END";
    The snake is old,and his skin is cold.
    END

perl is looking for the word END on a line by itself,followed by a line-feed character (n). If the END is the last line of your script,you have to remember to hit <Enter> after the word END,so that Perl can recognize it as the string terminator.

Most UNIX text editors will do this automatically. Most Windows text editors won't. Thus the problem.

Note that this can also cause a problem with Perl formats,since these are terminated with a single . on a line by itself. However,it's much more rare,since programmers often specify the format for output at the top rather than at the bottom of a file.

?

?

3. 通过simplexml 模板，输出xml时的 <;> 有错误，后面采用直接输出txt文件，内容为 “<root>...</root>”的形式，感觉比较简单