Perl Connect to Database without password as sysdba

標籤：

 1 #!/oracle/product/11g/db/perl/bin/perl 2 use lib ‘/oracle/product/11g/db/perl/lib/site_perl/5.10.0‘; 3 use DBI; 4 use DBD::Oracle qw(:ora_session_modes); 5 print $DBI::VERSION,"\n"; 6 print $DBD::Oracle::VERSION,"\n"; 7  8 $ENV{ORACLE_SID} = "MY"; 9 10 my $dbh = DBI->connect( "dbi:Oracle:", "", "",{ ora_session_mode => ORA_SYSDBA } ) || die( $DBI::errstr . "\n" );11 12 $dbh->{AutoCommit}    = 0;13 14 $dbh->{RaiseError}    = 1;15 16 $dbh->{ora_check_sql} = 0;17 18 $dbh->{RowCacheSize}  = 16;19 20 21 my $SEL = "SELECT * FROM my.m\$audit_log";22 my $sth = $dbh->prepare($SEL);23 $sth->execute();24 25 while ( my @row = $sth->fetchrow_array() ) {26     foreach (@row) {27         $_ = "\t" if !defined($_);28         print "$_\t";29     }30     print "\n";31 }32 33 END {34     $dbh->disconnect if defined($dbh);35 }

 

Perl Connect to Database without password as sysdba