ベストアンサー

※ ChatGPTを利用し、要約された質問です（原文：perlでPORT監視の方法）

perlでPORT監視の方法

2012/05/04 02:48

このQ&Aのポイント

perlでPORT監視を行う方法について具体的なコードを示しました。
指定したPORTが使用可能かどうかを判断するために、Net::Pingモジュールを使用しています。
LAN内での動作については、問題が発生しているようです。良い方法があれば教えてください。

Tommy4ever
お礼率88% (8/9)

Perl
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

osamuy
ベストアンサー率42% (1231/2878)

2012/05/04 08:35 回答No.1

$ping->service_check( 1 ); ――を追記してみるとか。

質問者

お礼 2012/05/04 12:28

ご返信ありがとうございます。無事に動きました。ありがとうございました。

関連するQ&A

perlでLocation

Locationでは#xxxというのは使えないのでしょうか？ #!/usr/local/bin/perl print "Location:xxx.cgi#xxx/?userID=$name\n\n"; exit; という風に書いています。 xxx.cgiはローカルにあるcgiでそのcgiの中身は表示できます。しかしxxx.cgiの中の <xxxx.cgiの中身> print <<"EOM"; <html> . . . <A NAME="xxx>image</A> . . . </HTML> EOM exit; xxxのところでなく一番最初が表示されてしまいます。どうすればいいのでしょうか？
perlのsystem関数でrsyncが動かない

perlのsystem関数を使って、外部サーバーのフォルダ（999）をバックアップしたいと思っています。公開鍵を設定して、コマンド入力では動きます。 $ rsync -av user1@xxx.xxx.xxx.xxx:/home/user1/public_html/hp/999 /home/user2/public_html/hp/ これをperlのsystem関数に入れると動きません。 $retcodeは-1になります。 apacheのエラーログには何も出ていません。何が原因で動かないのでしょうか？よろしくお願いします。 #!/usr/bin/perl $retcode=system ("rsync -av user1@xxx.xxx.xxx.xxx:/home/user1/public_html/hp/999 /home/user2/public_html/hp/"); print "Content-type: text/html\n\n"; print"code: $retcode"; exit;
Perl からbashを呼び出したい

Perlからbashのファイルを呼び出そうとしています。 sendmail2.cgiは、呼び出せていまが、 sendmail3.cgiは、呼び出せません。 bashのファイル自体は、./(bashファイル)とやると実行できます。パーミッションは、 sendmail3.cgi 655 mail_plain.sh 755 sendmail2.cgi 705 mailsend.sh 705 です。パスの設定の問題かとも思ったのですが、よくわかりません。宜しくお願いします。 ===sendmail2.cgi============= #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<P>sendmail test</P>\n"; print "mailtest\n"; print "</HTML>\n"; exec('/home/httpd/wwwroot/yoshida/mailsend.sh'); exit(0); ============================== ===sendmail3.cgi============= #!/usr/bin/perl exec("/home/httpd/wwwroot/bbstest/mail_plain.bash"); exit(0); ==============================
ファイル共有のポート許可について

L2SWのアクセスリストで、ポート制御をしていますが、同一セグメント内は、ファイル共有を許可する必要性があり、以下のポートを許可したのですが、次のようなエラーが出力されて接続できません。pingも通りますし、名前解決もできています。何か不足しているポートがあるのでしょうか？ 137　UDP/TCP 138　UDP 139　TCP 445　UDP/TCP '\\XXX.XXX.XX.X が見つかりません。綴りを確認してもう一度実行するか、[スタート] ボタンをクリックし、[検索] をクリックして、項目を検索してください。」
perlがうごきません

htmlファイルには <html> <form action="form2.cgi" method="get"> 食品名１<input type="text"name="form1"> <br> 食品名２<input type="text"name="form2"> <input type="submit"value="送信"> </form> </html> cgiファイルには #! /usr/bin/perl require "cgi-lib.pl"; &ReadParse(); print "Content-type:text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print "<title>フォーム</title>\n"; print "</head>\n"; print "<body>\n"; print "おいしい$in{'form1'}\n"; print "まずい$in{'form2'}\n"; print "</body>\n"; print "</html>\n"; exit; cgi-lib.plはサーバーにいれております。どうしてうごかないのでしょうか。 perlの場所も正確です。
TCP/IP通信型プログラムです。サーバのポート番号をクライアントが

