#!/usr/bin/perl
# read SQL on stdin, match stupidly for "create table foobar" and spit out
# a list of tables on stdout
# 
# version: $Id: extract_tables,v 1.1 2002/08/12 00:38:49 als Exp $
# author: Alexander Schreiber <als@thangorodrim.de>
#

while ( $line = <> ) {
    if ( $line =~ /create\s+table\s+(\S+)\s+/i ) {
        print "$1\n";
    } 
}
