Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^2: Error "'exists ^0^' has chars not alphanumeric or underscore in perl"

by choroba (Canon)
on Jan 25, 2013 at 09:05 UTC ( #1015290=note: print w/ replies, xml ) Need Help??


in reply to Re: Error "'exists ^0^' has chars not alphanumeric or underscore in perl"
in thread Error "'exists ^0^' has chars not alphanumeric or underscore in perl"

I am getting the same error when trying to parse the SQL with SQL::Parser. However, it work with DBD::SQLite, for example:

#!/usr/bin/perl use warnings; use strict; use DBI; use DBD::SQLite; my $sql = DBI->connect('dbi:SQLite:dbname=1.db', q(), q()); $sql->do('create table TABLENAME (type varchar, name varchar)') +; $sql->do(q(insert into TABLENAME values ('MASTER', 'm1'))); $sql->do(q(insert into TABLENAME values ('MASTER', 'Data1'))); $sql->do(q(insert into TABLENAME values ('SLAVE', 's1'))); my $sth = $sql->prepare(q(select T.Name from TABLENAME T where T.Type = 'MASTER' and not exists (select 1 from TABLENAME +T2 where T2.Name = T.Name and T2.Name like 'Da +ta%'))); $sth->execute; my $aref = $sth->fetchall_arrayref; print "@$_\n" for @$aref;
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ


Comment on Re^2: Error "'exists ^0^' has chars not alphanumeric or underscore in perl"
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1015290]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2015-07-07 01:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (86 votes), past polls