SQL - trace SQL statements executed
(not yet implemented in DBI but implemented in some DBDs)
####
$ sqlite3 pm_11137916_anon
SQLite version 3.34.0 2020-12-01 16:14:00
Enter ".help" for usage hints.
sqlite> create table Planet (id, name, type);
sqlite> insert into Planet values (3, 'Earth', 'rock');
sqlite> insert into Planet values (5, 'Jupiter', 'gas');
sqlite> insert into Planet values (9, 'Pluto', 'dwarf');
sqlite> select * from Planet;
3|Earth|rock
5|Jupiter|gas
9|Pluto|dwarf
sqlite>
##
##
#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
DBI->trace(0);
my $dbh = DBI->connect('dbi:SQLite:dbname=pm_11137916_anon');
print join('|', @$_), "\n" for $dbh->selectall_array('select * from Planet');
##
##
$ ./trace_none.pl
3|Earth|rock
5|Jupiter|gas
9|Pluto|dwarf
##
##
$ ls -al *.out
-rw-r--r-- 1 ken None 1839 Oct 24 03:50 trace_dbi_1.out
-rw-r--r-- 1 ken None 1853 Oct 24 03:51 trace_dbi_1_sql.out
-rw-r--r-- 1 ken None 16771 Oct 24 04:14 trace_dbi_15.out
-rw-r--r-- 1 ken None 16893 Oct 24 04:15 trace_dbi_15_sql.out
-rw-r--r-- 1 ken None 6512 Oct 24 03:45 trace_dbi_4.out
-rw-r--r-- 1 ken None 6570 Oct 24 03:45 trace_dbi_4_sql.out
-rw-r--r-- 1 ken None 10574 Oct 24 04:02 trace_dbi_5.out
-rw-r--r-- 1 ken None 10632 Oct 24 04:03 trace_dbi_5_sql.out