From 0030ae8a1c32ed7ebd4faf1b9f52297486a28f6d Mon Sep 17 00:00:00 2001
From: mattn <mattn.jp@gmail.com>
Date: Thu, 27 Oct 2011 21:33:34 +0900
Subject: add perl dbi stuff.

---
 template/dbi-connect-sqlite.perl | 1 +
 template/dbi-prepare.perl        | 5 +++++
 template/dbi-sqlite.perl         | 1 -
 3 files changed, 6 insertions(+), 1 deletion(-)
 create mode 100644 template/dbi-connect-sqlite.perl
 create mode 100644 template/dbi-prepare.perl
 delete mode 100644 template/dbi-sqlite.perl

diff --git a/template/dbi-connect-sqlite.perl b/template/dbi-connect-sqlite.perl
new file mode 100644
index 0000000..6f66987
--- /dev/null
+++ b/template/dbi-connect-sqlite.perl
@@ -0,0 +1 @@
+my $dbh = DBI->connect("dbi:SQLite:dbname={{_cursor_}}");
diff --git a/template/dbi-prepare.perl b/template/dbi-prepare.perl
new file mode 100644
index 0000000..b242b82
--- /dev/null
+++ b/template/dbi-prepare.perl
@@ -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/dbi-sqlite.perl b/template/dbi-sqlite.perl
deleted file mode 100644
index 6f66987..0000000
--- a/template/dbi-sqlite.perl
+++ /dev/null
@@ -1 +0,0 @@
-my $dbh = DBI->connect("dbi:SQLite:dbname={{_cursor_}}");
-- 
cgit v1.2.3-54-g00ecf