怎么得到当前IP并赋值给变量

zlyu583

怎么得到当前IP并赋值给变量

福瑞哈哥

原帖由 zlyu583 于 2007-5-3 13:48 发表
怎么得到当前IP并赋值给变量

你的当前IP指的是什么？如果你有一个跟远程相连的socket，你可以通过$socket->sockhost来得到本地IP，不过这没什么用，因此，要看你的实际用途，本地IP太多了，只有说清楚实际用途才能确定。

zlyu583

因该是本机的IP地址

大蚂蚁

系统有多个IP你怎么取舍？ 到底要哪个？

fengpxu

如果你不是用在商业上的话！只是自己玩玩，可以采用如下办法！
use LWP::Simple;

           my $url = 'http://www.showmyip.com';
        my $content;
        while ()
        {
                if ($content = get $url)
                {
                   last;
                }
        }
       
        $content =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;
        return $1;
有经常有需要的大道自己的ip，就用这个办法!呵呵！

shhgs

127.0.0.1

fayland

try

use Sys::Hostname;
use Socket;
$host = hostname();
my $address = inet_ntoa(
        scalar gethostbyname( $host || 'localhost' )
        );
print $address;