清理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

不是腳本。但我現在不想編碼任何東西。

對於像這樣的東西在任何語言尋找格式化程序或單詞'漂亮'預構建垃圾。

Answer 3

我還沒有嘗試過任一種，但CPAN有SQL::Beautify和SQL::QueryBuilder::Pretty。