Sort::TSort - topological sort; a very simple wrapper around 'tsort' command line utility.
use Sort::TSort qw(tsort); my $sorted_items = toposort($ordered_pairs);
Sort::TSort::tsort performs a topological sort of an acyclic directed graph defined by list of edges (pairs of vertices). Sort::TSort does this by invoking external command tsort (1).
Exports one subroutine on demand: tsort.
If external program tsort is not installed, the subroutine dies.
If there are cycles in the graph, the subroutine dies.
If an item of input array has any other length than 2, the subroutine dies (this behaviour is different from external tsort, which accept any even number of items per row).
Sort::TSort tries to do its best to deal correctly with non-ASCII data (by encoding input strings in utf-8 and decoding result from utf-8).
use Sort::TSort qw/tsort/; my $partial_order = [ [ 'a', 'b' ], [ 'a', 'c' ], [ 'c', 'x' ], [ 'b', 'x' ], [ 'x', 'y' ], [ 'y', 'z' ], ]; my $sorted = tsort($partial_order); # Result: # $sorted = [ # 'a', # 'c', # 'b', # 'x', # 'y', # 'z' # ]; my $partial_order = [ [ 'a', 'b' ], [ 'b', 'c' ], [ 'c', 'a' ], ]; my $sorted = tsort($partial_order); # Result: tsort dies (there is a cycle 'a-b-c') my $partial_order = [ [ 'a', 'b', 'c', 'd' ], [ 'b', 'c' ], [ 'c', 'a' ], ]; my $sorted = tsort($partial_order); # Result: tsort dies (first row doesn't have exactly 2 items)
Requires external tsort program to be installed.
Not tested on Windows (probably it can be made to work there with tsort from Perl Power Tools).
Not intended to sort very large arrays (input and output data are copied multiple times, join'ed and split'ed, which may lead to unnecessary memory consumption).
Elena Bolshakova <email@example.com>