Добавлено @ 13:00
Переформулировал: Как пройти авторизацию на роутере:
| Код |
#!/usr/bin/perl
use Net::HTTP;
my $s = Net::HTTP->new(Host => "192.168.1.1") || die $@;
$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
my($code, $mess, %h) = $s->read_response_headers;
while (1) {
my $buf;
my $n = $s->read_entity_body($buf, 1024);
die "read failed: $!" unless defined $n;
last unless $n;
print $buf;
}
|
Но ведь он ж запаролен((
Как логин/пароль то ввести..(, а то -
| Код |
root@iserver:~/pl# perl test.pl
<HTML><HEAD><TITLE>401 Unauthorized</TITLE></HEAD>
<BODY BGCOLOR="#cc9999"><H4>401 Unauthorized</H4>
Authorization required.
<HR>
<ADDRESS><A HREF="http://www.acme.com/software/micro_httpd/">micro_httpd</A></ADDRESS>
</BODY></HTML>
|
|