Trace: ranking . ... CREATE OR REPLACE FUNCTION my_rank (tsvector, tsquery, int ) RETURNS float AS $$ use List::Util qw(min max); my ($string, $ query ) = @_; my $maxpos = 0; # Parse tsvector, taking into account positional information foreach (split / /, $string){ if(/^'(\w+)'(:([0-9,]+))?$/){ foreach(split /,/, $3){ $ vector {$_} = $1; $maxpos = max($maxpos, $_); } } } my @ vector = map {$ vector {$_}} sort {$a = $b} keys(% vector ); # Parse tsquery, assuming it to be ORed only $ ... SAI VO | ...