#!/usr/bin/perl use strict; use warnings; use Web::Scraper; use URI; # use YAML; use XML::TreePP; use XML::FeedPP; my $uri = 'https://www.police.pref.ehime.jp/sokuho/sokuho.htm'; my $scraper = scraper { process '#main2 > tbody > tr:nth-child(3) > td > dl > dt', 'title[]' => 'TEXT'; process '#main2 …
