examples/sqla-format

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Getopt::Long;
   7 my $p = Getopt::Long::Parser->new(config => [qw( gnu_getopt no_ignore_case )]);
   8 my $opts = { profile => 'console', help => \&showhelp };
   9 $p->getoptions( $opts, qw(
  10   profile|p=s
  11   help|h
  12 )) or showhelp();
  13
  14 sub showhelp {
  15   require Pod::Usage;
  16   Pod::Usage::pod2usage( -verbose => 0, -exitval => 2 );
  17 }
  18
  19 require SQL::Abstract::Tree;
  20 my $sqlat = SQL::Abstract::Tree->new({ profile => $opts->{profile}, fill_in_placeholders => 0 });
  21
  22 my $chunk = '';
  23 my $leftover = '';
  24 do {
  25   $chunk = $leftover . $chunk if length $leftover;
  26
  27   if ($chunk =~ / \A (.+?) (?:
  28     (?<=\S)\:\s+\'[^\n]+  # pasting DBIC_TRACE output directly
  29       |
  30     \;(?: \s | \z)
  31       |
  32     \z
  33       |
  34     ^ \s* (?=SELECT|INSERT|UPDATE|DELETE)
  35   ) (.*) /smix) {
  36
  37     $leftover = $2;
  38     print $sqlat->format($1);
  39     print "\n";
  40   }
  41   else {
  42     $leftover = $chunk;
  43   }
  44 } while ( (read *STDIN, $chunk, 4096) or length $leftover );
  45
  46 =head1 NAME
  47
  48 sqla-format - An intelligent SQL formatter
  49
  50 =head1 SYNOPSIS
  51
  52  ~$ sqla-format << log.sql
  53
  54  ~$ myprogram -v | sqla-format -p html > sqltrace.html
  55
  56 =head1 COPYRIGHT AND LICENSE
  57
  58 This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt.
  59
  60 This is free software; you can redistribute it and/or modify it under
  61 the same terms as the Perl 5 programming language system itself.