Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^2: XML parsing with XML::Rules

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

in reply to Re: XML parsing with XML::Rules
in thread XML parsing with XML::Rules

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 = ' +/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 }

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (2)
As of 2021-03-07 10:01 GMT
Find Nodes?
    Voting Booth?
    My favorite kind of desktop background is:

    Results (120 votes). Check out past polls.