Re: Perl DBI Oracle SYSDBA help/advise please:

Thanks Jared ...

It must be the DBI and DBD version then


On Fri, Feb 12, 2010 at 1:34 PM, Jared Still <[email protected]> wrote:

> On Wed, Feb 10, 2010 at 4:21 PM, newbie01 perl <[email protected]>wrote:
>
>> Hi all,
>>
>> To anyone who had been using Perl DBI and Oracle, can you please confirm
>> if
>> connection by SYSDBA works or doesn't?
>>
>>
> Works for me
>
> RH Linux EL 4
> Oracle 10.2.0.4
> Perl v5.8.8
> DBD::Oracle 1.23
>
> ========
>
> use DBI;
> use DBD::Oracle qw(:ora_session_modes);
>
> print $DBI::VERSION,"\n";               # this prints the DBI version
>
> $dsn = "dbi:Oracle:";       # no dbname here
> $ENV{ORACLE_SID} = "mydb";  # set ORACLE_SID as needed
> delete $ENV{TWO_TASK};      # make sure TWO_TASK isn't set
> $dbh = DBI->connect($dsn, "", "", { ora_session_mode => ORA_SYSDBA }); # no
> need to supply username and password
> my $sth = $dbh->prepare("alter session set nls_date_format = 'DD-MON-YYYY
> HH24:MI:SS'");
> $sth->execute();
> $sth = $dbh->prepare("select 'Today is ' || sysdate from dual union all
> select user from dual");
> $sth->execute();
> while (my ($sysdate) = $sth->fetchrow_array()) {
>    print $sysdate, "\n";
> }
> $sth->finish();
>
> 1.609
> Today is 11-FEB-2010 16:31:48
> SYS
> =====
>
>
> Jared Still
> Certifiable Oracle DBA and Part Time Perl Evangelist
> Oracle Blog: http://jkstill.blogspot.com
> Home Page: http://jaredstill.com
>
>
>