diff options
| author | mattn <mattn.jp@gmail.com> | 2011-11-15 11:58:45 +0900 |
|---|---|---|
| committer | mattn <mattn.jp@gmail.com> | 2011-11-15 11:58:45 +0900 |
| commit | fe0d4e7fcb5da4b04098257af8285e4cd3217fd2 (patch) | |
| tree | 64191e3ec13fe500c2da382334766a21d149ed20 /template | |
| parent | fdb3bfeaf46515631af432ce5182a4bbc1eb860a (diff) | |
| download | vim-sonictemplate-fe0d4e7fcb5da4b04098257af8285e4cd3217fd2.tar.gz vim-sonictemplate-fe0d4e7fcb5da4b04098257af8285e4cd3217fd2.tar.bz2 vim-sonictemplate-fe0d4e7fcb5da4b04098257af8285e4cd3217fd2.zip | |
add some.
Diffstat (limited to 'template')
| -rw-r--r-- | template/perl/base-scraping.pl | 16 | ||||
| -rw-r--r-- | template/perl/snip-growl-any.pl | 5 | ||||
| -rw-r--r-- | template/perl/snip-lwp-useragent.pl | 3 | ||||
| -rw-r--r-- | template/perl/snip-web-scraper.pl | 10 |
4 files changed, 18 insertions, 16 deletions
diff --git a/template/perl/base-scraping.pl b/template/perl/base-scraping.pl deleted file mode 100644 index ffb696d..0000000 --- a/template/perl/base-scraping.pl +++ /dev/null @@ -1,16 +0,0 @@ -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"; -} diff --git a/template/perl/snip-growl-any.pl b/template/perl/snip-growl-any.pl new file mode 100644 index 0000000..3c8a325 --- /dev/null +++ b/template/perl/snip-growl-any.pl @@ -0,0 +1,5 @@ +my $growl = Growl::Any->new( + appname => '{{_cursor_}}', + events => ['Error'] +); +#$growl->notify('Error', 'Failed to do it!'); diff --git a/template/perl/snip-lwp-useragent.pl b/template/perl/snip-lwp-useragent.pl new file mode 100644 index 0000000..711de87 --- /dev/null +++ b/template/perl/snip-lwp-useragent.pl @@ -0,0 +1,3 @@ +my $ua = LWP::UserAgent->new; +$ua->env_proxy; +my $res = $ua->get("{{_cursor_}}"); diff --git a/template/perl/snip-web-scraper.pl b/template/perl/snip-web-scraper.pl new file mode 100644 index 0000000..6b93104 --- /dev/null +++ b/template/perl/snip-web-scraper.pl @@ -0,0 +1,10 @@ +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"; +#} |