perl_置換

JITAKU_SVR_Wiki

メモ †

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

• SSL証明書の有効期限をチェックする
  

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

# /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