DouKaku?

#!/usr/local/bin/perl
use strict;
use warnings;
use Inline Octave => 'DATA';

sub links2matrix{
    my $table = shift;
    my $dim = @$table;
    my $mat = [];
    $mat->[$_] = [(0) x $dim] for (0..$dim-1);
    for my $i (0..@$table-1){
        my $nlinks = scalar @{$table->[$i]};
        $mat->[$_-1][$i] = 1/$nlinks for (@{$table->[$i]});
    }
    $mat;
}

my $m = Inline::Octave->new(
    links2matrix(
        [
            [ 2, 3, 4, 5, 7 ],
            [ 1],
            [ 1, 2 ],
            [ 2, 3, 5 ],
            [ 1, 3, 4, 6 ],
            [ 1, 5 ], [5],
        ]
    )
);
local $\ = "\n";
print "Matrix:";
print $m->disp();
print "Pagerank:";
print pagerank($m)->disp();
__DATA__
__Octave__
function p=pagerank(m);
[v,d] = eig(m);
ev = v(:, find(abs(diag(d)) == max(abs(diag(d)))));
p = ev ./ norm(ev, 1);
endfunction