Age2ch Part14 - 暇つぶし2ch

Age2ch Part14 at SOFTWARE

190:名無しさん＠お腹いっぱい。
06/01/15 09:09:22 /XZ1zp+D0
>>189
topをみてパスを拾って、認証掛けて読み込むんだけど。。。
search.plはよーわからんｗＷｗｗｗ

my $host = 'www.cybersyndrome.net';
my @page = qw(plr3 pla3 pld3 pls3);

# パスげっと
my ($id, $pw) = eval{
my $request = HTTP::Request->new(GET => "URLﾘﾝｸ($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 => "URLﾘﾝｸ($host)");
my $response = $request->authorization_basic($id, $pw);
|

つーかさ、さいばばもMRPも串杜も全部通らないっすヨｏｒｚ

次ページ

続きを表示

1を表示