HTTPSサイトのステータスコードのチェック

質問

宜しくお願いいたします。

Perlを使ってhttpsサイトのステータスコードを
確認する方法を教えていただけないでしょうか。

具体的には、
ソースを実行したとき
あらかじめソースに中に記載されたhttpsサイトをチェックして、
サイトに異常がない場合は200のコードを返して、
異常がある場合は403や404を返す、
ということです。

Socketを使って動かそうとしてみたのですが、
なにぶん、Perl始めたばかりなので、何が悪いのかも
さっぱりわかりません。
httpとhttpsの違いでPerlのソースがどのように違ってくるかも不明です。

なので、実際のソースを示していただけると非常に助かります。

あつかましい質問ですが、
宜しくお願いいたします。

回答No.1

osamuy

LWPとCrypt::SSLeayを組み合わせれば、httpとhttpsの区別なくアクセスできますので、それらを使ってみては。

SSL自体には以下の書籍がわかりやすいと思います：
http://ssl.ohmsha.co.jp/cgi-bin/menu.cgi?ISBN=4-274-06573-1

参考URL：

http://digit.que.ne.jp/work/index.cgi?Perl%A5%E2%A5%B8%A5%E5%A1%BC%A5%EB%2FLWP

補足

ありがとうございます。

ActivePerlでLWP::Simpleを使い、参考URLを元にソース書いてみました。

if(is_success(getstore($url, $file))){
print "statu OK";
}else{
print "status NG";
}
という形でOK、NG判定ができるようになりました。
ただ、スクリプトを動かすたびに$fileに設定しているファイルが上書きされるのですが、
追加で記載されるようにするにはどのようにすればいいか、
教えていただけないでしょうか？