<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w

use DBI;

$dbh = DBI-&gt;connect('dbi:SQLite:dbname=ex_profile.db', '', '', { RaiseError =&gt; 1 });

$dbh-&gt;do("DROP TABLE IF EXISTS ex_profile");
$dbh-&gt;do("CREATE TABLE ex_profile (a int)");

 $dbh-&gt;do("INSERT INTO ex_profile (a) VALUES ($_)", undef)     for 1..100;
#$dbh-&gt;do("INSERT INTO ex_profile (a) VALUES (?)",  undef, $_) for 1..100;

my $select_sql = "SELECT a FROM ex_profile";

$dbh-&gt;selectall_arrayref($select_sql);

$dbh-&gt;selectall_hashref($select_sql, 'a');

my $sth = $dbh-&gt;prepare($select_sql);
$sth-&gt;execute;
while ( @row = $sth-&gt;fetchrow_array ) {
}


__DATA__
</pre></body></html>