From a1acbaffbd086ceb1fe4625ebb4413cc6a898cab Mon Sep 17 00:00:00 2001
From: mattn <mattn.jp@gmail.com>
Date: Thu, 27 Oct 2011 21:22:48 +0900
Subject: add perl stuff.

---
 template/dbi-sqlite.pl  | 1 +
 template/read-file.perl | 2 ++
 2 files changed, 3 insertions(+)
 create mode 100644 template/dbi-sqlite.pl
 create mode 100644 template/read-file.perl

(limited to 'template')

diff --git a/template/dbi-sqlite.pl b/template/dbi-sqlite.pl
new file mode 100644
index 0000000..6f66987
--- /dev/null
+++ b/template/dbi-sqlite.pl
@@ -0,0 +1 @@
+my $dbh = DBI->connect("dbi:SQLite:dbname={{_cursor_}}");
diff --git a/template/read-file.perl b/template/read-file.perl
new file mode 100644
index 0000000..53138a4
--- /dev/null
+++ b/template/read-file.perl
@@ -0,0 +1,2 @@
+open my $fh, '<', '{{_cursor}}' or die "failed to open: $!";
+my $content = do { local $/; <$fh> };
-- 
cgit v1.2.3-54-g00ecf