root/sql/build_ddl.pl

Revision fe61445ceeeb2974d31db88909d8abbbaeaeb578, 130 bytes (checked in by Theo Schlossnagle <jesus@omniti.com>, 4 years ago)

a new way of doing this, refs #150

  • Property mode set to 100755
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.