Give a look to http://aspn.activestate.com/ASPN/Reference/Products/ActivePerl/faq/ActivePerl-faq2.html
HTH, Jos�. -----Original Message----- From: Narayan, Raj [mailto:[EMAIL PROTECTED]] Sent: Tuesday, July 30, 2002 6:20 PM To: [EMAIL PROTECTED] Subject: RE:DBI MODULE FOR WINDOWS Hi Everybody / Anybody, Can some one tell me whether there is a DBI module available For ActiveState perl 5:0:06. I need to use DBI on WindowsNT Work station. The Database is Oracle8i. Thanks, Raj -----Original Message----- From: Jonathan Gines [mailto:[EMAIL PROTECTED]] Sent: Tuesday, July 30, 2002 11:20 AM To: Sundarraj, Senthil Kumar (Cognizant); [EMAIL PROTECTED] Subject: Re: Problem... I'll assume you can connect to Oracle although you should enclose your DBI->connect with "eval", but anyways have u also tried using DBI->trace() to "see" what is actually being fetched? place parens around @data and c if that makes a difference. just some thoughts, though it's been awhile since i've coded in perl you can also try just using fetchrow like: while ( (@data) = $rv->fetchrow() ) { print "@data\n"; } At 03:35 PM 7/30/02 +0530, Sundarraj, Senthil Kumar (Cognizant) wrote: >Hi All, > > I have a stored procedure as like this.. > procedure example > is > cursor html_cur > is > select a, b from html_bill ; > a varchar2(20); > b varchar2(20); > BEGIN > NULL; > END; > > The table html_bill contains 5 records. > > am using a perl script like below to invoke the stored procedure. > > use Oraperl; > my ($sth, $stmt,$SQL, $return); > $dbh= >DBI->connect('dbi:Oracle:host=hostname;sid=net','test','test'); > > $SQL = "BEGIN example; END;"; > $func= $dbh->prepare($SQL); > $rv = $func->execute; > print "No of rows = " . $func->rows() . "\n"; > while(@data=$func->fetchrow_array){ > print "@data\n"; > } > > if ( $@ ) { > warn " Execution of stored procedure failed: >$DBI::errstr\n"; > $dbh->rollback(); > } > print "Excution of stored procedure returned $rv\n"; > $dbh->disconnect(); > > It says Number of rows as 1 and am not able to fetch the selected >rows(it says some error). > >Any idea how to manipulate the selected rows. > >Senthil Kumar >3rd Floor,27,Whites Rd >ph # 044 - 8529917/8526917 x : 3791 > **** DISCLAIMER **** "This e-mail and any attachment thereto may contain information which is confidential and/or protected by intellectual property rights and are intended for the sole use of the recipient(s) named above. Any use of the information contained herein (including, but not limited to, total or partial reproduction, communication or distribution in any form) by other persons than the designated recipient(s) is prohibited. If you have received this e-mail in error, please notify the sender either by telephone or by e-mail and delete the material from any computer". Thank you for your cooperation. For further information about Proximus mobile phone services please see our website at http://www.proximus.be or refer to any Proximus agent.
