diff options
| author | mattn <mattn.jp@gmail.com> | 2011-10-27 21:33:34 +0900 |
|---|---|---|
| committer | mattn <mattn.jp@gmail.com> | 2011-10-27 21:33:34 +0900 |
| commit | 0030ae8a1c32ed7ebd4faf1b9f52297486a28f6d (patch) | |
| tree | 814fe3da9d7ce462d0617840c33536050d48296e | |
| parent | d6fcbb8a3e94a1d9036349536c0689afced4eff7 (diff) | |
| download | vim-sonictemplate-0030ae8a1c32ed7ebd4faf1b9f52297486a28f6d.tar.gz vim-sonictemplate-0030ae8a1c32ed7ebd4faf1b9f52297486a28f6d.tar.bz2 vim-sonictemplate-0030ae8a1c32ed7ebd4faf1b9f52297486a28f6d.zip | |
add perl dbi stuff.
| -rw-r--r-- | template/dbi-connect-sqlite.perl (renamed from template/dbi-sqlite.perl) | 0 | ||||
| -rw-r--r-- | template/dbi-prepare.perl | 5 |
2 files changed, 5 insertions, 0 deletions
diff --git a/template/dbi-sqlite.perl b/template/dbi-connect-sqlite.perl index 6f66987..6f66987 100644 --- a/template/dbi-sqlite.perl +++ b/template/dbi-connect-sqlite.perl 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"; +} |