#! c:/Perl/bin/perluse strict;use warnings;use Getopt::Std;
 use DbDefInfo;use WriteExcelDbDefInfo;
 my $usage = <<"USAGE";
USAGE: $0 -u <username> -p <passwd> [-h <hostname>] -d <dbname> -t <dbtype> [-o <output_file_name>] [-s <schema_name>]
create table definition excel file from database. postgresql only.
 <username>         connect user name.
 <passwd>           connect user password.
 <hostname>         connect server name.
 <dbname>           connect database name.
 <dbtype>           postgresql 'PgPP'
 <output_file_name> excel file name which will create.
 <schema_name>      schema name.
USAGE
 our ($opt_u, $opt_p, $opt_d, $opt_h, $opt_o, $opt_s, $opt_t);
getopt('oupdhst');unless ($opt_u && $opt_p && $opt_d && $opt_t) {print STDERR $usage;exit(1);}
 my $settings = { user => $opt_u, passwd => $opt_p, dbname => $opt_d, host => $opt_h || 'localhost', output => $opt_o || 'table_def.xls', schema_name => $opt_s || 'public', type => $opt_t};
 my @tables = get_table_def_infos($settings);
write_db_def_info(\@tables, $settings);

#! c:/Perl/bin/perl use strict; use warnings; use Getopt::Std; use DbDefInfo; use WriteExcelDbDefInfo; my $usage = <<"USAGE"; USAGE: $0 -u <username> -p <passwd> [-h <hostname>] -d <dbname> -t <dbtype> [-o <output_file_name>] [-s <schema_name>] create table definition excel file from database. postgresql only. <username> connect user name. <passwd> connect user password. <hostname> connect server name. <dbname> connect database name. <dbtype> postgresql 'PgPP' <output_file_name> excel file name which will create. <schema_name> schema name. USAGE our ($opt_u, $opt_p, $opt_d, $opt_h, $opt_o, $opt_s, $opt_t); getopt('oupdhst'); unless ($opt_u && $opt_p && $opt_d && $opt_t) { print STDERR $usage; exit(1); } my $settings = { user => $opt_u, passwd => $opt_p, dbname => $opt_d, host => $opt_h || 'localhost', output => $opt_o || 'table_def.xls', schema_name => $opt_s || 'public', type => $opt_t }; my @tables = get_table_def_infos($settings); write_db_def_info(\@tables, $settings);