TCP/IP通信型プログラムです。サーバのポート番号をクライアントが取得するプログラムで、 while(1) { saddr.sin_port=htons(port); port++; fprintf(stdout, "%d\n", port); } のようなのをプログラムのどこに入れればよいのでしょうか？
Perlがサーバー上でうごきません

htmlファイルには <html> <form action="form2.cgi" method="get"> 食品名１<input type="text"name="form1"> <br> 食品名２<input type="text"name="form2"> <input type="submit"value="送信"> </form> </html> cgiファイルには #! /usr/bin/perl require "cgi-lib.pl"; &ReadParse(); print "Content-type:text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print "<title>フォーム</title>\n"; print "</head>\n"; print "<body>\n"; print "おいしい$in{'form1'}\n; print "まずい$in{'form2'}\n; print "</body>\n"; print "</html>\n"; exit; cgi-lib.plはサーバーにいれております。どうしてうごかないのでしょうか。
DBを用いたCGI認証スクリプト（perl、mysql）

DBに一行一ユーザーの情報があり（メールアドレス、パスワード）、 IDをメールアドレスとし、入力したメールアドレスが登録されているか入力したメールアドレスのパスワードがあっているか、をチェックするスクリプトです。初心者のためいろいろのサイトを見ながら作りましたが、下記のソースで何とか動いています。が、これでよいのか（スマートかどうか）、もっと簡単な方法があるのかどうかをお聞きしたく、質問させていただきました。よろしくお願いいたします。 #!/usr/bin/perl use DBI; use CGI; require "cgi-lib.pl"; #フォームからIDとPWを受け取る &ReadParse(*form); $input_id= "$form{'アイディー'}"; $input_pw= "$form{'パスワード'}"; $TABLE_name = 'メールアドレス'; $form = CGI->new; $ret = eval{ $dbh = DBI->connect('DBI:*******************) }; if ( !$ret ) { print "接続エラーが発生しました\n"; exit(); } else{ print "OK\n"; $sql = "SELECT パスワード FROM $TABLE_name where メールアドレス='$input_id'"; $sth = $dbh->prepare($sql); if(!$sth->execute){ print "SQL実行エラー\n"; exit; } $num_rows = $sth->rows; if($num_rows==0){ print "このEmailは登録されていません。\n"; } else{ #ヒットしたemailの行にあるパスワード=$rec $rec = $sth->fetchrow_array(); #ヒットしたemailの行にある「パスワード=$rec」と入力したパスワードがマッチするかどうか if($rec eq $input_pw){ #認証OK！会員ページへ print "<br>認証OK!<br>"; } else{ #認証NG（Emailは登録されているが、登録したemailとパスワードが一致しない） print "パスワードが違います\n"; } } $sth->finish; $dbh->commit; $dbh->disconnect; }
cgi(perl)でパラメータが渡せない

以下のプログラムでnum=9が伝わらないので、ミスをご指摘ください。グラフィカルなアクセスカウンタを表示させようとしていますがうまくいかないのでテキストモードでデバッグしています。 [ /usr/local/apache2/htdocs/gif-view.html ] <html> <head> <meta http-equiv="Content-type:" content="text/html; charset=UTF-8"> <title>gif-view</title> </head> <body> <iframe src="/cgi-bin/gif-test.cgi?num=9"></iframe>  </body> </html> [ /usr/local/apache2/cgi-bin/gif-view.cgi ] permission は 755 にしています。 #!/usr/bin/perl print "Content-Type: text/plain;\n\n"; print "gif-test.cgi\n"; $prm0 = @ARGV[0]; if($prm0 = "") { print "Param is exist\n"; } else { print "Param is empty\n"; 実行結果として gif-test.cgi Param is empty となります。 httpd.conf で Script Alias /cgi-bin/ "/usr/local/apache2/cgi-bin/" を有効にしています。
Perl 順序が！？

