Очистка CREATE TABLE расположение колонок

Question

У меня есть ряд SQL скриптов, которые выглядят следующим образом:

CREATE TABLE table_one 
(
    column_one   int not null, 
    column_two varchar(100)    not null, 
    column_three_four_five int, 
    column_six decimal(16,4) null, 
    PRIMARY KEY (column_one, column_three_four_five) 
); 

Я хотел бы, чтобы очистить расположение, чтобы легче сканировать, что-то вроде этого:

CREATE TABLE table_one 
(
    column_one    int   not null, 
    column_two    varchar(100) not null, 
    column_three_four_five int, 
    column_six    decimal(16,4)  null, 
    PRIMARY KEY 
    (
     column_one, 
     column_three_four_five 
    ) 
); 

Точная компоновка менее важна, чем возможность создания чистого внешнего вида для улучшения удобочитаемости. (читайте: пожалуйста, не пламените само форматирование) -grin-

Что было бы хорошим способом сценария (я смотрю на вас, боги Perl ...)?

Answer 1

Hmmmmm ну не могу сказать, что это будет работать для всех ваших файлов, но что-то, как это будет делать эту работу ...

#!/usr/bin/perl 
use strict; 
use warnings; 

my $default_padding = 30; 
my $my_file = 'data.sql'; 
my $my_new_file = 'data_new.sql'; 

open (my $fh, '<', $my_file) or die $!; 
my @sql = <$fh>; 
close($fh); 

open (my $fhsave, '>>', $my_new_file) or die $!; 
foreach my $line (@sql) { 
    print $fhsave "$line" if ($line !~ /^\s+/); 
    $line =~ s/\s+/ /ig; 
    print $fhsave sprintf(" %-*s %s\n", $default_padding, $1, $2) if ($line =~ /^\s+(.+?)\s+(.+)/); 
} 
close ($fhsave); 

образец файла data.sql

CREATE TABLE table_one 
(
    column_one   int not null, 
    column_two varchar(100)    not null, 
    column_three_four_five int, 
    column_six decimal(16,4) null 
); 

выход:

CREATE TABLE table_one 
(
    column_one      int not null, 
    column_two      varchar(100) not null, 
    column_three_four_five   int, 
    column_six      decimal(16,4) null 
); 

Answer 2

http://www.dpriver.com/pp/sqlformat.htm

Не сценарий. Но я не хочу ничего кодировать прямо сейчас.

Для таких вещей, как это на любом языке, найдите formatters или слово «pretty» для готового мусора.

Answer 3

Я не пробовал ни одного, но CPAN имеет SQL::Beautify и SQL::QueryBuilder::Pretty.