>>418,419
どうせperl使うならlynxやめない？俺はこうしてる。
冗長なコードでスマソ。

# HTTP-LiteとMIME-Base64使用。他の方法でも代用可。
use HTTP::Lite;
use MIME::Base64;
$http = new HTTP::Lite;
$encoded = encode_base64('admin:admin');
$encoded="Basic " . $encoded;
$http->add_req_header("Authorization", $encoded);
$req = $http->request("http://192.168.0.1/html/devicePanel.html")
or die "Unable to get document: $!";
$_=$http->body();
/sIpAddress.*"(\d+\.\d+\.\d+\.\d+)"/;
$New_IP=$1;
以下略