#! usr/bin/perl %toshi=("suzuki"=>24,"sato"=>26,"tanaka"=>32); foreach $key(keys(%toshi)){ print "($key,$toshi{$key})\n"; } exit; とありますが、どうして結果表示が (tanaka,32) (suzuki,24) (sato,26) となるのでしょうか？ (suzuki,24) (sato,26) (tanaka,32) なぜこれにはならないのですか？
Perlで配列の添え字を抽出したい

Perl初心者で、既出の質問かもしれませんが、ご教授願います。以下のように"*"が入っている値を抽出する処理があります。ーーーーーー処理ーーーーーー @array = ('aaa', 'b*b', 'ccc', 'dd*'); foreach (@array) { if ($_ =~/\*/) { print "OK\n"; } else { print "NG\n"; } } ーーーーーーーーーーーーーーーーーーー結果ーーー NG OK NG OK ーーーーーーーー＜質問＞上記結果より、OKとなった値の配列(添え字)を取得するにはどのようにすれば宜しいでしょうか？宜しくお願い致します。
Perlで use strict して our変数

Perl 初心者です。初めて質問します。 test_sub.pl で宣言した変数を test_main.pl から参照したくて悩んでいます。環境： WindowsXP / ActivePerl 5.14.2 -------------------- * test_sub.pl -------------------- #!/usr/bin/perl use strict; our $hoge = 'HOGE'; 1; -------------------- * test_main.pl -------------------- #!/usr/bin/perl use strict; require 'test_sub.pl'; print "Content-type: text/html\n\n"; print $hoge; -------------------- これを実行すると、 Global symbol "$hoge" requires explicit package name at C:/public_html/cgi-bin/test_main.pl line 7.\r というエラーが出ます。 require する前に、test_main.pl のほうで our($hoge); と宣言したり参照する際に print $main::hoge; とパッケージを指定したりすればいけるのですが、これらをしないとできないものなのでしょうか。 use strict; を書かなければ最初のソースでも動くのですが use strict は書きたい… 継承のようなことをしたいのです。ちなみに以下試してみたソースです。 -------------------- * test_main.pl -------------------- #!/usr/bin/perl ######################################## # NG use strict; require 'test_sub.pl'; print "Content-type: text/html\n\n"; print $hoge; ######################################## # OK our変数を宣言しておくといける =pod use strict; our ($hoge); require 'test_sub.pl'; print "Content-type: text/html\n\n"; print $hoge; =cut ######################################## # OK 参照する際にパッケージ名を指定すればいける =pod use strict; require 'test_sub.pl'; print "Content-type: text/html\n\n"; print $main::hoge; =cut ######################################## ######################################## # NG =pod use strict; use base qw(test_sub); print "Content-type: text/html\n\n"; print $hoge; =cut ######################################## -------------------- * test_sub.pm -------------------- #!/usr/bin/perl package test_sub; use strict; our $hoge = 'HOGE'; 1; -------------------- NG パタンはどちらも Global symbol "$hoge" requires explicit package name のエラーとなります。もしご存じの方がいらっしゃいましたら教えてください。よろしくお願いします。
PerlでのHTTPヘッダのStatus変更

内部処理の結果に応じて、成功の場合は「200 OK」、失敗の場合は「503 Service Unavailable」をHTTPヘッダのStatusに指定して返したいと思っています。ヘッダを "Content-Type: text/html\n\n" だけにして返す場合は問題ないのですが、その前に "Status: HTTP/1.1 200 OK\n" や "Status: HTTP/1.0 503 Service Unavailable\n" を追加するとInternal Server Errorになってしまいます。 [現状] -------------------------------------------- $ret=system("コマンド"); $header = "Status: HTTP/1.1 200 OK\n"; $cmt = "OK"; if ($ret == 256) { $header = "Status: HTTP/1.0 503 Service Unavailable\n"; $cmt = "NG"; } $header .= "Content-Type: text/html\n\n"; print "$header"; print "$cmt"; exit; -------------------------------------------- なにか、Statusを変更する良い手段はないでしょうか？よろしくお願いします。
perl 初心者です。　わかりやすくお願いします。

