Custom Search

JITAKU_SVR_Wiki

メモ

まだまだperl覚えたてなのであまり難しいことは出来ない。
少しずつ慣れていくために。

上記のリンク先での説明。

# /usr/bin/openssl s_client -connect hogehoge.com:443 2>&1 < /dev/null | /usr/bin/openssl x509 -enddate | /usr/bin/grep notAfter

ためしにどこかのFQDNで試すと、
yahooの場合

# /usr/bin/openssl s_client -connect login.yahoo.co.jp:443 2>&1 < /dev/null | /usr/bin/openssl x509 -enddate | /usr/bin/grep notAfter
notAfter=Aug 18 14:59:00 2011 GMT

この状態だと日付計算がしにくいので、

$server_ssl =~ s/notAfter\=//;
$server_ssl =~ s/GMT//;
とすることで"notAfter"と"GMT"が削除される。


置換具体例

文字列”2011-03-24”
ハイフンを”無”に置換したい。

$_date =~ s/\-//;
この場合の出力は
201103-24

$_date =~ s/\-//g;
この場合の出力は
20110324

参考URL:
http://www.kent-web.com/perl/chap7.html
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_k08.htm


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-12-22 (火) 15:22:01 (457d)