メモ †まだまだperl覚えたてなのであまり難しいことは出来ない。 上記のリンク先での説明。 # /usr/bin/openssl s_client -connect hogehoge.com:443 2>&1 < /dev/null | /usr/bin/openssl x509 -enddate | /usr/bin/grep notAfter ためしにどこかのFQDNで試すと、 # /usr/bin/openssl s_client -connect login.yahoo.co.jp:443 2>&1 < /dev/null | /usr/bin/openssl x509 -enddate | /usr/bin/grep notAfter この状態だと日付計算がしにくいので、 $server_ssl =~ s/notAfter\=//; 置換具体例 †文字列”2011-03-24” $_date =~ s/\-//; $_date =~ s/\-//g; 参考URL: |