and from the example in Sort::Topological i havemy $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;
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'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);
In reply to Re^4: DBI:to sort tables according to their dependencies
by ansh batra
in thread DBI:to sort tables according to their dependencies
by ansh batra
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |