Вземи мерки че иде бичето

THE BEGINING: get odit.info->index.page

extract all of a href="forum_openthread.php?ThreadID=23981&ForumID=1"

print in extracted_linked_pages "$HeadHunter_Sid"


goto first_row


close
close

end of odit.info

__END__

THE BEGINING:

#!perl

use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;
$url = "http://www.odit.info/";; # for instance
$ua = LWP::UserAgent->new;
my @imgs = ();
sub callback {
my($tag, %attr) = @_;
return if $tag eq 'img';
push(@imgs, values %attr);
}
$p = HTML::LinkExtor->new(&callback);
$res = $ua->request(HTTP::Request->new(GET => $url), sub {$p->parse($_[0])});
my $base = $res->base;
@imgs = map { $_ = url($_, $base)->abs; } @imgs;
foreach (@imgs) {
if (/forum_openthread.php/) { { push (@rlink,$_); } }
}
open A, ">>links.txt";
print A join ("n", @rlink), "n";
close A;

$, явно много те е яд на този сайт и се досещам защо ! твоят сайт е много скучен и остарял ! що не направиш нещо по въпроса вместо да рушиш и тъпчеш чуждите дела ?

що бе, злато? кво ти пречи пък сайта? уж си пич, а на моменти перкулясваш / тук следва един твой типичен израз, но ще се въздържа, за да запазя благоприличие/