Perl中的XML差异

Question

我有两个XML文件，一个是旧的XML文件，另一个是新的XML文件。我想打印文件之间的差异

我想要这样的输出:

• 如果内容更改Degree为B.com，则为更新数据

• 如果属性发生变化，则视为新增数据

示例输出:

UPDATED DATA:
in the "joindef" in the entry name = 
"Hardware" in the option name ="Graduation" content Degree was changed to B.com
NEWLY ADDED DATA:
in the "join_def" entry name "VHDL" is added.
in the "join_def" in the entry name "Software" option name "Location" is added.

OLDXML文件:

<ls_new>#mainblock
<new_def>#subblock1
............
............
............
</new_def>
<join_def>
    <entry name="Software">
        <option name="Graduation">B.tech</option>
        <member>year=2011</member>
        <option name="PostGraduation">M.tech</option>
        <option name="JobNum">50</option>
    </entry>
    <entry name="Hardware">
        <option name="Graduation">Degree</option>
        <member>year=2011</member>
        <option name="PostGraduation">MCA</option>
        <option name="JobNum">100</option>
    </entry>
</join_def>
<old_def>#subblock3
............
............
............
</old_def>
</ls_new>

NEWXML文件:

<ls_new>#mainblock
<new_def>#subblock1
............
............
............
</new_def>
<join_def>
    <entry name="Software">
        <option name="Graduation">B.tech</option>
        <member>year=2011</member>
        <option name="PostGraduation">M.tech</option>
        <option name="JobNum">50</option>
        <option name="Location">india</option>
    </entry>
    <entry name="Hardware">
        <option name="Graduation">B.com</option>
        <member>year=2011</member>
        <option name="PostGraduation">MCA</option>
        <option name="JobNum">100</option>
    </entry>
    <entry name="VHDL">
        <option name="Graduation">B.com</option>
        <member>year=2011</member>
        <option name="PostGraduation">MCA</option>
        <option name="JobNum">150</option>
    </entry>
</join_def>
<old_def>#subblock3
............
............
............
</old_def>
</ls_new>

我是Perl的新手。有人能帮我一下吗?

Answer 1

Perl中有一些模块可以将XML数据转换为Perl散列。

考虑到CPAN中可用的模块数量，

Perl对xml非常友好。

在这种情况下，我会使用XML::Hash模块。

假设您现在有两个带有键值对的散列。

您可以遍历旧的散列键，在新散列中搜索值，并根据需要打印结果。