人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

特定のIPアドレスにあるSHOUTcastサーバーが立ち上がっているかどうかをPerlで判別する方法を教えてください。

●質問者: dayofgreen
●カテゴリ:ウェブ制作
✍キーワード:IPアドレス Perl SHOUTcast いるか サーバー
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● aki73ix
●10ポイント

うーん

2の人の回答は見てみましたが、全然関係ないみたいですね(^_^;

ちなみに、GET /(domain)/listen.pls だと、サーバー落ちてても繋がっちゃうんじゃないでしょうか?

ポート直接叩いてコネクションがOKなら1が返るので、タイムアウトならエラーか空白で返ってくるのでこんな感じでいいんじゃないかと思います

自サーバー直接でShotcastサーバー立ててる所見つけられなかったのでテストできませんでしたが、LocalだとこれでOKでした。以下ソース

#!/usr/local/bin/perl

$host=’サーバー名’;

$addr = (gethostbyname($host))[4];

$file = ’/’;

$name = pack(”S n a4 x8”, 2, ポート番号, $addr);

socket(S, 2, 1, 0);

$afx=”0”;

$afx=connect(S, $name);

close(S);

print qq(Content-type: text/html¥n¥n);

print ”<html><body>¥n”;

if($afx == 1){

print ”OK”;

}

else{

print ”error”;

}

print ”</body><html>¥n”;

exit;

多分、こんな感じでいけると思うんですがいかがでしょうか?


2 ● aki73ix
●20ポイント

http://tohoho.wakusei.ne.jp/wwwperl2.htm#socket

Socket()関数を使って、サーバのリクエストを返すPortにアクセスしてやって返り文字列があるか見てやればOKです

◎質問者からの返答

ありがとうございます。SHOUTcastの立ち上がりを見るには、GET /(domain)/listen.plsが適切なのでしょうか?


3 ● kanetetu
●40ポイント

http://www.stack-style.org/Memo/

Stack-Style: Memo

こちらどうぞ。

http://minicgi.net/bbslog/8.html

◎質問者からの返答

これらのページのどこかわかりませんが。。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