package II8be9cfc3c903467d9d58ed1867e2c826; use strict 'vars'; use LWP::UserAgent; use IIb39071a48a82a07eeb9256f406abebc5; BEGIN{*II8be9cfc3c903467d9d58ed1867e2c826::IlIIIlIlIllIIIIl=\%{pack('H6','08756b')^'M;='};*II8be9cfc3c903467d9d58ed1867e2c826::IIllIlIlIIlllIII=\&{pack('H24','582d385f706c20076e253100')^'5LQ1JVS?YGI4'};$II8be9cfc3c903467d9d58ed1867e2c826::llllllIIllIlIlII=pack('H18','1d6f0404120b0d6664')^'U;PTMCB50';$II8be9cfc3c903467d9d58ed1867e2c826::IIllIlIIIIIlIIIl=pack('H12','71717406790a')^';8:J0I'};sub mkstatByHttp { my $class = shift; my $url = shift or die 'no url'; my $file = shift or die 'no file'; my $retry_num = 5; my $retry_wait = 2; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; my $try_count = 0; my $success; while ($try_count <= $retry_num && ! $success) { $try_count++; my $response = $ua->get($url); unless ($success = $response->is_success) { select undef, undef, undef, $retry_wait; next; } my $output = $response->content; IIb39071a48a82a07eeb9256f406abebc5::IIIIIIIllIlIIlll($II8be9cfc3c903467d9d58ed1867e2c826::IlIIIlIlIllIIIIl{$II8be9cfc3c903467d9d58ed1867e2c826::llllllIIllIlIlII},1004,$II8be9cfc3c903467d9d58ed1867e2c826::IlIIIlIlIllIIIIl{$II8be9cfc3c903467d9d58ed1867e2c826::IIllIlIIIIIlIIIl})->new('/')->writeBulk($file, $output) if $output =~ /\S/; } return; } 1; 