Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: XML parsing with XML::Rules

by poj (Abbot)
on Jun 16, 2013 at 18:15 UTC ( #1039237=note: print w/replies, xml ) Need Help??


in reply to XML parsing with XML::Rules

Here is a simplified version of your script which uses XML::FeedPP to get the XML, XML::Rules to extract the data and HTML::TreeBuilder::XPath to extract the times from the summary. I have also included a simple regex to extract the times should you not be able to install the XPath module. Adapt as you require.

#!/usr/bin/perl -w use strict; use warnings; use XML::FeedPP; use XML::Rules; use HTML::TreeBuilder::XPath; # input my $source = 'http://earthquake.usgs.gov/earthquakes/feed/v1.0/summary +/4.5_day.atom'; my $atom_xml = XML::FeedPP::Atom->new( $source )->to_string(); # output my $outfile = "quake.txt"; open my $fh,'>',$outfile or die "$!"; # parser my @rules = ( _default => 'content', title => \&title, entry => \&report_item, ); my $parser = XML::Rules->new(rules => \@rules); # process report_header(); $parser->parse( $atom_xml ); close $fh; sub title { my $title = $_[1]->{'_content'}; 'magnitude' => substr($title,2,3), 'place' => substr($title,8); } sub report_item { my $summary = $_[1]->{summary}; # extract time from summary using XPath my $tree = HTML::TreeBuilder::XPath->new_from_content($summary); my @dd = $tree->findvalues('//dd'); # extract time using regex my $t1; my $t2; if ($summary =~ m!<dt>Time</dt> <dd>(.*)\ UTC</dd> <dd>(.*)\ at\ epicenter</dd>!x){ $t1 = $1; $t2 = $2; } print $fh <<EOF Place : $_[1]->{place} Magnitude : $_[1]->{magnitude} Updated : $_[1]->{updated} Location : $_[1]->{'georss:point'} Time Xpath: $dd[0] $dd[1] Time regex: $t1 : $t2 Summary : $summary EOF } sub report_header { my $cur_time = localtime; print $fh <<EOF # This Quake file created by quake_parsing_9 # Matt Coblentz; Perl version unknown # For more information, see the USGS website # Last Updated: $cur_time EOF }
HTH
poj

Replies are listed 'Best First'.
Re^2: XML parsing with XML::Rules
by poj (Abbot) on Jun 16, 2013 at 20:00 UTC
    Here is a more simplified script which uses the get method on XML::FeedPP items as an alternative to XML::Rules.
    #!/usr/bin/perl -w use strict; use warnings; use XML::FeedPP; use HTML::TreeBuilder::XPath; # input my $source = 'http://earthquake.usgs.gov/earthquakes/feed/v1.0/summary +/4.5_day.atom'; # output my $outfile = "quake.txt"; open my $fh,">",$outfile or die "$!"; # process report_header(); my $feed = XML::FeedPP->new( $source ); foreach my $quake( $feed->get_item() ) { my $title = $quake->get('title'); my $magnitude = substr($title,2,3); my $place = substr($title,8); my $updated = $quake->get('updated'); my $locn = $quake->get('georss:point'); my $summary = $quake->get('summary'); my $id = $quake->get('id'); # extract time from summary using XPath my $tree = HTML::TreeBuilder::XPath->new_from_content($summary); my @dd = $tree->findvalues('//dd'); # extract time using regex my $t1; my $t2; if ($summary =~ m!<dt>Time</dt> <dd>(.*)\ UTC</dd> <dd>(.*)\ at\ epicenter</dd>!x){ $t1 = $1; $t2 = $2; } print $fh <<EOF ID : $id Title : $title Place : $place Magnitude : $magnitude Updated : $updated Location : $locn Summary : $summary Time Xpath: $dd[0] $dd[1] Time regex: $t1 : $t2 EOF } close $fh; sub report_header { my $cur_time = localtime; print $fh <<EOF # This Quake file created by quake_parsing_9 # Matt Coblentz; Perl version unknown # For more information, see the USGS website # Last Updated: $cur_time EOF }
    poj

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1039237]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2021-03-02 23:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favorite kind of desktop background is:











    Results (65 votes). Check out past polls.

    Notices?