awk「CREATE TABLE」文ごとにファイルに出力

Question

CREATE TABLE_A{
・・・・・・
・・・・・・
}

CREATE TABLE_B{
・・・・・・
・・・・・・
}

CREATE TABLE_C{
・・・・・・
・・・・・・
}

上記のように複数の「CREATE TABLE」文があり、一回の処理でテーブルごとに
ファイルに出力（ファイル名はそれぞれのテーーブル名）するにはどうしたら良いのでしょうか。
下記が例です。
※LINUX環境

---------------------------------TABLE_A.txt-----------------------------
CREATE TABLE_A{
・・・・・・
・・・・・・
}

---------------------------------TABLE_B.txt-----------------------------
CREATE TABLE_B{
・・・・・・
・・・・・・
}

---------------------------------TABLE_C.txt-----------------------------
CREATE TABLE_C{
・・・・・・
・・・・・・
}

Comments

[Yasumichi]

念のため、使用環境を追記していただけますか？

[退会済みユーザー]

すみません、LINUXです。

[Yasumichi]

perl などで複数行にまたがってマッチ可能な正規表現を作成して、処理していけば可能だとは思いますが、ちょっと検討してみます。

[退会済みユーザー]

ありがとうございます。

[退会済みユーザー]

大変失礼ですが、awkを希望します。
可能であればでよろしいのでよろしくお願いします。

[dodox86]

元のCREATE TABLE ...文が羅列されたファイルの仕様が不明確ですが、一般的なSQLではないのですか？ {}で括られているようですが。末端も特に';'などで終わってはいないように思えます。

[Daregada]

そろそろ、「なぜawkでやらないとダメなのか」を答えてくれてもいいかと思うが。

[Daregada]

結局彼は何をしていたんだろう……ネットワークにも繋がっていない古いUNIXマシン(perlも入っていない)で変換しないといけなくなったとか?

Answer 1

awk 希望とのことですが、とりあえず、perl 版で。

まずは、例通り CREATE TABLE テーブル名 ではなく CREATE テーブル名になっている場合の div_sql.pl です。

#!/usr/bin/perl

use strict;

my $file = shift;

open my $fh, $file;
my $content = do { local $/; <$fh> };

while ($content =~ /(CREATE ([^\{]*)\{[^\}]*\}\n*)/gm) {
        open(DATAFILE, "> $2.txt");
        print DATAFILE $1;
        close(DATAFILE);
}

CREATE TABLE テーブル名 であれば、次のようにします。

#!/usr/bin/perl

use strict;

my $file = shift;

open my $fh, $file;
my $content = do { local $/; <$fh> };

while ($content =~ /(CREATE TABLE ([^\{]*)\{[^\}]*\}\n*)/gm) {
        open(DATAFILE, "> $2.txt");
        print DATAFILE $1;
        close(DATAFILE);
}

ただし、CREATE 文の最後に ; がなく、 } の次が改行になっているという前提で書いているのでその辺は、状況に合わせて修正が必要です。

実行方法は、分割対象が test.sql である場合、以下のようになります。

perl div_sql.pl test.sql

※現状のままだとテーブル名と { の間に空白がある場合は抽出しません。