diff options
-rw-r--r-- | template/scraping.perl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/template/scraping.perl b/template/scraping.perl new file mode 100644 index 0000000..ffb696d --- /dev/null +++ b/template/scraping.perl @@ -0,0 +1,16 @@ +use strict; +use warnings; +use utf8; +use Web::Scraper; +use URI; + +my $scraper = scraper { + process '{{_cursor_}}', 'data' => 'TEXT'; + result 'data'; +}; +$scraper->user_agent->env_proxy; + +use YAML::Syck; +for (@{$scraper->scrape( URI->new('') )}) { + print $_->{data}, "\n"; +} |