sqliteToMySQL.pl

sqliteToMySQL.pl

#! /usr/bin/perl
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    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.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#    Usage: 
#    chmod 777 sqliteToMySQL.pl
#    cat my_sqlite_dump-sqlite | ./sqliteToMySQL.pl > converted_db.sql
#
while ($line = <>){
    if (($line !~  /BEGIN TRANSACTION/) && ($line !~ /COMMIT/) && ($line !~ /sqlite_sequence/) && ($line !~ /CREATE UNIQUE INDEX/)){

    	if ($line =~ /CREATE TABLE \"([a-z_]*)\"(.*)/){
    		$name = $1;
    		$sub = $2;
    		$sub =~ s/\"//g;
    		$line = "DROP TABLE IF EXISTS $name;\nCREATE TABLE IF NOT EXISTS $name$sub\n";
    	}
    	elsif ($line =~ /INSERT INTO \"([a-z_]*)\"(.*)/){
    		$line = "INSERT INTO $1$2\n";
    		$line =~ s/\"/\\\"/g;
    		$line =~ s/\"/\'/g;
    	}else{
    		$line =~ s/\'\'/\\\'/g;
    	}
    	$line =~ s/([^\\'])\'t\'(.)/$1THIS_IS_TRUE$2/g;
    	$line =~ s/THIS_IS_TRUE/1/g;
    	$line =~ s/([^\\'])\'f\'(.)/$1THIS_IS_FALSE$2/g;
    	$line =~ s/THIS_IS_FALSE/0/g;
    	$line =~ s/AUTOINCREMENT/AUTO_INCREMENT/g;
    	$line =~ s/"/`/g;
        $line =~ s/PRAGMA /#PRAGMA /g;
    	print $line;
    }
}