utils/mssql_psql_conversion.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 while (<>) {
   7     s/\[([^]]+)\]/"$1"/g;
   8     s/^\s*GO\s*$/;/;
   9     s/tinyint/smallint/;
  10     s/binary(?:\s*\([^)]+\))?/bytea/ig;
  11     s/smalldatetime/TIMESTAMP/ig;
  12     s/DATETIME/TIMESTAMP/ig;
  13     s/(?:NON)?CLUSTERED//g;
  14     s/int\s*IDENTITY\s*\(\d+,\s*\d+\)/SERIAL/ig;
  15     # mssql uses stupid names for indexes apparently; ditch them and
  16     # let pgsql choose
  17     s/(CREATE\s+(?:UNIQUE\s+)?INDEX\s+)\S+\s+(ON\s+)/$1$2/gi;
  18     print $_;
  19 }