perl如何实现获得外网IP

ppiqq

谢谢大家
perl如何实现获得外网IP
公司内部有一台linux机器，通过路由器和猫相连，
现在想通过perl程序获得外网IP，这个应该怎样实现呢？谢谢大家

yifangyou

我看必须要访问一个外网网页，由这个网页告诉你的地址

abobchen

好东西~~~~

SunGod

非常不靠谱的方法

ppiqq

谢谢楼上的大哥指点……给分给分

cobrawgl

#!/usr/bin/perl
use LWP::Simple;
print get('http://whatismyip.org');

这个更简单，呵呵

cobrawgl

给分吧

cobrawgl

你的机器能登录 adsl 吗

不死草

如果妳是用Win-OS的話，妳可以使用Perl來調用Dos命令來查看本機的外網IP。獲得的值妳想用來幹嘛都可以，但是要是Linux偶就不知道暸。

ppiqq

哇 果然可以啊
但
楼上的大哥啊
人家要是更改页面了呢，那这样的取值是不是也是不对的啊
PS:我先再挂会儿

cobrawgl

#!/usr/bin/perl

use strict;
use warnings;

use LWP;

my $agent = LWP::UserAgent->new;
my $req   = HTTP::Request->new(GET => 'http://www.ip138.com/ip2city.asp');
my $res   = $agent->request($req);

my ($ip) = $res->content =~ /\[(.*)\]/;

print $ip;

——————————————————————————
投机取巧了