Мне бы хотелось, чтобы простой скрипт / сабл perl для чтения таблицы сервера sql в хеш, есть ли у кого-нибудь хороший скрипт или фрагмент (с 'use's), которые могут сделать это, учитывая строку подключения и имя таблицы?
Вот шаблон:
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");
}