Perl で Web アクセス５

ご訪問ありがとうございます。


これまでで、「Perl で Web アクセス」する方法を少し勉強しました。

最初 は、「socket」を使ってHTTPクライアントを作る方法でした。
２回目では「LWP::Simple」を知り、数行でプログラミングできるようになりました。
そして、３回目には、ログイン処理を含んだような高度な(？)
処理もできる「LWP::UserAgent」を勉強しました。
さらに４回目、画像(バイナリファイル)のダウンロードまで。


今度は、サイトの存在チェックをしたくなりました。

ブログを見に来て頂いている方々の住所録(？)があります。
(と云っても「gooあしあと」か「あし＠の足跡」を残して頂いている方々ですが)
巡回してみると、中には（古い人でも新しい人でも）止められてしていて、
「404 Not Found」となる場合があります。
その都度、住所録(？)から削除しているのだが、
サイトの存在チェックをバッチ処理できないものかと考えました。


「LWP::Simple」で、「head」関数を使うと出来そうですね。

テストで、サンプルコーディングをしてみました。
１行コードと云えるくらいに、簡単に出来ました。

「Yahoo! Japan」の URLの「yahoo」の部分を「yafoo」に変えてみます。
「http://www.yahoo.co.jp/」はありますが、
「http://www.yafoo.co.jp/」はありませんネ。

　　　　　（ソースコードと実行結果）



「head」関数の戻り値は文字列ですね、
その文字列の長さが 30（必ず？　少なくとも 0 ではない）か、
0 か、で判別出来ると云うことですね。

また１つ勉強しました。　　　 　　　　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒

人気BlogRanking　⇒　

P-NETBANKING　⇒