From 890bbf27701a401b2dccb8142048b7b26bb427c9 Mon Sep 17 00:00:00 2001 From: Bruce Momjian Date: Sat, 10 Feb 2001 11:43:12 +0000 Subject: [PATCH] Add other mysql conversion utility for comparisons. --- contrib/mysql/my2pg.pl | 820 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 820 insertions(+) create mode 100755 contrib/mysql/my2pg.pl diff --git a/contrib/mysql/my2pg.pl b/contrib/mysql/my2pg.pl new file mode 100755 index 0000000000..f0976df0ed --- /dev/null +++ b/contrib/mysql/my2pg.pl @@ -0,0 +1,820 @@ +#!/usr/bin/perl5 + +# +# My2Pg: MySQL to PostgreSQL dump conversion utility +# +# (c) 2000,2001 Maxim Rudensky +# (c) 2000 Valentine Danilchuk +# All right reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# 3. All advertising materials mentioning features or use of this software +# must display the following acknowledgement: +# This product includes software developed by the Max Rudensky +# and its contributors. +# 4. Neither the name of the author nor the names of its contributors +# may be used to endorse or promote products derived from this software +# without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# $Id: my2pg.pl,v 1.1 2001/02/10 11:43:12 momjian Exp $ + +# TODO: +# + Handle SETs +# - LIKE implementation +# - memory use optimisation in SET_output function +# - raw integer values as input values must be OK +# - Use autoconf & automake to auto-build makefiles + +# +# $Log: my2pg.pl,v $ +# Revision 1.1 2001/02/10 11:43:12 momjian +# Add other mysql conversion utility for comparisons. +# +# Revision 1.15 2001/01/30 10:13:36 fonin +# Re-released under BSD-like license. +# +# Revision 1.14 2000/12/18 20:55:13 fonin +# Better -n implementation. +# +# Revision 1.13 2000/12/18 15:26:33 fonin +# Added command-line options. -n forces *CHAR DEFAULT '' NOT NULL to be converted to *CHAR NULL.\nAUTO_INCREMENT fields converted not in SERIAL but in INT* NOT NULL DEFAULT nextval('seqname').\nDocumentation refreshed.\nDump enclosed in single transaction from now. +# +# Revision 1.12 2000/12/14 20:57:15 fonin +# Doublequotation bug fixed (in CREATE INDEX ON TABLE (field1,field2)) +# +# Revision 1.10 2000/11/27 14:18:22 fonin +# Fixed bug - occasionaly was broken CREATE SEQUENCE generation +# +# Revision 1.8 2000/11/24 15:24:16 fonin +# TIMESTAMP fix: MySQL output YYYYMMDDmmhhss to YYYYMMDD mmhhss +# +# Revision 1.7 2000/11/22 23:04:41 fonin +# TIMESTAMP field fix. Better doublequoting. Splitting output dump +# into 2 transactions - create/load/indexing first, sequence setvals then. +# Added POD documentation. +# +# + +use Getopt::Std; + +my %opts; # command line options +my $chareg=''; # CHAR conversion regexps + +# parse command line +getopts('nh',\%opts); + +# output syntax +if($opts{h} ne '') { + usage(); + exit; +} + +# convert CHAR types from NOT NULL DEFAULT '' to NULL +if($opts{n} ne '') { + $chareg='\s*?(default\s*?\'\')*?\s*?not\s*?null'; +} + + +$|=1; + +print("------------------------------------------------------------------"); +print("\n-- My2Pg \$Revision: 1.1 $ \translated dump"); +print("\n--"); +print("\n------------------------------------------------------------------"); + +print("\n\nBEGIN;\n\n\n"); + +my %index; # contains array of CREATE INDEX for each table +my %seq; # contains CREATE SEQUENCE for each table +my %primary; # contains primary (eg SERIAL) fields for each table +my %identifier; # contains generated by this program identifiers +my $j=-1; # current position in $index{table} +my @check; # CHECK constraint for current + +# generating full path to libtypes.c +my $libtypesource='libtypes.c'; +my $libtypename=`pwd`; +chomp($libtypename); +$libtypename.='/libtypes.so'; + +# push header to libtypes.c +open(LIBTYPES,">$libtypesource"); +print LIBTYPES "/******************************************************"; +print LIBTYPES "\n * My2Pg \$Revision: 1.1 $ \translated dump"; +print LIBTYPES "\n * User types definitions"; +print LIBTYPES "\n ******************************************************/"; +print LIBTYPES "\n\n#include \n"; +print LIBTYPES "\n#define ADD_COMMA if(strcmp(result,\"\")!=0) strcat(result,\",\")\n"; + +# reading STDIN... +while (<>) { + +# Comments start with -- in SQL + if(!/insert into.*\(.*#.*\)/i) { + s/#/--/; + } +# Convert numeric types + s/tinyint\(\d+\)/INT2/i; + s/smallint\(\d+\)/INT2/i; + s/mediumint\(\d+\)/INT4/i; + s/bigint\(\d+\)/INT8/i; + s/int\(\d+\)/INT4/i; + s/float(\(\d+,\d*\))/DECIMAL$1/i; + s/double precision/FLOAT8/i; + s/([\W])double(\(\d+,\d*\))/$1DECIMAL$2/i; + s/([\W])double[\W]/$1FLOAT8/i; + s/([\W])real[\W]/$1FLOAT8/i; + s/([\W])real(\(\d+,\d*\))/$1DECIMAL$2/i; + +# Convert string types + s/\w*blob$chareg/text/i; + s/mediumtext$chareg/text/i; + s/tinytext$chareg/text/i; + s/(.*?char\(.*?\))$chareg/$1/i; + +# Convert DATE types + s/datetime/TIMESTAMP/; + s/timestamp\(\d+\)/TIMESTAMP/i; + +# Change all AUTO_INCREMENT fields to SERIAL ones with a pre-defined sequence + if(/([\w\d]+)\sint.*auto_increment/i) { + $tmpseq=new_name("$table_name"."_"."$+"."_SEQ",28); + $seq{$table_name}=$tmpseq; + $primary{$table_name}=$+; + s/(int.*?)DEFAULT\s*?'.*?'(.*?)AUTO_INCREMENT/$1$2DEFAULT nextval\('$tmpseq'\)/i; + } + +# Fix timestamps + s/0000-00-00/0001-01-01/g; +# may work wrong !!! + s/00000000000000/00010101000000/g; + s/(\d{8})(\d{6})/'$1 $2'/g; + +# --------------------------------------------------- + +# convert UNSIGNED to CHECK constraints + if(/^\s+?([\w\d_]+).*?unsigned/i) { + $check.=",\n CHECK (\"$1\">=0)"; + } + s/unsigned//i; + +# Limited ENUM support - little heuristic + s/enum\('N','Y'\)/BOOL/i; + s/enum\('Y','N'\)/BOOL/i; +# ENUM support + if(/^\s+?([\w\d_]+).*?enum\((.*?)\)/i) { + my $enumlist=$2; + my @item; + $item[0]=''; + while($enumlist=~s/'([\d\w_]+)'//i) { + $item[++$#item]=$1; + } +# forming identifier name + $typename=new_name('enum_'.$table_name.'_'.$item[1],28); +# $typename=lc('enum_'.$table_name.'_'.$item[1]); +# creating input type function + my $func_in=" +int2* $typename"."_in (char *str) { + int2* result; + + if(str==NULL) + return NULL; + + result=(int2*)palloc(sizeof(int2)); + *result=-1;"; + for(my $i=0;$i<=$#item;$i++) { + $func_in.=" + if(strcmp(str,\"$item[$i]\")==0) { + *result=$i; + }"; + } + $func_in.=" + if(*result == -1) { + elog(ERROR,\"$typename"."_in: incorrect input value\"); + return NULL; + } + return (result); +}\n"; + $types.="\n---"; + $types.="\n--- Types for table ".uc($table_name); + $types.="\n---\n"; + print LIBTYPES "\n/*"; + print LIBTYPES "\n * Types for table ".uc($table_name); + print LIBTYPES "\n */\n"; + + $types.="\nCREATE FUNCTION $typename"."_in (opaque) + RETURNS $typename + AS '$libtypename' + LANGUAGE 'c' + WITH (ISCACHABLE);\n"; + +# creating output function + my $func_out=" +char* $typename"."_out (int2 *outvalue) { + char* result; + + if(outvalue==NULL) + return NULL; + + result=(char*)palloc(10); + switch (*outvalue) {"; + for(my $i=0;$i<=$#item;$i++) { + $func_out.=" + case $i: + strcpy(result,\"$item[$i]\"); + break;"; + } + $func_out.=" + default : + elog(ERROR,\"$typename"."_out: incorrect stored value\"); + return NULL; + break; + } + return result; +}\n"; + $func_out.="\nbool $typename"."_eq(int2* a, int2* b) { + return (*a==*b); +} + +bool $typename"."_ne(int2* a, int2* b) { + return (*a!=*b); +} + +bool $typename"."_lt(int2* a, int2* b) { + return (*a<*b); +} + +bool $typename"."_le(int2* a, int2* b) { + return (*a<=*b); +} + +bool $typename"."_gt(int2* a, int2* b) { + return (*a>*b); +} + +bool $typename"."_ge(int2* a, int2* b) { + return (*a>=*b); +}\n"; + + $types.="\nCREATE FUNCTION $typename"."_out (opaque) + RETURNS opaque + AS '$libtypename' + LANGUAGE 'c' + WITH (ISCACHABLE);\n"; + + $types.="\nCREATE TYPE $typename ( + internallength = 2, + input = $typename\_in, + output = $typename\_out +);\n"; + + $types.="\nCREATE FUNCTION $typename"."_eq ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE FUNCTION $typename"."_lt ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE FUNCTION $typename"."_le ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE FUNCTION $typename"."_gt ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE FUNCTION $typename"."_ge ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE FUNCTION $typename"."_ne ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE OPERATOR < ( + leftarg = $typename, + rightarg = $typename, +-- negator = >=, + procedure = $typename"."_lt +); + +CREATE OPERATOR <= ( + leftarg = $typename, + rightarg = $typename, +-- negator = >, + procedure = $typename"."_le +); + +CREATE OPERATOR = ( + leftarg = $typename, + rightarg = $typename, + commutator = =, +-- negator = <>, + procedure = $typename"."_eq +); + +CREATE OPERATOR >= ( + leftarg = $typename, + rightarg = $typename, + negator = <, + procedure = $typename"."_ge +); + +CREATE OPERATOR > ( + leftarg = $typename, + rightarg = $typename, + negator = <=, + procedure = $typename"."_gt +); + +CREATE OPERATOR <> ( + leftarg = $typename, + rightarg = $typename, + negator = =, + procedure = $typename"."_ne +);\n"; + + print LIBTYPES $func_in; + print LIBTYPES $func_out; + s/enum\(.*?\)/$typename/i; + } + +# SET support + if(/^\s+?([\w\d_]+).*?set\((.*?)\)/i) { + my $setlist=$2; + my @item; + $item[0]=''; + my $maxlen=0; # maximal string length + while($setlist=~s/'([\d\w_]+)'//i) { + $item[++$#item]=$1; + $maxlen+=length($item[$#item])+1; + } + $maxlen+=1; + my $typesize=int($#item/8); + if($typesize<2) { + $typesize=2; + } + $internalsize=$typesize; + $typesize='int'.$typesize; +# $typename=lc('set_'.$table_name.'_'.$item[1]); + $typename=new_name('set_'.$table_name.'_'.$item[1],28); +# creating input type function + my $func_in=" +$typesize* $typename"."_in (char *str) { + $typesize* result; + char* token; + + if(str==NULL) + return NULL; + + result=($typesize*)palloc(sizeof($typesize)); + *result=0; + if(strcmp(str,\"\")==0) + return result; + for(token=strtok(str,\",\");token!=NULL;token=strtok(NULL,\",\")) {"; + for(my $i=0,my $j=1;$i<=$#item;$i++,$j*=2) { + $func_in.=" + if(strcmp(token,\"$item[$i]\")==0) { + *result|=$j; + continue; + }"; + } + $func_in.=" + } + + if(*result == 0) { + elog(ERROR,\"$typename"."_in: incorrect input value\"); + return NULL; + } + return (result); + +}\n"; + $types.="\n---"; + $types.="\n--- Types for table ".uc($table_name); + $types.="\n---\n"; + print LIBTYPES "\n/*"; + print LIBTYPES "\n * Types for table ".uc($table_name); + print LIBTYPES "\n */\n"; + + $types.="\nCREATE FUNCTION $typename"."_in (opaque) + RETURNS $typename + AS '$libtypename' + LANGUAGE 'c';\n"; + +# creating output function + my $func_out=" +char* $typename"."_out ($typesize *outvalue) { + char* result; + int i; + + if(outvalue==NULL) + return NULL; + + result=(char*)palloc($maxlen); + strcpy(result,\"\"); + for(i=1;i<=2 << (sizeof(int2)*8);i*=2) { + switch (*outvalue & i) {"; + for(my $i=0,$j=1;$i<=$#item;$i++,$j*=2) { + $func_out.=" + case $j:"; + if($item[$i] ne '') { + $func_out.="ADD_COMMA;"; + } + $func_out.="strcat(result,\"$item[$i]\"); + break;"; + } + $func_out.=" + default : + break; + } + } + + return result; +}\n"; + $func_out.="\nbool $typename"."_eq($typesize* a, $typesize* b) { + return (*a==*b); +} + +$typesize find_in_set($typesize *a, $typesize *b) { + int i; + + for(i=1;i<=sizeof($typesize)*8;i*=2) { + if(*a & *b) { + return 1; + } + } + return 0; +} + +\n"; + + $types.="\nCREATE FUNCTION $typename"."_out (opaque) + RETURNS opaque + AS '$libtypename' + LANGUAGE 'c';\n"; + + $types.="\nCREATE TYPE $typename ( + internallength = $internalsize, + input = $typename\_in, + output = $typename\_out +);\n"; + + $types.="\nCREATE FUNCTION $typename"."_eq ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE FUNCTION find_in_set ($typename,$typename) + RETURNS bool + AS '$libtypename' + LANGUAGE 'c'; + +CREATE OPERATOR = ( + leftarg = $typename, + rightarg = $typename, + commutator = =, + procedure = $typename"."_eq +); + +CREATE OPERATOR <> ( + leftarg = $typename, + rightarg = $typename, + commutator = <>, + negator = =, + procedure = $typename"."_eq +); + +\n"; + + print LIBTYPES $func_in; + print LIBTYPES $func_out; + s/set\(.*?\)/$typename/i; + } + +# Change multy-field keys to multi-field indices +# MySQL Dump usually ends the CREATE TABLE statement like this: +# CREATE TABLE bids ( +# ... +# PRIMARY KEY (bids_id), +# KEY offer_id (offer_id,user_id,the_time), +# KEY bid_value (bid_value) +# ); +# We want to replace this with smth like +# CREATE TABLE bids ( +# ... +# PRIMARY KEY (bids_id), +# ); +# CREATE INDEX offer_id ON bids (offer_id,user_id,the_time); +# CREATE INDEX bid_value ON bids (bid_value); + if (s/CREATE TABLE (.*) /CREATE TABLE "$1" /i) { + if($oldtable ne $table_name) { + $oldtable=$table_name; + $j=-1; + $check=''; + print $types; + $types=''; + $dump=~s/,\n\);/\n\);/gmi; + print $dump; + $dump=''; + } + $table_name=$1; + } + +# output CHECK constraints instead UNSIGNED modifiers + if(/PRIMARY KEY \((.*)\)/i) { + my $tmpfld=$1; + $tmpfld=~s/,/","/; + s/PRIMARY KEY (\(.*\))/PRIMARY KEY \("$tmpfld"\)/i; + s/(PRIMARY KEY \(.*\)).*/$1$check\n/i; + } + + if(/^\s*KEY (.+) \((.*)\).*/i) { + my $tmpfld=$2; + $tmpfld=~s/\s*,\s*/","/; + $index{$table_name}[++$j]="CREATE INDEX $1_$table_name\_index ON \"$table_name\" (\"$tmpfld\");"; + } + if(/^\s*UNIQUE (.+) \((.*)\).*/i) { + my $tmpfld=$2; + $tmpfld=~s/,/","/; + $index{$table_name}[++$j]="CREATE UNIQUE INDEX $1_$table_name\_index ON \"$table_name\" (\"$tmpfld\");"; + } + s/^\s*UNIQUE (.+) (\(.*\)).*\n//i; + s/^\s*KEY (.+) (\(.*\)).*\n//i; + + if(!s/INSERT INTO\s+?(.*?)\s+?/INSERT INTO "$1" /i) { +# Quote lowercase identifiers in double quotes + while(!/^--/ && s/\s([A-Za-z_\d]+[a-z][A-Za-z_\d]*)\s/ "$+" /) {;} + } + + +# -------------------------------------------------- + $dump.=$_; +} + +print $types; +$dump=~s/,\n\);/\n\);/gmi; +print $dump; + +# Output indices for tables +while(my($table,$ind)=each(%index)) { + print "\n\n--"; + print "\n-- Indexes for table ".uc($table); + print "\n--\n"; + for(my $i=0;$i<=$#{$ind};$i++) { + print "\n$ind->[$i]"; + } + +} +print("\n\nEND;\n"); +print("\nBEGIN;\n"); + +while(my($table,$s)=each(%seq)) { + print "\n\n--"; + print "\n-- Sequences for table ".uc($table); + print "\n--\n"; + + # setting SERIAL sequence values right + if($primary{$table} ne '') { + print "\nCREATE SEQUENCE ".$seq{$table}.";"; + print "\nSELECT SETVAL('".$seq{$table}."',(select case when max(\"".$primary{$table}."\")>0 then max(\"".$primary{$table}."\")+1 else 1 end from \"$table\"));"; + } +} + +print("\n\nEND;\n"); +close(LIBTYPES); + +open(MAKE,">Makefile"); +print MAKE "# +# My2Pg \$Revision: 1.1 $ \translated dump +# Makefile +# + +all: libtypes.so + +libtypes.o: libtypes.c + gcc -c -fPIC -g -O libtypes.c +libtypes.so: libtypes.o + ld -Bshareable -o libtypes.so libtypes.o"; +close(MAKE); + +# +# Function generates unique identifier +# Args : template name, max length +# Globals: %identifier +# +sub new_name() { + my $name=lc(shift @_); + my $len=shift @_; + +# truncate long names + if(length($name)>$len) { + $name=~s/(.{$len}).*/$1/i; + } + +# find reserved identifiers + if($identifier{$name}!=1) { + $identifier{$name}=1; + return $name; + } + else { + for(my $i=1,my $tmpname=$name.$i;$identifier{$tmpname}!=1;) { + $tmpname=$name.$i + } + $identifier{$tmpname}=1; + return $tmpname; + } + + die "Error during unique identifier generation :-("; +} + +sub usage() { +print < +Copyright (c) 2000 Valentine Danilchuk + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +SYNTAX: + my2pg [-hn] + +OPTIONS: + h - this help + n - convert *CHAR NOT NULL DEFAULT '' types to *CHAR NULL +EOF +; +} + + +=head1 NAME + +my2pg - MySQL -> PostgreSQL dump conversion utility. + +=head1 SYNTAX + + mysqldump db | ./my2pg.pl [-n] > pgsqldump.txt + vi libtypes.c + make + psql database < pgsqldump.txt +where + +=over 4 + +=item B + +- mysqldump utility output, + +=item B + +- file suitable for loading into PostgreSQL. + +=item B + +- C source for emulated MySQL types (ENUM, SET) generated by B + +=back + +=head1 OVERVIEW + +B utility attempts to convert MySQL database dump to Postgres's one. +B performs such conversions: + +=over 4 + +=item Type conversion. + +It tries to find proper Postgres +type for each column. +Unknown types are silently pushing to output dump; +ENUM and SET types implemented via user types +(C source for such types can be found in +B file); + +=item Identifiers double-quotation. + +All column and table +names should be enclosed to double-quotes to prevent +interferension with reserved words; + +=item Converting + +KEY(field) to CREATE INDEX i_field on table (field); + +=item The same + +for UNIQUE keys; + +=item Indices + +are creating AFTER rows insertion (to speed up the load); + +=item Translates '#' + +MySQL comments to ANSI SQL '--' + +=back + +It encloses dump in transaction block to prevent single errors +during data load. + +=head1 COMMAND-LINE OPTIONS + +My2pg takes the following command-line options: + +=over 2 + +=item -n + +Convert *CHAR DEFAULT '' NOT NULL types to *CHAR NULL. +Postgres can't load empty '' strings in NOT NULL fields. + +=item -h + +Show usage banner. + +=back + +=head1 SIDE EFFECTS + +=over 4 + +=item creates + +file B in current directory +overwriting existed file without any checks; + +=item the same + +for Makefile. + +=back + +=head1 BUGS + +This program is very beta and extremely bugsome. +Known bugs are: + +=over 4 + +=item Poor doublequotation. + +All identifiers such as table and column names should be enclosed in double +quotes. Program can't handle upper-case identifiers, +like DBA. Lower-case identifiers are OK. + +=item SET type emulation is not full. LIKE operation on + +SETs, raw integer input values should be implemented + +=item B generated during output is +platform-dependent and surely works only on +Linux/gcc (FreeBSD/gcc probably works as well - not tested) + +=item Generated B contain line + + #include + +This file may be located not in standard compiler +include path, you need to check it before compiling. + +=back + +=head1 AUTHORS + +B<(c) 2000 Maxim V. Rudensky > +B<(c) 2000 Valentine V. Danilchuk > + +=head1 LICENSE + +B + +=cut -- 2.40.0