From 50270c6dd21fb071fdb19e37f8dc95f4d6dff616 Mon Sep 17 00:00:00 2001 From: mattn Date: Fri, 28 Oct 2011 09:42:05 +0900 Subject: BIG CHANGE: changed directory structure. --- template/perl/base-package.pl | 9 +++++++++ template/perl/base-scraping.pl | 16 ++++++++++++++++ template/perl/base-script.pl | 5 +++++ template/perl/base-test.pl | 6 ++++++ template/perl/snip-dbi-connect-sqlite.pl | 2 ++ template/perl/snip-dbi-prepare.pl | 5 +++++ template/perl/snip-file-read.pl | 2 ++ template/perl/snip-pit.pl | 7 +++++++ template/perl/snip-sub.pl | 5 +++++ 9 files changed, 57 insertions(+) create mode 100644 template/perl/base-package.pl create mode 100644 template/perl/base-scraping.pl create mode 100644 template/perl/base-script.pl create mode 100644 template/perl/base-test.pl create mode 100644 template/perl/snip-dbi-connect-sqlite.pl create mode 100644 template/perl/snip-dbi-prepare.pl create mode 100644 template/perl/snip-file-read.pl create mode 100644 template/perl/snip-pit.pl create mode 100644 template/perl/snip-sub.pl (limited to 'template/perl') diff --git a/template/perl/base-package.pl b/template/perl/base-package.pl new file mode 100644 index 0000000..b4fa22c --- /dev/null +++ b/template/perl/base-package.pl @@ -0,0 +1,9 @@ +package {{_expr_:substitute(substitute(substitute(expand('%'), '.*lib[\\/]', '', 'g'), '[\\/]', '::', 'g'), '\.pm$', '', 'g')}}; + +use strict; +use warnings; +use utf8; + +{{_cursor_}} + +1 diff --git a/template/perl/base-scraping.pl b/template/perl/base-scraping.pl new file mode 100644 index 0000000..ffb696d --- /dev/null +++ b/template/perl/base-scraping.pl @@ -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"; +} diff --git a/template/perl/base-script.pl b/template/perl/base-script.pl new file mode 100644 index 0000000..01e3ce9 --- /dev/null +++ b/template/perl/base-script.pl @@ -0,0 +1,5 @@ +use strict; +use warnings; +use utf8; + +{{_cursor_}} diff --git a/template/perl/base-test.pl b/template/perl/base-test.pl new file mode 100644 index 0000000..3971050 --- /dev/null +++ b/template/perl/base-test.pl @@ -0,0 +1,6 @@ +use strict; +use warnings; +use utf8; +use Test::More; + +{{_cursor_}} diff --git a/template/perl/snip-dbi-connect-sqlite.pl b/template/perl/snip-dbi-connect-sqlite.pl new file mode 100644 index 0000000..9366290 --- /dev/null +++ b/template/perl/snip-dbi-connect-sqlite.pl @@ -0,0 +1,2 @@ +my $dbh = DBI->connect("dbi:SQLite:dbname={{_cursor_}}"); +$dbh->disconnect; diff --git a/template/perl/snip-dbi-prepare.pl b/template/perl/snip-dbi-prepare.pl new file mode 100644 index 0000000..5424219 --- /dev/null +++ b/template/perl/snip-dbi-prepare.pl @@ -0,0 +1,5 @@ +my $sth = $dbh->prepare("{{_cursor_}}"); +$sth->execute; +while (my @row = $sth->fetchrow_array) { + #print join(', ', @row), "\n"; +} diff --git a/template/perl/snip-file-read.pl b/template/perl/snip-file-read.pl new file mode 100644 index 0000000..53138a4 --- /dev/null +++ b/template/perl/snip-file-read.pl @@ -0,0 +1,2 @@ +open my $fh, '<', '{{_cursor}}' or die "failed to open: $!"; +my $content = do { local $/; <$fh> }; diff --git a/template/perl/snip-pit.pl b/template/perl/snip-pit.pl new file mode 100644 index 0000000..710aa50 --- /dev/null +++ b/template/perl/snip-pit.pl @@ -0,0 +1,7 @@ +use Config::Pit; + +my $config = pit_get("{{_input_:domain}}", require => { + "username" => "username of {{_input_:domain}}", + "password" => "password of {{_input_:domain}}", +}); +{{_cursor_}} diff --git a/template/perl/snip-sub.pl b/template/perl/snip-sub.pl new file mode 100644 index 0000000..32f0e6d --- /dev/null +++ b/template/perl/snip-sub.pl @@ -0,0 +1,5 @@ +sub {{_input_:function name}} { + my ($self{{_input_:arguments}}) = @_; + {{_cursor_}} +} + -- cgit v1.2.3-54-g00ecf