Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Logging and tracing with DBIx::Simple

by ablanke (Prior)
on Dec 17, 2020 at 00:21 UTC ( [id://11125322]=note: print w/replies, xml ) Need Help??


in reply to Logging and tracing with DBIx::Simple

# SQL::Interp prints DEBUG to STDERR # whether TRACE_SQL is enabled # SQL::Interp.pm: # my $trace_sql_enabled = $ENV{TRACE_SQL} || 0; # $trace_sql_enabled and print STDERR "DEBUG:interp[sql=$sql,bind=". j +oin(':', @bind) . "]\n"; # TRACE_SQL=1 perl my_script.pl use strict; use warnings; use feature 'say'; use DBIx::LogAny; use DBIx::Simple; use Log::Any::Adapter ('File', './log_file.log'); use SQL::Interp; # connect to your DB using DBIx::LogAny my $dbh = DBIx::LogAny->connect('dbi:SQLite:dbname=file.dat'); # Using an existing database handle (DBIx::LogAny) for DBIx::Simple my $db = DBIx::Simple->connect($dbh); # make your query $db->iquery('SELECT 1')->into(my $one); say $one;
call your script with enabled SQL::Interp SQL Trace:
TRACE_SQL=1 perl my_script.pl DEBUG:interp[sql=SELECT 1,bind=] 1
DBIx::LogAny log output:
[Thu Dec 17 01:15:15 2020] connect(0): dbi:SQLite:dbname=file.dat, , $ +attr = undef; [Thu Dec 17 01:15:15 2020] DBI: 1.643 , DBIx::LogAny: 0.06, Driver: SQ +Lite(1.66) [Thu Dec 17 01:15:15 2020] prepare(0.0): 'SELECT 1' [Thu Dec 17 01:15:15 2020] execute(0.0) [Thu Dec 17 01:15:15 2020] finish(0.0) [Thu Dec 17 01:15:15 2020] finish(0.0)

Replies are listed 'Best First'.
Re^2: Logging and tracing with DBIx::Simple
by kaldor (Beadle) on Dec 18, 2020 at 21:36 UTC

    That's precisely what I needed, thank you!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11125322]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (7)
As of 2024-03-29 15:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found