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 }