oops sorry moritz :)
i have this with me
my $sth = $dbh->prepare("select tablename from pg_tables where schema
+name=?");
$sth->execute($schema);
my @tables;
while (my @t = $sth->fetchrow_array) {
push @tables, @t;
}
$sth->finish;
and from the example in Sort::Topological i have
my %children = (
'a' => [ 'b', 'c' ],
'c' => [ 'x' ],
'b' => [ 'x' ],
'x' => [ 'y' ],
'y' => [ 'z' ],
'z' => [ ],
);
sub children { @{$children{$_[0]} || []}; }
my @unsorted = ( 'z', 'a', 'x', 'c', 'b', 'y' );
my @sorted = toposort(\&children, \@unsorted);
so i am planning something like foreach element in @tables i should call get_deps which will return the contents to be put inside a => 'here' |