Chinaunix

标题: 怎么得到当前IP并赋值给变量 [打印本页]

作者: zlyu583 时间: 2007-05-03 13:48
标题: 怎么得到当前IP并赋值给变量
怎么得到当前IP并赋值给变量

作者: 福瑞哈哥 时间: 2007-05-03 14:14

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

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

作者: zlyu583 时间: 2007-05-03 15:49
因该是本机的IP地址

作者: 大蚂蚁 时间: 2007-05-03 17:32
系统有多个IP你怎么取舍？到底要哪个？

作者: fengpxu 时间: 2007-05-04 10:04
如果你不是用在商业上的话！只是自己玩玩，可以采用如下办法！
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 时间: 2007-05-05 05:00
127.0.0.1

作者: fayland 时间: 2007-05-05 11:19
try

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

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)