What happens if you do this instead:
$GET_ARU_FAILURES = <<"EOU";
(yes, the equal sign is missing).
And, you're not doing any interpolation in the here-doc, so you might as
well write:
$GET_ARU_FAILURES = <<'EOU';
and save yourself from writing those "\" over and over again.
Hope this helps
Tobias
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of ashish srivastava
> Sent: Friday, July 18, 2003 8:40 AM
> To: [EMAIL PROTECTED]
> Subject: DBI errors
>
>
> Hi,
>
> I am writing a simple query which is failing:
> The query and the error is :
> QUERY
> =====
> use DBI;
>
> $dbh = DBI->connect('DBI:Oracle:reldb','rnd','welcome')
> or die "Couldn't connect to Local database: " .
> DBI->errstr;
>
> $GET_ARU_FAILURES << "EOU";
> SELECT
> b.product_abbreviation,a.bug_number,e.status,f.release_name,c.
> platform_short_name,d.description
> FROM [EMAIL PROTECTED] a, [EMAIL PROTECTED]
> b,[EMAIL PROTECTED] c, [EMAIL PROTECTED] d, [EMAIL PROTECTED]
> e,[EMAIL PROTECTED] f
> WHERE b.product_id=a.product_id
> and a.product_id in (SELECT product_id from
> [EMAIL PROTECTED]
> where product_abbreviation like ?)
> and a.status_id in (55,62)
> and c.platform_id=a.platform_id
> and d.status_id=a.status_id
> and e.rptno=a.bug_number
> and f.release_id=a.release_id
> ORDER by b.product_abbreviation
>
> EOU
>
> $vget_aru_failures = $dbh->prepare_cached($GET_ARU_FAILURES)
> or die "Couldnt prepare query ". DBI->errstr;
> .
> .
> .
> .
> .
>
>
>
>
> ERROR
> ====
> Backslash found where operator expected at Noname1.pl line 10, near
> "aru_bugfix_requests\"
> Backslash found where operator expected at Noname1.pl line 10, near
> "@arudb\"
> (Missing operator before \?)
> Bareword found where operator expected at Noname1.pl line 10,
> near "%20a"
> (Missing operator before a?)
> Backslash found where operator expected at Noname1.pl line 10, near
> "aru_products\"
> Bareword found where operator expected at Noname1.pl line 10,
> near "@arudb
> b"
> (Missing operator before b?)
> Backslash found where operator expected at Noname1.pl line 10, near
> "aru_platforms\"
> Bareword found where operator expected at Noname1.pl line 10,
> near "@arudb
> c"
> (Missing operator before c?)
> Backslash found where operator expected at Noname1.pl line 10, near
> "aru_status_codes\"
> Bareword found where operator expected at Noname1.pl line 10,
> near "@arudb
> d"
> (Missing operator before d?)
> Backslash found where operator expected at Noname1.pl line 10, near
> "rpthead\"
> Bareword found where operator expected at Noname1.pl line 10,
> near "@bugdb
> e"
> (Missing operator before e?)
> Backslash found where operator expected at Noname1.pl line 10, near
> "aru_releases\"
> Bareword found where operator expected at Noname1.pl line 10,
> near "@arudb
> f"
> (Missing operator before f?)
> Bareword found where operator expected at Noname1.pl line 12,
> near "@arudb
> where"
> (Missing operator before where?)
> syntax error at Noname1.pl line 10, near
> "aru_bugfix_requests\" Execution of Noname1.pl aborted due to
> compilation errors.
>
> _________________________________________________________________
> It's new, it's here! It's full of fun!
> http://server1.msn.co.in/sp03/messengerpromo/index.asp MSN
> Messenger V6.0
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
