#!/usr/bin/perl -w
use LWP::Simple;
use Getopt::Long;
###########################################
$uinf = 'uin.txt';
$split = ':';
###########################################
GetOptions("G=s" => \$lol,"L=s" => \$n);
if ($lol)
{print "Generation $lol uins ...\n";for($i = 1; $i <= $lol; $i++) {push @uins, join('', map(('0'..'9')[rand(10)], (1..$n)));}
} else {
print "Load you file ....\n";
open(BASE, $uinf);
chomp(@uins = <BASE>);
close(BASE);
}
print "Getting information for uins .....\n";
foreach $uin (@uins) {
print "Get information from uin : $uin .....\n";
$page = get("http://www.icq.com/people/$uin/&lang=ru");
@page = split /\n/, $page;
foreach (@page) {
if ($_ =~ /<div class="info_value">([0-9]{1,5})\/([0-9]{1,5})\/([0-9]{1,5}) ((.+?))<\/div>/i) {
open(OUT, '>> soorses.txt');
print OUT $uin.$split.$1.$2.$3."\n";
print $uin.$split.$1.$2.$3."\n";
print OUT $uin.$split.$3.$2.$1."\n";
print $uin.$split.$3.$2.$1."\n";
print OUT $uin.$split.$2.$3.$1."\n";
print $uin.$split.$2.$3.$1."\n";
print OUT $uin.$split.$1.$3.$2."\n";
print $uin.$split.$1.$3.$2."\n";
close(OUT);
print "Finished getting info from $uin .....\n";
}}}
print "Process finished, loock the file soorses.txt .\n";
