質問
このPerlスクリプトが 移行っSQLiteデータベースmysql
私は英語上級者の方にお尋ねしたらわからないPerl)どうすれば一書き換えるこPython?
ボーナスポイントのための最短のコード)answer:)
編集:いった最短のコードは厳重に短答え
#! /usr/bin/perl
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;
print $line;
}
}
一部追加のコードするために必要な移行はsqliteデータベース(ハイブ諸外国のキーの修正のバグのオリジナルプログラムされる空分野 ''
へ \'
.
解決
ここで(文字列を使用してではなく、可能な限りの操作を再度、関数にすべてのコードを入れて)明白なスタイルの変更のちょうど最小とかなりの直訳です。
import re, fileinput
def main():
for line in fileinput.input():
process = False
for nope in ('BEGIN TRANSACTION','COMMIT',
'sqlite_sequence','CREATE UNIQUE INDEX'):
if nope in line: break
else:
process = True
if not process: continue
m = re.search('CREATE TABLE "([a-z_]*)"(.*)', line)
if m:
name, sub = m.groups()
line = '''DROP TABLE IF EXISTS %(name)s;
CREATE TABLE IF NOT EXISTS %(name)s%(sub)s
'''
line = line % dict(name=name, sub=sub)
else:
m = re.search('INSERT INTO "([a-z_]*)"(.*)', line)
if m:
line = 'INSERT INTO %s%s\n' % m.groups()
line = line.replace('"', r'\"')
line = line.replace('"', "'")
line = re.sub(r"([^'])'t'(.)", r"\1THIS_IS_TRUE\2", line)
line = line.replace('THIS_IS_TRUE', '1')
line = re.sub(r"([^'])'f'(.)", r"\1THIS_IS_FALSE\2", line)
line = line.replace('THIS_IS_FALSE', '0')
line = line.replace('AUTOINCREMENT', 'AUTO_INCREMENT')
print line,
main()
他のヒント
アレックスマルテッリのソリューションは良い動作しますが、いくつかの修正や追加を必要とします:
正規表現置換を使用してラインでは、マッチしたグループの挿入はダブルエスケープしなければならないか、または置換文字列は、マークにRを付ける必要があり、正規表現のようになります:
line = re.sub(r"([^'])'t'(.)", "\\1THIS_IS_TRUE\\2", line)
または
line = re.sub(r"([^'])'f'(.)", r"\1THIS_IS_FALSE\2", line)
また、この行は、印刷の前に追加する必要があります:
line = line.replace('AUTOINCREMENT', 'AUTO_INCREMENT')
最後には、作成する文の列名は、MySQLでバッククォートする必要があります。ライン15でこれを追加します:
sub = sub.replace('"','`')
ここで修正を加えた完全なスクリプトです。
import re, fileinput
def main():
for line in fileinput.input():
process = False
for nope in ('BEGIN TRANSACTION','COMMIT',
'sqlite_sequence','CREATE UNIQUE INDEX'):
if nope in line: break
else:
process = True
if not process: continue
m = re.search('CREATE TABLE "([a-z_]*)"(.*)', line)
if m:
name, sub = m.groups()
sub = sub.replace('"','`')
line = '''DROP TABLE IF EXISTS %(name)s;
CREATE TABLE IF NOT EXISTS %(name)s%(sub)s
'''
line = line % dict(name=name, sub=sub)
else:
m = re.search('INSERT INTO "([a-z_]*)"(.*)', line)
if m:
line = 'INSERT INTO %s%s\n' % m.groups()
line = line.replace('"', r'\"')
line = line.replace('"', "'")
line = re.sub(r"([^'])'t'(.)", "\\1THIS_IS_TRUE\\2", line)
line = line.replace('THIS_IS_TRUE', '1')
line = re.sub(r"([^'])'f'(.)", "\\1THIS_IS_FALSE\\2", line)
line = line.replace('THIS_IS_FALSE', '0')
line = line.replace('AUTOINCREMENT', 'AUTO_INCREMENT')
if re.search('^CREATE INDEX', line):
line = line.replace('"','`')
print line,
main()
ここでは、元のわずかに優れたバージョンです。
#! /usr/bin/perl
use strict;
use warnings;
use 5.010; # for s/\K//;
while( <> ){
next if m'
BEGIN TRANSACTION |
COMMIT |
sqlite_sequence |
CREATE UNIQUE INDEX
'x;
if( my($name,$sub) = m'CREATE TABLE \"([a-z_]*)\"(.*)' ){
# remove "
$sub =~ s/\"//g; #"
$_ = "DROP TABLE IF EXISTS $name;\nCREATE TABLE IF NOT EXISTS $name$sub\n";
}elsif( /INSERT INTO \"([a-z_]*)\"(.*)/ ){
$_ = "INSERT INTO $1$2\n";
# " => \"
s/\"/\\\"/g; #"
# " => '
s/\"/\'/g; #"
}else{
# '' => \'
s/\'\'/\\\'/g; #'
}
# 't' => 1
s/[^\\']\K\'t\'/1/g; #'
# 'f' => 0
s/[^\\']\K\'f\'/0/g; #'
s/AUTOINCREMENT/AUTO_INCREMENT/g;
print;
}
このページのスクリプトのすべてが、簡単なsqlite3のに対処することはできません。
PRAGMA foreign_keys=OFF;
BEGIN TRANSACTION;
CREATE TABLE Filename (
FilenameId INTEGER,
Name TEXT DEFAULT '',
PRIMARY KEY(FilenameId)
);
INSERT INTO "Filename" VALUES(1,'');
INSERT INTO "Filename" VALUES(2,'bigfile1');
INSERT INTO "Filename" VALUES(3,'%gconf-tree.xml');
はいずれも、適切なMySQLの `table_name`に「TABLE_NAME」を再フォーマットすることができませんでした。いくつかは、空の文字列値を台無します。
私はそれが上記のコメントのように悪意に満ちた発言を必要とするこれについて理解することはとても難しいです何かわかりません。 <>
はダイヤモンド演算子と呼ばれることに注意してください。 s///
は、置換演算子と//
がマッチ演算子のm//
である。
に基づく http://docs.python.org/dev/howto/regex.html ...
- 交換
$line =~ /.*/
とre.search(r".*", line)
. $line !~ /.*/
は!($line =~ /.*/)
.- 交換
$line =~ s/.*/x/g
とline=re.sub(r".*", "x", line)
. - 交換
$1
を通じて$9
内部re.sub
と\1
を通じて\9
ます。 - 外部サブを保存し、戻り値は、
m=re.search()
, 交換$1
の返り値m.group(1)
. - のための
"INSERT INTO $1$2\n"
具体的には、できるだ"INSERT INTO %s%s\n" % (m.group(1), m.group(2))
.
本当の問題はどのようにデータベースを移行するためにあなたが実際に知っているのですか?どのような提示されては、単に検索とループを交換されます。
最短?チルダはPerlで正規表現を意味します。 「インポートを再」とそこから行きます。唯一の主な違いは、あなたが値を割り当てるときに、代わりに$ 1と$ 2の\ 1、\ 2を使用することがあります、そしてあなたは、文字列内で正規表現に一致する部分を置換しているときのための%sを使用することがありますということです。