Shell Programming and Scripting

$
$ # list all files in current directory
$ ls
ddl_stmts.sql
$
$ # display the contents of "ddl_stmts.sql"
$ cat -n ddl_stmts.sql
     1  -- TABLE001
     2  CREATE UNIQUE INDEX ATABL001
     3      ON TABLE001
     4       (COLUMN1 ASC,
     5        COLUMN2 ASC,
     6        COLUMN3 ASC,
     7        COLUMN4 ASC);
     8  COMMIT;
     9
    10  CREATE INDEX BTABL001
    11      ON TABLE001
    12       (COLUMN3 ASC,
    13        COLUMN4 ASC);
    14  COMMIT;
    15
    16  CREATE INDEX CTAB001
    17      ON TABLE001
    18       (COLUMN3 ASC);
    19  COMMIT;
    20
    21  -- TABLE002
    22  CREATE UNIQUE INDEX ATABL002
    23      ON TABLE002
    24       (COLUMN1 ASC,
    25        COLUMN2 ASC,);
    26  COMMIT;
    27
$
$ # run the Perl one-liner
$
$ ##
$ perl -lne 'if (/^create.*?index (.*?)$/i) {open (FH, ">", "$1.sql"); print FH $_; $in=1}
             elsif (/;\s*$/ && $in) {print FH $_; close (FH); $in=0}
             elsif ($in) {print FH $_}
            ' ddl_stmts.sql
$
$
$ # list all files in current directory again
$ ls -1
ATABL001.sql
ATABL002.sql
BTABL001.sql
CTAB001.sql
ddl_stmts.sql
$
$ # display the contents of the newly created SQL files
$
$ cat -n ATABL001.sql
     1  CREATE UNIQUE INDEX ATABL001
     2      ON TABLE001
     3       (COLUMN1 ASC,
     4        COLUMN2 ASC,
     5        COLUMN3 ASC,
     6        COLUMN4 ASC);
$
$ cat -n ATABL002.sql
     1  CREATE UNIQUE INDEX ATABL002
     2      ON TABLE002
     3       (COLUMN1 ASC,
     4        COLUMN2 ASC,);
$
$ cat -n BTABL001.sql
     1  CREATE INDEX BTABL001
     2      ON TABLE001
     3       (COLUMN3 ASC,
     4        COLUMN4 ASC);
$
$ cat -n CTAB001.sql
     1  CREATE INDEX CTAB001
     2      ON TABLE001
     3       (COLUMN3 ASC);
$
$