view release on metacpan or  search on metacpan

bin/monm_dbi  view on Meta::CPAN

#!/usr/bin/perl -w
use strict; # $Id: monm_dbi 119 2022-08-29 15:16:27Z abalama $
use utf8;

=encoding utf8

=head1 NAME

monm_dbi - tiny DBI checker for App::MonM

=head1 VERSION

Version 1.01

=head1 SYNOPSIS

    monm_dbi [ --dsn=DSN | --sid=SID ] [ --user=DB_USERNAME ]
             [ --password=DB_PASSWORD ] [ --sql=SQL ]
             [-a "DBI_ATTR_1=Value"] [-a "DBI_ATTR_n=Value"]

    monm_dbi -n "DBI:mysql:database=test;host=192.0.0.1"
             -u user -p password -q "SELECT * FROM mytable"
             -a "mysql_enable_utf8=1" -a "PrintError=0"

=head1 OPTIONS

=over 4

=item B<-a "DBI_Attribute=Value">

    -a "DBI_Attribute=Value"
    -a "DBI_Attribute Value"

This is multiple option for setting DBI attributes

Default: "PrintError = 0"

=item B<-n DSN, --dsn=DSN>

DSN of database connection

    DBI:mysql:database=DATABASE;host=HOST;port=PORT
    DBI:Pg:dbname=DATABASE;host=HOST;port=PORT;options=OPTIONS
    DBI:Oracle:SID
    DBI:Oracle:host=HOST;sid=SID
    DBI:SQLite:dbname=mybase.db
    DBI:CSV:f_dir=/path/to/csvdb

Default: "DBI:Sponge:"

See also L<DBI>

=item B<-h, --help>

Show short help information and quit

=item B<-H, --longhelp>

Show long help information and quit

=item B<-p DB_PASSWORD, --password=DB_PASSWORD>

DB password

=item B<-q SQL, --sql=SQL>

SQL query string

=item B<-s SID, --sid=SID>

Oracle SID (Service Name)

B<NOTE!> For Oracle only!

=item B<-u DB_USERNAME, --user=DB_USERNAME>

DB username

=back

=head1 DESCRIPTION

Tiny DBI checker for App::MonM. Based on oradebug