C:\>perl -d 9.pl

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main::(9.pl:11):        my %myhash1 = ();

  DB<1> n
main::(9.pl:12):        my %myhash2 = ();

  DB<1>
main::(9.pl:13):        my $key;

  DB<1>
main::(9.pl:14):        my $val;

  DB<1>
main::(9.pl:16):        my $xml = new XML::Simple;

  DB<1>
main::(9.pl:18):        my $data1 = $xml->XMLin("sample.xml");

  DB<1>
main::(9.pl:20):        my $data2 = $xml->XMLin("sample2.xml");

  DB<1>
main::(9.pl:25):        open FH5, ">>tagfile1" or die "error in readin
+g..debug 1
";

  DB<1>
main::(9.pl:29):        print FH5 Dumper($data1) or die $!;

  DB<1>
main::(9.pl:32):        while (<FH5>)
main::(9.pl:33):        {

  DB<1>
main::(9.pl:43):        close FH5;

[download]