dotfiles/.vim/template/perl/snip-dbi-prepare.pl

6 lines
131 B
Perl

my $sth = $dbh->prepare("{{_cursor_}}");
$sth->execute;
while (my @row = $sth->fetchrow_array) {
#print join(', ', @row), "\n";
}