From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

OALDERS / WebService-SQLFormat-0.000007 / script / sql-webformat 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

              
#!/usr/bin/env perl
use strict;
use warnings;
use WebService::SQLFormat;
my $formatter = WebService::SQLFormat->new(
    identifier_case => 'upper',
    reindent        => 1,
);
my $in;
while (<STDIN>) {
    $in .= $_;
}
$in ||= shift @ARGV;
die 'No SQL found' unless $in;
print $formatter->format_sql($in);
# PODNAME: sql-webformat