- ベストアンサー
【 REMOTE_HOSTの値の取得方法について 】
既製のＣＧＩを設置するのがイッパイイッパイの 初心者ですm(__)m REMOTE_HOSTの値を取得して表示させたいのですが 当方レンタル中のサーバーの初期設定では取得できず 下記の如くの手順で取得するように表示してありましたが どうにも理解できず困っております。 下記の「Perl内」とは何処の事を指しているのか アドバイスを頂きたくお願い申し上げます。 ＊＊＊＊以下、該当サーバーの説明文引用＊＊＊＊＊ 【 REMOTE_HOSTの値の取得方法について 】 レンタルサーバーの処理速度を優先して、初期状態ではIPアドレスからDNSの参照をしないように設定している為、REMOTE_HOSTの値を取得したい場合はPerl内で下記の記述をして下さい。 $addr = $ENV{'REMOTE_ADDR'}; $host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;
- miyadasu
- お礼率100% (4/4)
- Perl
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
perl内でとはperlでかかれているcgiのプログラムの中でということだと思います。つまりcgiで表示したい。htmlの前にかけばいいのではないでしょうか、たとえばhogehoge.cgiをつぎのようにかきます。 まず1行目でperlの設定です。 #!/usr/bin/perl （もちろんこの1行目のperlの設定はプロバイダーによって違いますが） そしてそのあとにかけばいいのでは、 $addr= $ENV{'REMOTE_ADDR'}; $host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr; そうすると変数$hostに代入されますから、それを たとえば次のようにファイルに記録して open(FILE,">>hogekiroku.txt"); print FILE "$host"; close File;#実際には時間なども記録することになると思いますが、 そしてそのあとからhtmlファイルを 次のように吐き出せばできます。 私のところでもDNSは禁止なのでこの方法で記録しています。 print "Content-type: text/html\n\n"; print <<EOF; <HTML><HEAD> <TITLE>hogehoge</TITLE> </HEAD> <body> hoge </body> </html> EOF
その他の回答 (1)
- faith_faithful
- ベストアンサー率51% (14/27)
「Perl内」というのは設置しているCGIスクリプトのことだと思います。 Perlで記述されたスクリプトの意味でしょう。（確かに「Perl内」ってヘンな言い方ですが。） で、スクリプト内のどこにその記述をすればいいかについては、スクリプトによって違いますので、スクリプトの中身をよくご覧になってくださいとしか言えません。
お礼
たしかに・・・
関連するQ&A
- ページのアドレスを取得する記述方法を教えてください。
たとえば、ＩＰ、ＨＯＳＴを取得するには、 $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if(!$host && $addr){ $host = (gethostbyaddr(pack("C4",split(/\./,$addr)),2))[0]; } と記述して、 センドメール部分に、 $host , $addrをどこかに記述します。 これと同じように、ページのアドレスを取得する記述はどうすればいいのか教えてください。
- 締切済み
- CGI
- [perl・php]gethostbyaddrは重い？
今まで、REMOTE_ADDRを取得してアクセスログに記録していたのですが、最近、下記の存在を知りました。 $host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2); ただ、これで、多大な負荷がかかるようならやめようと思うのですが、どの程度の負荷になるのでしょうか？ ご存知の方、回答、宜しくお願い致します。
- ベストアンサー
- Perl
- ＨＯＳＴが表示されない。
お世話になります。 早速ですが、サイトで調べ、 以下のコーディングでipアドレスと、ホスト名？を表示したいのですが、 ｐｅｒｌのシミュレーションで実行すると表示されるのですが、 私が借用しているサイト（infoseek）ではipアドレスしか表示されません。 （ipアドレスを、直接$addrにセットしても同じ結果です。） サイトにより、制限等が掛けられているのでしょうか。 コーディングの誤りであれば指摘していただきたくお願いします。 $addr = $ENV{'REMOTE_ADDR'}; $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2); print "$host\n"; print "<br>\n"; print "$addr\n"; 以上、宜しくお願いします。
- ベストアンサー
- Perl
- PerlからPHPに移植したアクセス制限
下記は、CGIファイルから持ってきたスクリプトをPHPに変換してみたものです。 エラーが出るの出ます-> Parse error: syntax error, unexpected '/', expecting ')' in /home/users/1/raindrop.jp-5247423/web/tsukushinbo/bbs/bbs_header.php on line 32 どう修正すれば教えていただきたいです。 <?php #----------------# # ホスト名取得 # #----------------# function get_host(){ $host = $_SERVER{'REMOTE_HOST'}; $addr = $_SERVER{'REMOTE_ADDR'}; if($gethostbyaddr){ if ($host === "" || $host === "$addr") { $host === gethostbyaddr(pack("C4", split(/\./, $addr)), 2); $host === gethostbyaddr(pack($addr)); } } if($host === "") { $host = $addr; } } ?>
- ベストアンサー
- PHP
- REMOTE_HOST
APACHE2.xで、REMOTE_HOSTを返すまでの動作がどうなっているか、どなたかわかりませんでしょうか？ DNSに問い合わせたものを返すのか、あるいはリクエストに含まれるなんらかの値を返すのか。 というのは、REMOTE_HOSTでリクエスト元のリモホを取得しているのですが、一部リクエストでREMOTE_HOSTが偽装されているようなのです。 ネットで調べても、内部で問い合わせているだけという話もあれば、偽装は可能なのでREMOTE_HOSTとREMOTE_ADDRを比較することは有効という話もあり… APACHEの仕様書も見つからず…
- ベストアンサー
- その他([技術者向] コンピューター)
- CGIの時間の環境変数
ちょっとタイトルがあっているのか、イマイチ心配なのですが(汗) フォームのCGIを作っています。 登録情報がメールで届くようにしています。 ホスト名とかIPアドレス、ユーザーエージェントは下記でできました。 $host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2); $addr = $ENV{'REMOTE_ADDR'}; $HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}; フォームに登録してくれた曜日とか時間を取るやり方がわかりません。 どなたかお知恵をお貸しください m(__)m
- ベストアンサー
- Windows XP
- $ENV{'REMOTE_HOST'}について
CGIにて$ENV{'REMOTE_HOST'}を取得したところ スパム投稿なのですが、$ENV{'REMOTE_HOST'}が IPアドレスの値である142.54.182.186が入っていました。 普通はkd182249232116.au-net.ne.jp などという形になると思うのですが 142.54.182.186 となっていることが通常ありえるのでしょうか？ リモートホストを取得し、IPアドレスの形式であった場合、 この投稿者を弾いてしまっても問題ありませんか？
- ベストアンサー
- CGI
- Perlを使ったアクセス制限方法
CGIのページにアクセス制限を掛けたいと思い 検索エンジンを使い色々探しまして下記のアクセス制限方法を見つけました。 http://easycgi.xrea.jp/perltips/acclimit.htm を参照して CGIの最初（#!/usr/bin/perl の次の行）に下記スクリプトを埋め込みました。 sub check { @hosts = ('hoge.ne.jp','hoge.co.jp'); $host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2) || $ENV{'REMOTE_ADDR'}; foreach $i (@hosts) { if ($host =~ /$i/) { print "アクセスが許可されていません。\n"; exit; } } } リモートホストでアクセス制限を行いたいのですが 上記の方法を試しても、hoge.ne.jpとhoge.co.jpからアクセス出来てしまいました。 htaccessを使わずにCGIページへアクセス制限を掛ける方法はないでしょうか？ 何かアドバイス頂けると助かります。
- 締切済み
- Perl
- CGIにてソフトバンクがPCとして認識されます。
掲示板のCGIなのですが、ソフトバンクではPC画面へ飛ばされてしまいます。下記の部分あたりではないかと思うのですが、書き直しで解決できるのでしょうか？このCGIを使いたいので、お願い致します。 #▼ホスト名・ＵＡ取得 $HOST = $ENV{'REMOTE_HOST'}; $ADDR = $ENV{'REMOTE_ADDR'}; $UA = $ENV{'HTTP_USER_AGENT'}; $SN = $ENV{'HTTP_X_UP_SUBNO'}; if ($UA =~ /^DoCoMo\/\d/) { $AGEN = "i-mode"; }elsif ($UA =~ /^Vodafone\/\d/) { $AGEN = "Vodafone"; }elsif (($UA =~ 'UP.B') && ($SN ne "")){ $AGEN = "AU"; }else { $AGEN="PC";} if ($UA =~ /Mozilla\/|MSIE|Netscape|Opera|Lynx|AOL|Gecko/) {$AGEN="PC";} if ($HOST eq '') { $HOST = $ADDR; } if ($HOST eq $ADDR) { $HOST = gethostbyaddr(pack('C4',split(/\./,$HOST)),2) || $ADDR; }
- 締切済み
- CGI
- PerlでIPアドレスを取得する方法
Perl5.6 or 5.8を使っております。 環境変数からIPの取得をするのは、CGIで動いている前提？ですが、 CGIでなくてperlスクリプトが単体で動作した場合に他の例えばサーバーのアドレスを知るにはどのようにしたらよいのでしょうか？ 自アドレスはgethostbyaddrで取得できます。 REMOTE_ADDRの値を取得したいです。
- ベストアンサー
- Perl
お礼
「ばっちり」です！！！助かりました。 う～ん勉強になります。 初心者にも判りやすい回答を本当に有難う御座います！ 良回答：１００点！！！です。
補足
追記：これを機会にもっと勉強しますm(__)m