#!/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!