Perl连接GP的模板

#!/usr/bin/perl ? use DBI; use strict; use POSIX; #判断入参个数，至少为3个，dbname 数据库名; dbuser 用户名; password 密码 unless (@ARGV == 3) { ??? die "Usage: $0 dbname dbuser passwordn"; } #接收传入的参数?? ? 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::errstrn"; ?????????????????????? ? print "Opened database successfullyn"; ? 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 successfullyn"; } $dbh->disconnect();