Quelle est la méthode la plus simple pour lire une table de serveur SQL dans un hachage en Perl ?

Question

Je voudrais un simple script / sub perl pour lire une table de serveur sql dans un hash, est-ce que quelqu'un a un bon script ou un snippet (avec des 'use') qui peut faire cela étant donné une chaîne de connexion et le nom de la table ?

Voici un modèle :

sub sqltable {    
    my ($connStr,$table) = @_;    
    my ($user, $password, $host) = ($connectstr =~ m|^(.*)/(.*)@(.*)$|); # or whatever    
    my $dbh = DBI->connect("dbi:???:$host",$user,$password, { RaiseError => 1 }); # replace ??? with good SQL Server equivalent
    $dbh-> ???; # anything good for this part?  LongTruncOk?  LongReadLen?    
    return $dbh->selectall_arrayref("select * from $table");    
}

Answer 1

Véase selectall_hashref dans la page DBI Perl.

Answer 2

En ce qui concerne la connexion au serveur SQL à l'aide de Perl,

• Si vous êtes sur une machine Windows, voir : Comment se connecter à une base de données MSSQL en utilisant le module DBI de Perl sous Windows ?

• Si vous êtes sous Linux, voir : Comment accéder à une base de données SQL Server à partir d'un script Perl sous Linux ?