Se connecter à une base de données distante

Utiliser l'option host= lors de votre tentative de connexion :

sub database_connect
{
        my $user = $_[0];
        my $passwd = $_[1];
        my $host = $_[2];
        my $return;
        undef($return);
        $return = DBI -> connect("dbi:Pg:host=$host",$user,$passwd)
                or warn("ERROR: ($$) $DBI::errstr");
        return $return;
}

La fonction ci-dessus prend l'IP du serveur de la base de données en troisième option, si celle-ci doit être en local, il suffit de renseigner 127.0.0.1.