单独的SQL查询语句/子句

Question

我正在做一些Perl程序。我想知道是否存在某种算法或任何分隔SQL查询语句/子句的方法。

示例1：

SELECT * FROM table1 WHERE col1>0;

输出1：

my %query = (
    "SELECT" => "*",
    "FROM" => "table1",
    "WHERE" => "col1>0"
);

请注意，输出不必是哈希。只要它们可以分开，它就可以是一个数组或其他东西。