Windows 10 Pro + VsCode で Strawberry Perl を少し試してみる

随分前に触ったっきりのPerlなんだけど、今はどうなんだろう？と少し試してみる。

※DB関連は DBI::DBD で良いのかな？というのもあるんだが

ActivePerlは商用ライセンスじゃないと使いづらい感じなので、Strawberryを試すことにする

コンパイルログは出ないのだが、CPANモジュールがわりと使えそうな感じかな？

※ネットワーク系ゴリゴリだと素直にLinuxベースで行うべきだろうけどな

参考にしたサイトはこちら

ActivePerlを卒業して、Strawberry Perlを使用することにした

PerlからODBCでSQL Serverのデータを取得

接続するODBCWindows[SQL Server ログイン] ダイアログボックス (ODBC)

The Perl for MS Windows, free of charge!

より Recommended version:Strawberry Perl 5.26.1.1 (64bit) をクリックしてDLする

strawberry-perl-5.26.1.1-64bit.msi を実行して適当なフォルダにインストールする

※自分は　C:\Dev\tools\Strawberry

環境変数に　以下を追加する

C:\Dev\tools\Strawberry\perl\bin

C:\Dev\tools\Strawberry\c\bin

コンソールを起動して以下の動作を確認する

> perl -v

This is perl 5, version 26, subversion 1 (v5.26.1) built for MSWin32-x64-multi-thread

Perl may be copied only under the terms of either the Artistic License or the

GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on

this system using "man perl" or "perldoc perl". If you have access to the

Internet, point your browser at http://www.perl.org/, the Perl Home Page.

> gcc -v

Using built-in specs.

COLLECT_GCC=C:\Dev\tools\Strawberry\c\bin\gcc.exe

～

Thread model: posix

gcc version 7.1.0 (x86_64-posix-seh, Built by strawberryperl.com project)

VsCodeの設定

・拡張機能より

　Perl Debug　をインストールする

　Code Runner　をインストールする

・フォルダを作成する

・ファイル -> フォルダを選ぶ　より上記フォルダを選択

・CTRL+SHIFT+D(デバッグボタン)

　->launch.jsonの構成や修正を押下して perl を選択する

use strict;
use warnings;

print "Hello 日本語";

・右クリック->Run Code(Ctrl+Alt+N)で実行

SQL Server との接続を確認

対象データはこちらで作成したもの

　Excel VBA での Transaction について

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

> cpanm DBD::ODBC

--> Working on DBD::ODBC

Fetching http://www.cpan.org/authors/id/M/MJ/MJEVANS/DBD-ODBC-1.58.tar.gz ... OK

Configuring DBD-ODBC-1.58 ... OK

Building and testing DBD-ODBC-1.58 ... OK

Successfully installed DBD-ODBC-1.58 (upgraded from 1.56)

1 distribution installed

> cpanm DDP

DDP is up to date. (undef)

> cpanm DBI

--> Working on DBI

Fetching http://www.cpan.org/authors/id/T/TI/TIMB/DBI-1.641.tar.gz ... OK

Configuring DBI-1.641 ... OK

Building and testing DBI-1.641 ... OK

Successfully installed DBI-1.641 (upgraded from 1.637)

1 distribution installed

use strict;
use utf8;
use DBI;

my $dbh=DBI->connect('dbi:ODBC:SQLSVODBC64','user','password') or die $!;
my $sth=$dbh->prepare("select * from POSTAL") 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;

[Running] perl "d:\Dev\plsamp\0002.pl"
Wide character in print at C:/Dev/tools/Strawberry/perl/vendor/lib/Data/Printer.pm line 181.
\ [
    [0] "9200000 ",
    [1] undef,
    [2] "金沢市                                     ",
    [3] "以下に掲載がない場合                              ",
    [4] undef,
    [5] undef
]
～