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