Perl 简单读写XML

zhubinqiang

于 2015-03-19 10:36:26 发布

阅读量4.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： perl

本文链接：https://blog.youkuaiyun.com/zhubinqiang/article/details/44453903

这篇博客介绍了如何利用Perl的XML::Simple模块进行XML文件的读取和写入操作，通过实例展示了具体代码和执行结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用XML::SImple来读写XML

t.xml

<?xml version="1.0" ?>
<rtsp_execute>

    <data name="xcoder" tag="abc" id="001">StreamingMediaTranscoder.exe</data>

    <data name="src.ip" tag="123" id="002">10.239.254.202</data>
    <data name="src.rtsp_port">8554</data>

    <data name="options">-u SPEED -stats</data>
    <data>XXXXXXXXXXXXXXXXXXXXXXXXX</data>

    <param name="kill_at_session_end">1</param>
    <param name="session_liveness_timeout">0</param>

</rtsp_execute>

读xml

    use strict;
    use warnings;

    use XML::Simple;
    use Data::Dumper;

    use 5.010;
    my $xmlfile = "t.xml";
    my $xml = XML::Simple->new(KeyAttr=>"", ForceArray => 1);

    my $tree = $xml->XMLin($xmlfile);
    say Dumper($tree);