Perlを始めたのですが、本や色いろんなサイトを見てもよく分かりません。 Aと言うデータを読み込んで最大最小・平均・標準偏差を求めたいです。 (1)どこが間違っているのか1部づつでもいいので詳しく教えてください。 (2)一つ一つの意味がちゃんとはつかめていないと感じるので流れを教えてください。 #!/usr/bin/perl # 12345 STDIN use strict; use warnings; open ( FILEHANDLE , " < A " ) ; my @Str=<STDIN>; foreach my $Row (@Str ){ print $Row; } my $Minimum=$ARGV[0]; my $Maximum=$Minimum; my $Sum=$Minimum; my $temp=0; my $i=1; while ( $i < $Num_arg){ $temp=$ARGV[$i]; if ( $Minimum > $temp ) { $Minimum = $temp; }elsif ( $Maximum < $temp ){ $Maximum = $temp; } $Sum = $Sum + $temp; $i++; } my $Average = $Sum / $Num_arg; my $w = foreach my $w(0..$#Numbers){ ($Num_arg - $Average) ** / Num_arg; } my $Standarddivitation = sqrt ($w); print "Average value = $Average \n"; print "Maximum Value = $Maximum \n"; print "Minimum Value = $Minimum \n"; print "Standard devitation = $Standarddevitation;
FedoraCore5にてポートの開放ができません。

表題の通りですが。ポートが開かずに困っております。ドメインを取得したところで、 22, 25, 80, 110, 143, 587, 993, 995, 9922 番のポートを使いたいと思っておりますが、どうにも接続できません、まずは、とにかくhttpdとメール関係のポートを開けたいです。調査状況としては下記の通りです。 #nslookup #dig #whois #ping (自宅クライアント側　windows機もから行えるものは行いました。) 以上のコマンドは正常に返答があります。 windows機から ping hoge.net と打つと正常に応答がありますが、 ping www.hoge.net と打つと Ping request could not find host www.domain.net. Please check the name and try again といわれるが気にかかりますが話をサーバー側に戻しますと。。。。以下の様にコマンドを打つと #nmap localhost 22/tcp open ssh 25/tcp open smtp 80/tcp open http 110/tcp open pop3 111/tcp open rpcbind 143/tcp open imap 587/tcp open submission 631/tcp open ipp 993/tcp open imaps 995/tcp open pop3s 9922/tcp open ssh 3306/tcp open mysql 50000/tcp open iiimsf 50002/tcp open iiimsf こんだけポートが空いてるにもかかわらず。 #nmap hoge.net とドメインでコマンドを打つと 135/tcp filtered msrpc 445/tcp filtered microsoft-ds 593/tcp filtered http-rpc-epmap 1720/tcp filtered H.323/Q.931 4444/tcp filtered krb524 以上の5つしかポートが開かれておりません。ちなみに #netstat -an とすると (下記　一部) Active Internet connections (servers and established) tcp 0 0 0.0.0.0:3306 0.0.0.0:* LISTEN tcp 0 0 0.0.0.0:587 0.0.0.0:* LISTEN tcp 0 0 0.0.0.0:36207 0.0.0.0:* LISTEN tcp 0 0 0.0.0.0:111 　0.0.0.0:* LISTEN tcp 0 0 127.0.0.1:50000 0.0.0.0:* LISTEN tcp 0 0 127.0.0.1:50002 0.0.0.0:* LISTEN tcp 0 0 127.0.0.1:631 0.0.0.0:* LISTEN tcp 0 0 0.0.0.0:25 0.0.0.0:* LISTEN tcp 0 0 127.0.0.1:50000 127.0.0.1:46678 ESTABLISHED tcp 0 0 127.0.0.1:46678 127.0.0.1:50000 ESTABLISHED tcp 0 0 :::993 :::* LISTEN tcp 0 0 :::995 :::* LISTEN tcp 0 0 :::110 :::* LISTEN tcp 0 0 :::143 :::* LISTEN tcp 0 0 :::80 :::* LISTEN tcp 0 0 :::22 :::* LISTEN udp 0 0 0.0.0.0:32768 0.0.0.0:* udp 0 0 0.0.0.0:32769 0.0.0.0:* udp 0 0 0.0.0.0:714 0.0.0.0:* udp 0 0 0.0.0.0:5353 0.0.0.0:* udp 0 0 0.0.0.0:111 0.0.0.0:* udp 0 0 0.0.0.0:631 0.0.0.0:* udp 0 0 :::32770 :::* ～　以下、省略。～ iptablesも http://centossrv.com/iptables.shtml を一部参考にし、きちんと設定しました。このサイトでも紹介いるようなポートのOPENをチェックするサイトもいくつか試しましたが135番がStealthになるだけで、他、1000番台以下は全てCLOSEになっています。ルーターはBUFFALOのWBR2-G54(ちょっと古いですが (;..) ) WAN側IPアドレス → LAN側のIPアドレスという風に各ポート開放してありす。かなり長文になってしまい、説明も下手で申し訳ありませんが、よろしくお願いいたします。尚、まだ情報不足でしたら、追記いたしますので、本当によろしくお願いいたします。
ポートの開放について教えて下さい。

