Hi Jai,
A similar question was posted just yesterday. The
difference between between the two lines (37 and 57)
is that the second line contains a space after "\n".
As pointed earlier, you can take take it as a
debugging option (ie remove \n or add a space and perl
prints out the line no. too)
:-)
Alok Bhatt
--- Jayakumar Rajagopal <[EMAIL PROTECTED]>
wrote:
> Hi,
> In my program , $sth->execute fails since
> oracle tables already present. It is very natural.
> But the waring message output line 37 is
> different(just behaves as print) from same kind of
> message at line 57. Any suggestions please..
> regards,
> Jay
>
> regression Testing table( default : reg_test_cols)
> name :
> Not able to create reg_test_cols
> <?????? ***** this output is not similar as line 57
> *** >
> discrepancy report table ( default : disc_table)
> name :
> Not able to create disc_table
> at /tmp/selfextract.XXXXXX/install line 57, <>
> chunk 5.
>
> 26 $query=qq { create table reg_test_cols
> 27 ( tabname varchar2(40),
> 28 colname varchar2(40),
> 29 iskey varchar2(1),
> 30 tocomp varchar2(1),
> 31 primary key
> (tabname,colname) )
> 32 };
> 33
> 34 $sth=$dbh->prepare($query)|| warn "
> $DBI::errstr \n";
> 35 unless ($sth->execute() )
> 36 {
> 37 warn " Not able to create
> reg_test_cols \n" ;
> 38 }
> 39 else
> 40 {
> 41 print " Successfully created table
> reg_test_cols \n";
> 42 }
> 43
> 44
> 45
> 46 $query=qq { create table disc_table
> 47 ( tabname varchar2(40),
> 48 querycols varchar2(2000),
> 49 cond varchar2(2000),
> 50 rerun varchar2(1),
> 51 seq number(4),
> 52 primary key
> (tabname,cond,seq) )
> 53 };
> 54 $sth=$dbh->prepare($query) || warn "
> $DBI::errstr\n ";
> 55 unless ($sth->execute() )
> 56 {
> 57 warn " Not able to create
> disc_table\n " ;
> 58 }
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> <http://learn.perl.org/>
> <http://learn.perl.org/first-response>
>
>
__________________________________
Do you Yahoo!?
Yahoo! Finance Tax Center - File online. File on time.
http://taxes.yahoo.com/filing.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
