view release on metacpan or  search on metacpan

bin/myutil_dump_columns.pl  view on Meta::CPAN

#!/usr/bin/perl

###### PACKAGES ######

use Getopt::Long;
Getopt::Long::Configure('no_ignore_case');
use MySQL::Util;
use Data::Printer alias => 'pdump';
use Modern::Perl;

###### CONSTANTS ######

###### GLOBAL VARIABLES ######

use vars qw($Util $Host $DbName $User $Pass $Table);

###### MAIN PROGRAM ######

parse_cmd_line();
init();

my $aref = $Util->describe_table($Table);

foreach my $col (@$aref) {
	my $desc = $Util->describe_column(table => $Table, column => $col->{FIELD});
	pdump $desc;
	say "";
}

###### END MAIN #######

sub init {
	my $dsn = "dbi:mysql:host=$Host;dbname=$DbName";

	$Util = MySQL::Util->new(
		dsn  => $dsn,
		user => $User,
		pass => $Pass
	);
}

sub check_required {
	my $opt = shift;
	my $arg = shift;

	print_usage("missing arg $opt") if !$arg;
}

sub parse_cmd_line {
	my @tmp = @ARGV;
	my $help;

	my $rc = GetOptions(
		"h=s"    => \$Host,
		"d=s"    => \$DbName,
		"u=s"    => \$User,
		"p=s"    => \$Pass,
		"t=s"    => \$Table,
		"help|?" => \$help
	);

	print_usage("usage:") if $help;

	check_required( '-u', $User );
	check_required( '-h', $Host );
	check_required( '-d', $DbName );
	check_required( '-t', $Table );

	if ( !($rc) || ( @ARGV != 0 ) ) {