在连接9i或以上版本的Oracle数据库时, 必须指定SYSDBA或SYSOPER选项, 当你的Perl角本需要以SYS用户连接时, 如何指定呢?
#!/usr/bin/perl -w
#
use DBI;
# Get a database connection Handle.
my $dbconn = DBI->connect("dbi:Oracle:",
'/','/', {ora_session_mode=>2});
......
当ora_session_mode的值指定为2时表示以SYSDBA连接, 指定值为4时表示以SYSOPER来连接.
最近越来越发现Perl的好处, 以后将改用Perl来写些小角本, 并将源代码共享给大家.