PERL连接数据库

#!/usr/local/bin/perl -w

use DBI;
use strict;
delete $ENV{ 'ENV' };
$ENV{ORACLE_SID} = "ORCL";
$ENV{ORACLE_HOME} = "/opt/oracle/product/10.2.0";
$ENV{NLS_LANG} = "AMERICAN_AMERICA.AL32UTF8";
$ENV{ORA_NLS} = $ENV{ORACLE_HOME} . "/ocommon/nls/admin/data";
$ENV{PATH} = $ENV{ORACLE_HOME} . "/bin:/usr/bin";
$ENV{LD_LIBRARY_PATH} = $ENV{ORACLE_HOME} . "/lib";
my $connect_mode = 2; # 2=SYSDBA

my $dbh = DBI->connect( 'dbi:Oracle:','', '',
        { ora_session_mode => $connect_mode,
          PrintError => 1, AutoCommit => 0 } )
        or die "Cannot connect: $DBI::errstr\n\n";
print "Connected.\n";

 

 

 

#!/usr/bin/perl


use DBI;
use DBI qw(:sql_types);

$dbh = DBI->connect("dbi:Oracle:","sys","abc123",
                                        { AutoCommit => 1, PrintError => 1, RaiseError => 0 ,ora_session_mode => 2})
                                        or die("DB connect error! \n");

#$sql = "select * from TAB";

$sql = 'create user zhangxu identified by zx6819453
                default tablespace OPENKORE
                temporary tablespace TEMP_OPENKORE';
$sth = $dbh->prepare($sql);

$sth->execute() or die("error!");

$sql = 'grant connect,resource,dba to zhangxu';

$sth = $dbh->prepare($sql);

$sth->execute() or die("error!");



$sth->finish;
$dbh->disconnect();
exit 0;