diff options
| -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"; +} |