1

我必须对 oracle 查询执行词法分析，并将查询分成 perl 中的各个部分（基于子句）。例如，考虑：

Select deleteddate,deletedby from temptable where id = 10;

我需要打印

select : deleteddate , deletedby
from : temptable
where : id = 10

我使用了这个代码片段：

my $parser= SQL::Statement->new();
$parser->{PrinteError}=1;
my $query = SQL::Statement->new("select deleteddate,deletedby from temptable where id =10",$parser);

my @columns = $query->columns();

print $columns[0]->name();

虽然这会打印 deleteddate，但当我在 select 子句中给出子查询时会失败：

Select deleteddate,deletedby,(select 1+1 from dual) from temptable where id = 10;

你能指出我正确的方向吗？

谢谢。

4

1 回答 1

2

它看起来是该软件包的限制；它似乎是一个通用解析器，而不是可以理解高级功能（如子查询）或 Oracle 特定结构（如“来自双重”）的东西。

你的系统有什么限制？如果 python 是一个选项，它看起来这是一个功能更全面的库：

http://code.google.com/p/python-sqlparse/

如果可以的话，另一种选择是使用实际的 Oracle 数据库。你会：

  • 使用 DBI 和 DBD::Oracle 模块创建到 Oracle 的连接并获取数据库句柄，
  • 通过使用查询在数据库句柄上调用 prepare() 创建语句句柄，
  • 执行查询（Oracle 中可能有一个选项可以在“仅测试”或“仅解析”模式下执行），
  • 检查语句句柄（例如 NAMES_hash 属性）以获取列名。

否则，不幸的是，SQL::Statement 模块似乎无法胜任任务......

于 2012-10-30T07:05:09.027 回答