Help for this page

Select Code to Download


  1. or download this
    mkdir pod
perl -MIO::File -lpe '
    s/^_CUT: (.*)$// and do { *STDOUT = IO::File->new(">pod/$1"); };
    s/^_DB: (.*)$//  and do { $_ = qx[psql -c "$1"]; s/^/ /gm;    };
    ' mydb.pod
  2. or download this
    <tmpl_loop schemas><tmpl_loop tables>
_CUT: <tmpl_if view_definition>view<tmpl_else>table</tmpl_if>_<tmpl_va
+r table>.pod
...

</tmpl_loop>
</tmpl_loop>