usr bin perl use warnings use strict use LWP UserAgent my ua LWP UserA

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => 'ХУЙ !! ПИЗДА !! НОВЫЙ ГОД !!', timeout => 15);
for (1 .. 3) {
my $req = $ua->get("http://upyachka.ru/$_/")->content;
my @upmans = $req =~ m,<SPAN class="user-logout" noinfo="true">(.+?)</SPAN>,ig;
print Dumper(@upmans);
sleep 5;
}