Perl连接GP的模板

#!/usr/bin/perl
 
use DBI;
use strict;
use POSIX;

#判断入参个数，至少为3个，dbname 数据库名; dbuser 用户名; password 密码
unless (@ARGV == 3) {
    die "Usage: $0 dbname dbuser password\n";
}

#接收传入的参数    
my $dbname          = $ARGV[0];#数据库名
my $dbuser          = $ARGV[1];#数据库用户名
my $password        = $ARGV[2];#口令

my $dbh = DBI->connect("dbi:ODBC:$dbname",$dbuser,$password,
                         {AutoCommit => 1,
                         RaiseError => 1,
                         PrintError => 1,}
                         )or die "Can't connect to Greenplum database: $DBI::errstr\n";

                        
print "Opened database successfully\n";
 
my $stmt = qq(
              CREATE TABLE table
              (
                   ID INT id     NOT NULL,
                   NAME           TEXT    NOT NULL,
                   AGE            INT     NOT NULL,
                   ADDRESS        CHAR(50),
                   SALARY         REAL
              );
            );
my $rv = $dbh->do($stmt);
if($rv < 0){
   print $DBI::errstr;
} else {
   print "Table created successfully\n";
}
$dbh->disconnect();