NEC WR7600H グローバルＩＰアドレス取得スクリプト - @鯖味噌缶

#!/usr/bin/perl

use Net::Telnet();

$lines   ="";
$wp_host = '192.168.**.**'; <-- ルータのＩＰアドレス
$wp_user = 'admin';   <-- ルータ管理者アカウント名（固定）
$wp_pass = '*********'; <-- ここには自分のパスワードを入れてね

$t=new Net::Telnet(Timeout => 10);
$t->open($wp_host);
$t->waitfor('/login   :.*$/');
$t->print("$wp_user");
$t->waitfor('/Password:.*$/');
$t->print("$wp_pass");
$t->waitfor('/>.*/');

$result = "ERR\n";
$t->print("show info wan 22");
($lines)=$t->waitfor('/>.*/');

foreach $_ (split(/\n/, $lines)) {
if(/^( +)(IP ADDRESS +)(\.+ )( *)([0-9]*\.)( *)([0-9]*\.)( *)([0-9]*\.)( *)([0-9]*)/) {
  $result = "$5$7$9$11\n";
}
}
if($result == "0.0.0.0") {
  $result = "ERR\n";
}
print $result;
$t->close;
exit