Perl 简单读写XML

使用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.xm