division: regex d'ignorer l'intérieur délimiteurs entre parenthèses équilibrée

Question

J'ai ORDER BY partie de la déclaration et je dois le diviser au niveau des parties logiques

my $sql_part = <<EOH 
    IF(some_table.some_field <> 3, 1, 0), 
    some_table.other_field, 
    CASE other_table.third_field WHEN IS NULL THEN 2 ELSE 1 END, 
    other_table.third_field 
EOH 

et, vous le savez, chaîne d'origine ne contient pas des sauts de ligne et les IF peuvent être imbriqués. Le problème est que je ne veux pas diviser le contenu à l'intérieur des IF imbriqués, appels de fonction.

Si simple split /\s*,\s*/, $sql_part ne fonctionnera pas.

Existe-t-il une regex qui peut faire cela, ou devrais-je le faire différemment?

Answer 1

Il y a une expression régulière, mais vous voulez probablement utiliser juste un parseur SQL: SQL::Statement