質問させて下さい。ネットゲームをするにあたりポートの開放が必要であるとのことで、ルータの設定をしてポートの開放を試みたのですが全く解放が出来ません。 1年くらい前に別のゲームでポートを開放したときは問題なく解放できました。プロバイダもルーターもPCも変えていません。どういった原因が考えられるでしょうか？当方の環境です。回線 NTT西日本Bフレッツファミリー100 プロバイダ InfoSphere（ダイナミックタイプ）ルーター COREGA BAR Pro3 使用PC WindowsXPSP2 ルーターのポート解放にあたり参考にしたサイト http://www.akakagemaru.info/port/corega/02.html http://www.geocities.jp/seidy_seidy/bb/port.html http://www.iodata.jp/support/advice/np-bbrm/ipkotei.htm ポート解放のチェックをしたサイト http://www.cman.jp/network/support/port.html 結果のメッセージあなたのIPアドレス：XX.XXX.39.190 　テスト日時：2007/07/11 02:03:53 発行コマンド　監視エンジンポートチェック　ホスト＝XX.XXX.39.190 　ポート＝4444 (?_?)　ホスト＝XX.XXX.39.190 　ポート＝4444　に到達できませんでした。応答時間は 36.32秒でした。他の解放チェックのサイトでもポートに接続できないというメッセージが表示されます。試しに別のPCで解放を試みましたが同じ結果でした。ご教示の程よろしくお願いします。
perl　ハッシュ　エラー

現在perlの勉強中で、ハッシュの項目まできました。しかし、use strictにするとこのコードがエラーになります。 #!/usr/bin/perl use strict; use warnings; print "Content-type:text/html\n\n"; $hoge{"key1"} = "value1"; print $hoge{"key1"}; exit; ヴァージョンは5.8.9です。use strictをコメントアウトすればエラーはでません。どうしてエラーになってしまうのでしょうか？どうすればエラーを出さずに表示することができるのでしょうか？どうかご教授ください。よろしくお願いします。
perlがうごきません

<html> <head> <title>form3</title> </head> <body> <form action="form3.cgi" method="post" name="form3"> <input type="text"name="form3"> <input type="submit"value="送信"> </form> </body> </html> :::::::::::：：：：：：：：：：：：：：：：：：：： #! /usr/bin/perl if($ENV{"REQUEST_METHOD"} eq "GET"){ $str=$ENV{QUERY_STRING"}; }else{ read(STDIN, $str, $ENV{"CONTENT_LENGTH"}); } $str=~ tr/+/ /; $str=~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c", hex($1))/eg; foreach(split(/&/, $str)){ my ($key, $value)=split(/=/, $_); $data{$key}=$value; } print "Content-type:text/html\n"; print "\n"; print "<html>\n"; print "<head><title>form3</title></head>\n"; print "<body>$data{'form3'}</body>\n"; print "</html>\n"; exit; :::::::::::::::::：：：：：：：：：：：：：：：どうしてもうごきません。どこかスクリプトがまちがっているのでしょうか。パールのパスはあっています。
perでメールが送信出来ない場合の確認方法

