sqlite を mysql スクリプトに移行する方法

パーレル
#
# https://stackoverflow.com/a/87531/5742651 に基づく
# 使用方法: sqlite3 .dump database_name.sqlite3 | perl sqlite2mysql.pl | mysql -u root -p $import_database_name
#
# 次の行を無視します:
# トランザクションを開始 
＃ 専念 
#sqlite_シーケンス 
# ユニークなインデックスを作成する
# プラグマ foreign_keys=OFF
# "テーブル名/フィールド" => `テーブル名/フィールド`
# ブール値 't' と 'f' => 1 と 0
# AUTOINCREMENT => AUTO_INCREMENT
# varchar => varchar(255)
# CREATE TABLE テーブル... => DROP TABLE テーブル; CREATE TABLE テーブル...
# 速度を上げるために挿入SQLを複数の挿入にマージします
# テーブルに挿入 VALUES('val1');
# テーブル VALUES('val2') に INSERT INTO テーブル VALUES('val1'), ('val2'), ('val3');
# テーブルに VALUES('val3') を挿入します。
私の$open=0;
私の$line_cache = '';
# スピードアップのために
"SET GLOBAL max_allowed_pa​​cket=209715200;\n" を印刷します。
#print "SET AUTOCOMMIT=0;\n";
($line = <>){
  if (($line !~ /PRAGMA foreign_keys=OFF/) && ($line !~ /BEGIN TRANSACTION/) && ($line !~ /COMMIT/) && ($line !~ /sqlite_sequence/) && ($line !~ /CREATE UNIQUE INDEX/)){
   ($line =~ /CREATE TABLE \"([a-z_0-9]*)\"(.*)/){の場合
   $name = "\`$1\`";
   $sub = $2;
   $sub =~ s/varchar([^(])/varchar(255)$1/g;
   $line = "$name が存在する場合はテーブルを削除します。\n$name$sub テーブルを作成します\n"; 
   }
   elsif ($line =~ /CREATE VIEW ([a-z_0-9]*)(.*)/){
   $name = "\`$1\`";
   $sub = $2;
   $line = "$name が存在する場合はビューを削除します。\n$name$sub のビューを作成します\n";
   }
   elsif ($line =~ /INSERT INTO \"([a-z_]*)\" VALUES(.*);/){
        $open == 0 の場合
          オープン = 1;
       $line_cache .= "\`$1\` の値 $2 に挿入";
        } それ以外 {
          $line_cache .= ", $2";
        }
        次;
   }それ以外{
   $line =~ s/\'\'/\\\'/g;
   }
    $open == 1の場合{
       $open = 0;
       $line = $line_cache.";\n".$line;
       $line_cache = '';
    }
   $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 を印刷します。
  }
}
#print "SET AUTOCOMMIT=1;\n";