root/sql/build_ddl.pl
| Revision fe61445ceeeb2974d31db88909d8abbbaeaeb578, 130 bytes (checked in by Theo Schlossnagle <jesus@omniti.com>, 4 years ago) | |
|---|---|
| |
| Line | |
|---|---|
| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | sub sql { |
| 4 | open(my $f, "<".shift); |
| 5 | while(<$f>) { /\\i (\S+)/ ? sql($1) : print; } |
| 6 | close($f); |
| 7 | } |
| 8 | |
| 9 | sql(shift); |
Note: See TracBrowser for help on using the browser.