Can't use OR in an ON clause! at C:/Dwimperl/perl/site/lib/SQL/Statement.pm line 88

[mishin]

Can't use OR in an ON clause! at C:/Dwimperl/perl/site/lib/SQL/Statement.pm line 88

[rehsack]

This should be fixed with #13

[mishin]

solution for this

use Modern::Perl;
my $sql1 = " SELECT CL.SHRT_NM, RT.EFF_DT, RT.EXG_RATE_VAL 

FROM HTF13.CL CL, HTF13.EXG_RATE_HIST RT 

WHERE RT.FRST_CCY_ID = 751 and RT.CCY_ID = CL.GRP_CL_ID and CL.CL_SCM_ID = 61 and RT.EFF_DT >= '01.08.2005' and (CL.END_DT = '31.12.9999' or CL.CL_ID =1004)";
my $sql2 = " SELECT AR.* 

FROM 

HTF13.AR AR LEFT OUTER JOIN HTF13.AR_X_AGN_REESTR_1 

ON 

HTF13.AR_X_AGN_REESTR_1.CST_AR_ID = AR.AR_ID OR 

HTF13.AR_X_AGN_REESTR_1.CST_SUB_AR_ID = AR.AR_ID  

WHERE 

AR.AR_PPS_TP_ID = 1527 AND 

AR.AR_TP_ID <> 1467 AND 

HTF13.AR_X_AGN_REESTR_1.CST_AR_ID IS NULL 
"
  ;

use SQL::Statement;
use Test::Warn;
use Test::More;


sub get_tables {
    my ($sql, $parser) = @_;
    my $stmt = SQL::Statement->new($sql, $parser);
    return map { uc $_->name } $stmt->tables();
}

for my $sql ($sql1, $sql2) {
    &process_sql($sql);
}

sub process_sql {
    my ($sql) = @_;

    my $parser = SQL::Parser->new();
    $parser->{RaiseError} = 1;
    $parser->{PrintError} = 1;
    my $msg_err_or  = q{Can't use OR in an ON clause!};
    my $msg_err_ref = q{referenced but not found in FROM list};


    my @tables = ();
    my $ret    = warnings_like {
        eval { @tables = get_tables($sql, $parser); };
    }
    [qr/$msg_err_or/i], "warnings: $msg_err_or";

    if ($ret) {    #change OR на END
        $sql =~ s/OR/AND/xmg;
        my $ret2 = warnings_like {
            eval { @tables = get_tables($sql, $parser); };
        }
        [qr/$msg_err_ref/i], "warnings: $msg_err_ref";
        if ($ret2) {

            use SQL::Tokenizer qw(tokenize_sql);
            my $remove_white_tokens = 1;
            my @tokens = SQL::Tokenizer->tokenize($sql, $remove_white_tokens);

            for my $i (0 .. $#tokens) {
                if (($tokens[$i] eq 'FROM') or ($tokens[$i] eq 'JOIN')) {
                    push @tables, $tokens[$i + 1];
                }
            }

        }
    }
    say join ',', @tables;
}


done_testing();

[mishin]

can you add this solution to a module?
it's very tricky for me