perlで下記のような感じでレンタルサーバーで動かしたところ送信が出来ませんでした。その場合に、レンタルサーバーなのでsendmailのログも見れないで困っていますので、原因の確認方法が解ればご教示頂ければ有難いです。 my ( $SENDMAIL ) = '/usr/sbin/sendmail'; open(MAIL, "| $SENDMAIL -t "); print MAIL "From: ｘｘｘ@xxx.co.jp\n"; print MAIL "To: ｘｘｘ@xxx.co.jp\n"; print MAIL "Subject: test\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "Content-Type: text/plain; charset=\"ISO-2022-JP\"\n"; print MAIL "\n"; print MAIL "test_letter\n";
ポート開放をしたいのですが

tcp 7144のポートを開放したいとおもっています（ピアキャスト）一時的にセキュリティソフト（カスペルスキーをプロテクションの一時停止、ウィンドウズの標準ファイアーウォール無効にしてつかっているルータの設定をして http://www.aterm.jp/manual/e/200ref/202/guide/8/8w_fr6.html ここのルータの説明をみて natエントリ番号を1,変換対象プロトコルTCP,変換対象ポート7144 宛先アドレス　192.XXX.0.3 (コマンドプロンプトでipconfig /allをやりIP Addressの数字を記述編集ボタン、登録ボタン→ルーター再起動して http://www.akakagemaru.info/port/tcpport.php やポート開放テストサイトでポートを開放されてるか確認したのですが開放されていませんでした。 upnpj,開放くんなどのツールをつかっても無理でした。 xpでau-one-netですピアキャストのツールも起動していますなぜできないのか教えてもらえませんか？またプロバイダ自体がポートを閉じてもだめだと聞きました。プロバイダ自体が閉じていたらそれを確認する方法を教えてくださいお願いします

perlでPORT監視の方法

perlでPORT監視の方法

質問者が選んだベストアンサー

お礼 2012/05/04 12:28

関連するQ&A

perlでLocation

perlのsystem関数でrsyncが動かない

Perl からbashを呼び出したい

ファイル共有のポート許可について

perlがうごきません

TCP/IP通信型プログラムです。サーバのポート番号をクライアントが

Perlがサーバー上でうごきません

DBを用いたCGI認証スクリプト（perl、mysql）

cgi(perl)でパラメータが渡せない

Perl 順序が！？

Perlで配列の添え字を抽出したい

Perlで use strict して our変数

PerlでのHTTPヘッダのStatus変更

perl 初心者です。　わかりやすくお願いします。

FedoraCore5にてポートの開放ができません。

ポートの開放について教えて下さい。

perl　ハッシュ　エラー

perlがうごきません

perでメールが送信出来ない場合の確認方法

ポート開放をしたいのですが

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

perlでPORT監視の方法

perlでPORT監視の方法

質問者が選んだベストアンサー

お礼 2012/05/04 12:28

関連するQ&A

perlでLocation

perlのsystem関数でrsyncが動かない

Perl からbashを呼び出したい

ファイル共有のポート許可について

perlがうごきません

TCP/IP通信型プログラムです。 サーバのポート番号をクライアントが

Perlがサーバー上でうごきません

DBを用いたCGI認証スクリプト（perl、mysql）

cgi(perl)でパラメータが渡せない

Perl 順序が！？

Perlで配列の添え字を抽出したい

Perlで use strict して our変数

PerlでのHTTPヘッダのStatus変更

perl 初心者です。 わかりやすくお願いします。

FedoraCore5にてポートの開放ができません。

ポートの開放について教えて下さい。

perl ハッシュ エラー

perlがうごきません

perでメールが送信出来ない場合の確認方法

ポート開放をしたいのですが

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

TCP/IP通信型プログラムです。サーバのポート番号をクライアントが

perl 初心者です。　わかりやすくお願いします。

perl　ハッシュ　エラー

カテゴリ
一覧

専門家に質問してみよう
専門家登録