| Subject: | Problem with '\' |
Sorry for my bad English
I found Problem with '\', for example
input string " begin buf := replace(asciistr(buf), '\', '\u'); end;"
output string " begin buf := replace(asciistr(buf), '\', 'u); end;"
with follow code:
my $g_splitter = SQL::SplitStatement->new();
my $l_sql_stm = q{
begin buf := replace(asciistr(buf), '\', '\u'); end;
/
};
my @l_statements = $g_splitter->split($l_sql_stm);
print $l_statements[0];
more examples in attachment "mini_exaple_for_developper.tgz"
Environment:
perl -v
This is perl 5, version 18, subversion 2 (v5.18.2) built for i686-linux
| Subject: | mini_exaple_for_developper.tgz |
Message body not shown because it is not plain text.