my $host = 'www.cybersyndrome.net'; my @page = qw(plr3 pla3 pld3 pls3);
# パスげっと my ($id, $pw) = eval{ my $request = HTTP::Request->new(GET => "$host/"); my $list = $Ua->request($request)->as_string; return ($list =~ m|(?!>)<b>([0-9A-Za-z]{8})</b>|) x 2; };
# それぞれのページを読みに行く for my $cnt (@page) { my $request = HTTP::Request->new(GET => "$host/$cnt.html"); my $response = $request->authorization_basic($id, $pw); |
