ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl -w

use LWP::Simple;
use strict;
use warnings;
 
use constant URL      => 'http://forum.antichat.ru/memberlist.php?s=&do=getall&page={PAGES}&sort=reputation&order=DESC&pp=50';
use constant MAX_PAGE => '4';  
use constant FORMAT   => 'html';

#   Опции:
#  ~~~~~~
#  Отсортировать результат поиска по: Репутация | по убываиню
#  Число пользователей на страницу: 50 

my $content = undef;
my $resp = undef;
my $url = URL;

for( 0..MAX_PAGE ) 
{
   $url  =~ s/{PAGES}/$_/e;
   print "[$_] GET $url \n";
   $content = get $url || exit printf "ERROR : get URL : %s \n",$url;
   open $resp, ">", "$_.".FORMAT;  
   print $resp $content;
   close( $resp );
   $url = URL;
}

use constant FORMAT   => 'html'; #Это формат, в который будут сохраняться страницы