1 |
# Dobrica Pavlinusic, <dpavlin@rot13.org> 02/16/07 21:42:21 CET |
2 |
|
3 |
use strict; |
4 |
use warnings; |
5 |
|
6 |
package SQLSession::Utils; |
7 |
use Exporter qw/import/; |
8 |
our @EXPORT_OK = qw( |
9 |
reformat_sql |
10 |
); |
11 |
|
12 |
=head2 reformat_sql |
13 |
|
14 |
Pretty-print (but still plain ASCII) SQL statement; |
15 |
|
16 |
print $self->reformat_sql( $sql ); |
17 |
|
18 |
=cut |
19 |
|
20 |
sub reformat_sql { |
21 |
my $self = shift; |
22 |
|
23 |
my $sql = shift || return; |
24 |
|
25 |
warn "<<<< original SQL:\t$sql"; |
26 |
|
27 |
sub sql_uc { |
28 |
my ($prefix,$sql,$suff) = @_; |
29 |
return uc($sql).$suff if (! $prefix || $prefix eq ''); |
30 |
return "\n" . uc($sql) . $suff; |
31 |
} |
32 |
|
33 |
$sql =~ s/(\s*)(select|from|inner\s+join|order\s+by|where|group\s+by|having|limit|offset)(\s+)/sql_uc($1,$2,$3)/egis; |
34 |
|
35 |
warn ">>>> canonicalize SQL:\n$sql"; |
36 |
|
37 |
return $sql; |
38 |
} |
39 |
|
40 |
1; |