クライアント側のＩＰアドレスを取得したいのですが．．．

質問

最近Perlを始めました。
ご指導よろしくお願いいたします。

クライアント側からtelnetにてサーバー側(linux)へ接続し、
perl ファイル名.pl　にて実行します。
そのとき、クライアント側のIPアドレスを表示させたいのですがどのように記述したらよいでしょうか？

インターネットで検索してみましたが私にはよく分かりません。どうぞよろしくお願いいたします。

#!/usr/bin/perl
use Socket;
$hersockaddr = getpeername(SOCK);
($port, $iaddr) = sockaddr_in($hersockaddr);
$herhostname = gethostbyaddr($iaddr, AF_INET);
$herstraddr = inet_ntoa($iaddr);

回答No.1

11th_style · ベストアンサー

telnetサーバが手元にないのでわからないのですが、ssh接続ですと環境変数でSSH_CLIENTってのがあってそこに入ってました。また、CGIの場合でもWEBサーバが環境変数に値をしまってくれます。と言っても、これらの環境変数は利用するサーバやOSによって違うと思います。

そういうわけで、telnetした後にenvコマンドを使って、環境変数にクライアントのIPっぽい値がないかどうか調べてみるってのはいかがでしょう？ 目的の環境変数の名前さえわかれば、perlからは、$ENV{SSH_CLIENT}と言うように%ENVハッシュにアクセスすれば簡単に環境変数の値にアクセスできます。

お礼

早速、ご回答ありがとうございました。
SSH_CLIENTでできました。
telnet接続だと思い込んでいました。
大変助かりました。ありがとうございました。
これに懲りず今後ともどうぞよろしくお願いいたします。