IO::Socket::SSL エラー "Bad address"

フレッツ光プレミアムからフレッツ光ネクストに変更してからか、windows updateしてからか、 Mail::IMAPClient でgmailに接続できなくなった。

my $socket = IO::Socket::SSL->new(
                                  PeerHost => 'imap.gmail.com',
                                  PeerPort => 993,
                                 ) or die "socket(): $@";

で "socket(): Bad address at ... line 31." のエラー。

use IO::Socket::SSL 'inet4';

で解決。

参考ページ
How to connect to a Gmail inbox
Perl IO::Socket::SSL: connect: Network is unreachable

perl 先読み後読みパターンマッチ

　(?=パターン)　 肯定の先読み　 この先にパターンが出てくる場所にマッチ
　(?!パターン)　 否定の先読み　 この先にパターンが出てこない場所にマッチ
　(?<=パターン)　肯定の後読み　 この前にパターンが出てきた場所にマッチ
　(?<!パターン)　否定の後読み　 この前にパターンが出てこなかった場所にマッチ

rootパスワード設定済み mysql DBD::mysql インストール

cpanm DBD::mysql
rootにパスワード設定済みなのでエラー
DBI->connect(test) failed: Access denied for user: 'root@localhost' (Using password: NO)

perl Makefile.PL --testuser=myname --testpassword=mypasswd
make test
make install