aboutsummaryrefslogtreecommitdiff
path: root/template/scraping.perl
diff options
context:
space:
mode:
Diffstat (limited to 'template/scraping.perl')
-rw-r--r--template/scraping.perl16
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";
+}