Select Code to Download

Select or download this

    my $summary; # = $quake->get( "summary");
#   print $summary;
      while ($summary = $quake->get("summary")) {
        $parser->parse_chunk($summary);
      }

Select or download this


    my $summary = $quake->get( "summary");
...
     #my $data = $parser->last_chunk();
     #my $dd = $data->get( "dd");
     #print $dd, "\n";

Select or download this

C:\Users\JKeys>perl \myperl\quake.pl
# This Quake file created by quake_parsing_9
...
ated intensity" class="mmi-V">ShakeMap - <strong class="roman">V</stro
+ng></a> <a href="http://earthquake.usgs.gov/earthquakes/eventpage/usc
+000hsdj#dyfi" class="
mmi-IV" title="Did You Feel It? maximum reported intensity (5 reports)
+">DYFI? - <strong class="roman">IV</strong></a></p><dl><dt>Time</dt><
+dd>2013-06-16 21:39:0
9 UTC</dd><dd>2013-06-16 23:39:09 +02:00 at epicenter</dd><dt>Location
+</dt><dd>34.491&deg;N 25.087&deg;E</dd><dt>Depth</dt><dd>37.85 km (23
+.52 mi)</dd></dl>