02/04/21 17:38
#include "perl6.h"
#include "perl6/dbi.h"
// usage: program perl-expr files
int main(int argc, char** argv){
PERL6_MAIN_BEGIN;
Perl::SV dbh = Perl::DBI::connect("dbi:foo:bar.db");
Perl::SV sth = dbh->prepare("SELECT * FROM hoge");
sth->execute();
Perl::SV row;
while(row = sth->fetchrow_arrayref){
Perl::println(Perl::join(" ", row));
}
sth->finish();
dbh->disconnect();
PERL6_MAIN_END;
return 0;
}