print "\nThis program reformats scripts produced by SQL Server 2000 Enterprise Manager\n";
print "to remove brackets and tab out data types and null settings.\n\n";
print "You provide a file name, this program reads it and produces a new file\n";
print "with a .out extension.\n\n";
print "File name to process? (<enter> to end program.) ";

chomp($sqlfile = <stdin>);

$outfile = $sqlfile . ".out";

open(IN,  $sqlfile)    || die "cannot open $sqlfile for input: $!";
open(OUT, ">$outfile") || die "cannot open $outfile for output: $!";

while (<IN>) {	
  #remove square brackets  
  s/(\[|\])//g;	

  #remove whitespace before round brackets...
  s/\s+((\(|\)))/$1/g;

  #...and commas
  s/\s+,/,/g;

  #remove some keywords
  s/COLLATE SQL_Latin1_General_CP1_CI_AS//g;
  s/ON PRIMARY//g;	

  #remove duplicate whitespace
  s/\s+(\s)/$1/g;

  #THE MOST INTERESTING PART:
  #For lines not starting with non-whitespace (should hopefully be 
  #the case only for the first line, otherwise you have to track
  #the line number lest you analyze keywords):
  #replace (single) whitespace character before word by three 
  #tabs in case the following expression is neither "NULL"   
  #nor "NOT NULL"
  s/\s+(?!(?:NOT )?NULL)([a-zA-Z]\w*)/\t\t\t$1/g if !/^\S/;

  print;
  print OUT;
}

END {
  close OUT || die "problem closing new $outfile: $!";
  close IN  || die "problem closing original $sqlfile: $!";
}