Ubuntu 16.04 LTS + Perl で Linux版 SQL Server 2017 Express にアクセスしてみる

Linux版 SQL Server 2017 Express をインストールしたので ODBCでアクセスしてみる

Ubuntu 16.04 LTS + Perl + DBI::DBD + unixODBC <-> SQL Server 2017 Express

になるのかな？

※こういう検証用だとやはりPerlが楽だよなぁ・・・

環境はこちら

Ubuntu 16.04 LTS で SQL Server 2017 Express を試してみる

Ubuntu 16.04 LTS で SQL Server 2017 Express をもう少し試してみる

Ubuntu 17.10 + VsCode + Perl で Windows10 + SQL Server 2017 Express にアクセスする

参考にしたのは以下のサイト

perlモジュールのinstallにcpanmを使う

# perl -v

This is perl 5, version 22, subversion 1 (v5.22.1) built for x86_64-linux-gnu-thread-multi

(with 68 registered patches, see perl -V for more detail)

・DBI::DBDのインストール

コンソールより、以下を実行する

# apt-get install perl-doc

# apt install cpanminus

# cpanm install DBD::ODBC (DBIはここでインストールされる)

# cpanm install DDP

・unixodbcは以下でツール系でまとめてインストールしている

Ubuntu 16.04 LTS で SQL Server 2017 Express を試してみる

・/etc/odbc.ini の設定

# for remote windows

[MSSQLWin10]

Driver = /opt/microsoft/msodbcsql17/lib64/libmsodbcsql-17.1.so.0.1

Server = tcp:xxx.xxx.xxx.xxx\SQLEXPRESS,1433

Database = DEMO

ClientCharset = UTF-8

# for local ubuntu

[MSSQLLocal]

Driver = /opt/microsoft/msodbcsql17/lib64/libmsodbcsql-17.1.so.0.1

Server = tcp:xxx.xxx.xxx.xxx,1433

Database = DEMO

ClientCharset = UTF-8

# odbcinst -i -d -f /etc/odbc.ini　でインストールする

登録済の設定を表示する

# odbcinst -q -d

[ODBC Driver 17 for SQL Server]

[MSSQLWin10]

[MSSQLLocal]

指定した設定を削除する

# odbcinst -u -d -n MSSQLLocal

# odbcinst -u -d -n MSSQLWin10

サンプル(使いまわし)

use strict;
use utf8;
use DBI;

my $dbh=DBI->connect('dbi:ODBC:MSSQLLocal','demo','demo') or die $!;
my $sth=$dbh->prepare("select * from ZIPCODE") or die $dbh->errstr;

# 出力エラー対策
$sth->{LongTruncOk}=1;
$sth->{LongReadLen}=2000000;

$sth->execute or die $dbh->errstr;

while(my $arrayref = $sth->fetchrow_arrayref){
        use DDP;
        p $arrayref;
}

$sth->finish;
$dbh->disconnect;

perl samp0001.pl
\ [
    [0]  "00000001",
    [1]  "01101",
    [2]  "060",
    [3]  "0600000 ",
    [4]  "ﾎｯｶｲﾄﾞ鐔\0",
    [5]  "ｻｯﾎﾟﾛｼﾁｭｳｵｳｸ    \0",
    [6]  "ｲｶﾆｹｲｻｲｶﾞﾅｲﾊﾞｱｲ                                   \0",
    [7]  "北海道           \0",
    [8]  "札幌市中央区                      \0",
    [9]  "以下に掲載がない場合                                                  \0",
    [10] 0,
    [11] 0,
    [12] 0,
    [13] 0,
    [14] 0,
    [15] 0
]
～