質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

Q&A

解決済

2回答

4062閲覧

接続元のIPアドレスを知るためには?

trm

総合スコア117

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

0グッド

0クリップ

投稿2017/12/09 06:35

サーバーのプログラムのあるボタンを押したときに、その接続元のIPアドレスを知るにはどうすればいいですか?Perlでそれがあるならばそれを教えてください。ないならば他の方法と、そのプログラムからPerlにデータを引き渡す方法を教えてください。よろしくお願いします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

nakasho_dev さんのおっしゃるサイトを読んで理解すべきであると思いますが・・・。

 以下、だいぶ古いコードですが、動作確認しているものです。

perl

1#!/usr/local/bin/perl 2 3use strict; 4use CGI; 5 6my $title = "あなたの環境"; 7 8my $cgi = CGI->new; 9my $envdata = undef; 10my $i = 1; 11 12foreach my $name (sort keys(%ENV)) 13{ 14 if ($i > 1) 15 { 16 $envdata .= "\n"; 17 } 18 19 $envdata .= " <tr><td align=\"right\">$i</td><td>$name</td><td>$ENV{$name}</td></tr>"; 20 $i++; 21} 22 23my $html=<<END; 24<html> 25<head> 26 <meta charset="UTF-8"> 27 <title>$title</title> 28</head> 29<body leftmargin="40"> 30<br> 31<table> 32$envdata 33</table> 34<br> 35<br> 36</body> 37</html> 38END 39 40print $cgi->header( 41 -type=>'text/html', 42 -charset=>'UTF-8', 43 -Pragma=>'no-cache', 44 -robots=>'nofollow' 45 ); 46print $html;

投稿2017/12/09 07:31

showkit

総合スコア1638

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

trm

2017/12/09 08:28

ありがとうございました。プログラムではREMOTE_ADDRを見ればいい、ということらしいですが、そこにはIPアドレスでなく、127.0.0.1と表示されます。レンタル・サーバーなどではそこに接続元のIPアドレスが表示されるんですね?
otn

2017/12/09 12:51

127.0.0.1はIPアドレスですよ。自分自身を表します。
guest

0

ベストアンサー

以下のリンクを参考に環境変数のREMOTE_ADDRを取得すれば良いと思います。
環境変数($ENV{環境変数名}) | Perl・CGI講座

投稿2017/12/09 06:41

nakasho_dev

総合スコア2655

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nakasho_dev

2017/12/09 06:46

上記の情報は「Perl 接続元IP」というキーワードですぐに取得できました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問