Reading xml in perl

[dhstein]

I'm trying to loop through an xml file to process each line which represents a report to be generated. I am stuck. I am attaching the xml file and the perl script. Rename Reports_xml.txt to Reports.xml and rename Reports_pl.txt to Reports.pl. If you can help, please email me at <email removed> Thanks.

David

[RonB]

What are you stuck on?

This is the output I get from your script. Is it not what you expect?

mpid is MNOP
15
mpid is ABCD
1
mpid is IJKL
9
mpid is EFGH
5

[dhstein]

Thanks Ron. But I'm trying to read each record. There are 8 reports in the xml file and the output doesn't give them all. That's my problem. I just want to figure out how to get perl to display the "when" entry , for example, for each of the 8 reports.

David

[RonB]

foreach my $report ( @{ $reportlist->{config}{mpid}{$mpid}{report} } ) {

[zadrfle]

If you still have this requirement, try this:

use strict;
use XML::Simple;
use Data::Dumper;
 
my $dump_file = "test_dump.txt";
my $output_file = "Test_Outpt.txt";
 
### XMLin seems to be happiest with a complete path.
my $xml = XMLin('D:\Projects\Ad_Hoc\Reports.xml', forcearray => [ 'report' ]);
 
### this is very helpful in seeing how the XML is set up in memory
open(TESTDUMP,">$dump_file") or die "Cannot open $dump_file for writing: $!\n";
print TESTDUMP Dumper $xml;
close TESTDUMP;
 
open(OUTPUT,">$output_file") or die "Cannot open $output_file for writing: $!\n";
 
my $report_number = 1;
 
foreach(@{$$xml{mpid}})                ### iterate through the mpid's
{
    my $hash_ref = $_;
    my $id = $$hash_ref{ID};        ### save the mpid for later use
 
    foreach(@{$$hash_ref{report}})    ### iterate through the reports under each mpid
    {
 
        my $report_hash_ref = $_;
 
        ### format & print however you like
        print OUTPUT "Report Number: $report_number\n";
        $report_number++;
        print OUTPUT "\tmpid: $id\n";
        print OUTPUT "\temdail ID: $$report_hash_ref{emailID}\n";
        print OUTPUT "\twhen: $$report_hash_ref{when}\n";
        print OUTPUT "\ttype: $$report_hash_ref{type}\n";
        print OUTPUT "\ttime: $$report_hash_ref{time}\n";
        print OUTPUT "\n=================================\n\n";
 
    };    ### end of foreach(@{$$hash_ref{report})
 
 
};    ### end of foreach(@{$xml{mpid}})
 
close OUTPUT;