perl如何实现获得外网IP

ppiqq

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

cobrawgl

#!/usr/bin/perl

use strict;
use warnings;

use LWP;

my $ua  = LWP::UserAgent->new();

my $url = 'your-adsl-url'  # for example: http://192.168.0.1/info.htm
my $req = HTTP::Request->new(GET => $url);

my $user   = 'user';
my $passwd = 'passwd';
$req->authorization_basic($user,$passwd);

my $res = $ua->request($req);

die "error\n" unless $res->is_success;

print $res->content;

#
# parse $res->content and get the ip we need.
#

cobrawgl

我有一招，用不着 perl ，你给分吗

ppiqq

楼上的大哥，我要补充一点，要把这个得到的IP值存入到文件
有啥子好办法，不用perl也行

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;

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

ppiqq

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

不死草

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

cobrawgl

你的机器能登录 adsl 吗

cobrawgl

给分吧

cobrawgl

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

这个更简单，呵呵