Come posso stampare la query SQL eseguita dopo che il DBI di Perl ha riempito i segnaposto?

Vedere Traccia in DBI . Quanto segue funziona utilizzando DBD::SQLite ma produce molto output:

$dbh->trace($dbh->parse_trace_flags('SQL|1|test'));

Uscita:

<- prepare('SELECT ... FROM ... WHERE ... = ?')= DBI::st=HASH(0x21ee924) at booklet-excel.pl line 213

<- execute('Inhaler')= '0E0' at booklet-excel.pl line 215

ecc ecc.

Puoi collegare il tuo filtro al flusso di traccia per mantenere solo prepare s.