- ベストアンサー
perlでPORT監視の方法
- perlでPORT監視を行う方法について具体的なコードを示しました。
- 指定したPORTが使用可能かどうかを判断するために、Net::Pingモジュールを使用しています。
- LAN内での動作については、問題が発生しているようです。良い方法があれば教えてください。
- Tommy4ever
- お礼率88% (8/9)
- Perl
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連する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
- 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
- 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); ==============================
- ベストアンサー
- Perl
- ファイル共有のポート許可について
L2SWのアクセスリストで、ポート制御をしていますが、 同一セグメント内は、ファイル共有を許可する必要性があり、 以下のポートを許可したのですが、次のようなエラーが 出力されて接続できません。pingも通りますし、名前解決もできています。 何か不足しているポートがあるのでしょうか？ 137 UDP/TCP 138 UDP 139 TCP 445 UDP/TCP '\\XXX.XXX.XX.X が見つかりません。綴りを確認してもう一度実行するか、[スタート] ボタンをクリックし、[検索] をクリックして、項目を検索してください。」
- 締切済み
- Windows系OS
- 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の場所も正確です。
- ベストアンサー
- Perl
- TCP/IP通信型プログラムです。 サーバのポート番号をクライアントが
TCP/IP通信型プログラムです。 サーバのポート番号をクライアントが取得するプログラムで、 while(1) { saddr.sin_port=htons(port); port++; fprintf(stdout, "%d\n", port); } のようなのをプログラムのどこに入れれば よいのでしょうか？
- ベストアンサー
- C・C++・C#
- 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
- 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; }
- ベストアンサー
- Perl
- 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> <!-- <img src="/cgi-bin/gif-test.cgi?0" width=50 height=50> --> </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
- 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
- 3月17日に最後の生理があり、彼氏との避妊無しの性交渉は3月18日から4月8日の間に毎週1回程度ありました。一方、浮気相手との性交渉は4月13日、16日、17日、18日、23日にあり、避妊無しで中出しが行われました。
- 妊娠検査薬で陽性反応が出たため、5月1日に産婦人科を訪れ、エコー検査で胎嚢は見られず、血液検査の結果HCGは1351、Progesterone IIIは45.20でした。今後の検査結果次第では、流産や子宮外妊娠の可能性もあります。
- 妊娠の父親は彼氏か浮気相手か、判断することは難しいです。妊娠周期からみると、彼氏の子であれば胎児が既に見えている可能性がありますが、浮気相手の子であれば排卵日が2週間程度遅れていることになります。皆さんのご意見を聞きたいです。
お礼
ご返信ありがとうございます。 無事に動きました。 ありがとうございました。