simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00
Code Issues Releases Wiki Activity

Deleting temp script

Browse source
This commit is contained in:
Adam Kennedy 2009-04-03 23:05:23 +00:00
parent b5a6806d85
commit fdd27a3fb4
1 changed files with 0 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
tmp.pl
View file

@ -1,41 +0,0 @@
#!/use/bin/perl
use strict;
use warnings;
use DBI;
$ENV{PATH} = "/bin:/usr/sbin";
my $dbh = DBI->connect("DBI:SQLite:blah", "", "");
SCOPE: {
my $sth = $dbh->do(q{DROP TABLE IF EXISTS t1});
my $sth2 = $dbh->do(q{CREATE TABLE t1 (c1 text)});
my $sth3 = $dbh->prepare(q{INSERT INTO t1 VALUES (?)});
for my $i (1 .. 5) {
$sth3->execute($i);
}
$sth3->finish();
}
$dbh->disconnect();
my @dbh;
for my $i (1 .. 2) {
print "$i: before connect\n";
print `lsof -p $$|grep test`;
$dbh[$i] = DBI->connect("DBI:SQLite:blah", "", "");
print "$i: after connect\n";
print `lsof -p $$|grep test`;
# {
my $sth = $dbh[$i]->prepare(q{SELECT count(1) from t1});
$sth->execute();
my ($count) = $sth->fetchrow_array;
print "count: $count\n";
$sth->finish();
# }
$dbh[$i]->disconnect();
print "$i: after disconnect\n";
print `lsof -p $$|grep test`, "\n";
}