aboutsummaryrefslogtreecommitdiff
path: root/template/perl/snip-dbi-prepare.pl
blob: 542421940cf48b2e1433091888d338135343334f (plain)
1
2
3
4
5
my $sth = $dbh->prepare("{{_cursor_}}");
$sth->execute;
while (my @row = $sth->fetchrow_array) {
	#print join(', ', @row), "\n";
}