Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

How to catch SQL::Parser errors in Perl

by som.nitk (Novice)
on May 15, 2013 at 10:55 UTC ( [id://1033662]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    uPdate scott.emp 
    set ename='SCT%',emp_date=TO_DATE('04/16/2011 00:00:00', 'MM/DD/YYYY H
    +H24:MI:SS'),empno='15645' 
    WHERE dept=20 and ename IN(select ename from emp where empno='1111');
    
  2. or download this
    Incomplete SET clause! at ./post_audit.pl line 173
    Incomplete SET clause! at ./post_audit.pl line 173
    
  3. or download this
       +12  use SQL::Parser;
    
    ...
    
      +172      my $parser = SQL::Parser->new('AnyData', {RaiseError=>1} )
    +;
      +173      $parser->parse($statement);
    
  4. or download this
    sub SET_CLAUSE_LIST
    {
    ...
        return undef unless ( $self->LITERAL_LIST( join ',', @vals ) );
        return 1;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://1033662]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (3)
As of 2024-04-16 23:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found