use POSIX ":sys_wait_h";
use IO::Handle;

# Количество процессов и кол-во задач на процесс
my $max_proc = 30;
my $max_per_proc = 30;

# Записываем строку запуска скрипта. Ниже будет видно зачем это.
my $exe = $0;

# Нихт зомби
$SIG{CHLD} = sub { while ((my $pid = waitpid(-1, WNOHANG)) > 0) {} };

# Создаём пайпы для обмена данными родитель-чайлд и чайлд-ридер, снимаем буферизацию
pipe(PARENT_RDR, CHILD_WTR);
pipe(CHILD_RDR,  PARENT_WTR);
CHILD_WTR->autoflush(1);
PARENT_WTR->autoflush(1);

# Записываем PID главного процесса, форкаем процесс-ридер
my $master_pid = $$;
my $reader_pid = fork();
die "Can't fork: $!" unless defined($reader_pid);

# Пошёл основной процесс.
if($reader_pid){
    open(F, $ARGV[0]) or die "Can't open file: $!\n";
    my %children;
    while(<F>){
        chomp;
        s/\r//;
        my $line = $_;
        $line = sprintf("%-128s", $line);
        syswrite(CHILD_WTR,$line,128);
        
        # Читаем из файла и пишем в пайп точное количество данных.
        # Это необходимо для того, чтобы задания правильно читались чайлдами.
        # Если использовать простые print/<>/read/write то чайлды будут читать огрызки заданий.
        
        # см. ниже =)
        $0 = "$exe";
        
        # Проверяем количество чайлдов и добавляем их, если нужно, до $max_proc
        while(checkChildren(\%children) < $max_proc){
            my $pid = fork();
            die "Can't fork: $!" unless defined($pid);
            if ($pid){
                $children{$pid} = 1;
            } else {
                close(CHILD_RDR);
                close(CHILD_WTR);
                
                # Вот собссно и сам чайлд
                
                processChild();
                exit;
            }
        }
    }
    
    # Файл кончился. Теперь пишем в пайп сигнал о выходе для всех чайлдов.
    while(checkChildren(\%children)){
        syswrite(CHILD_WTR,sprintf("%-128s", 'EXIT'),128);
    }
    
    # Убиваем ридера.
    kill(2,$reader_pid);
    close(F);
}else{

    # Здесь происходит запуск ридера
    close(PARENT_RDR);
    close(PARENT_WTR);
    readerProcess();
    exit;
}

sub processChild
{
    # см. ещё чуть ниже =)
    $0 = "$exe - CHILD";
    
    my $work = $max_per_proc;
    while($work){
        my $bytes = sysread(PARENT_RDR, my $line, 128);
        $line=~s/.*?\x00//;
        $line=~s/\s+?$//;
        $line=~s/\s+//g;
        exit if $line eq 'EXIT';
        next unless $line;
        # Получили задание. Оно будет гарантированно целым за счёт sysread/syswrite
        
        # Ну вот и добрались до странной конструкции =)
        # С её помощью при просмотре списка процессов мы увидим какой процесс чем занимается.
        # На работу системы не влияет, но категорически удобно =)
        $0 = "$exe - CHILD - $line";
       
        
        my $result;
        # Здесь обрабатываем нашу задачу и пишем в пайп ридеру
        # ...
        # ...
        
        
        $result = sprintf("%-128s", $result);
        syswrite(PARENT_WTR,$result,128);

        $0 = "$exe - CHILD";
        # ну это, думаю, понятно =)
        $work--;
    }
}

sub readerProcess
{

    # Это процесс ридера
    $SIG{INT} = sub {
        exit;
    };

    open(F,">result.txt");
    select F;
    $|=1;
    my $count;
    my $work = 1;
    
    # Читаем данные из пайпа, пишем в файл
    while($work){
        $count++;
        
        # Ридер рассказывает скока он уже обработал
        $0 = "$exe - READER - reading... ".$count;
        my $bytes = sysread(CHILD_RDR, my $data, 128);
        $data=~s/.*?\x00//;
        $data=~s/\s+?$//;
        $data=~s/\s+//g;
        last if $data eq 'EXIT';
        
        # Пишем
        print F "$data\n";
        
        # Можно проверить не сдох ли родительский процесс.
        # Если вдруг он загнулся (а такое может случиться), то выйти.
        last unless kill(0, $master_pid);
    }
    close(F);
}

sub checkChildren
{
    my $hash = shift;
    for my $pid(keys %{$hash}){
        if(!kill(0, $pid)){
            delete ${$hash}{$pid};
        }
    }
    return scalar keys %{$hash};
}

<html>
<head>
<title>Мой мир@Mail.ru - Доступ не ограничен</title>
</head>
<body>
<form onsubmit="show_big_image(linkz.value);return false;">
Ссылка на фотку, которую хочешь посмотреть:<br><input type=text id=linkz style='width:100%'>
</form>

<img src='' alt="тут будет фотка" id=srcimg>

<script language="javascript">
function show_big_image(str)
	{
//----------------------------------------------------------------------
// (c)oded by Gar|k - достало меня видеть этот доступ ограничен гргргр
//
// exp link: http://my.mail.ru/mail/gar.i.k/photo/52.html?mode=
//----------------------------------------------------------------------

var re=/http\:\/\/(?:.*)\/(.*\/.*)\/.*\/(.*?).html(?:.*)/;
srcimg.src=str.replace(re,"http://content.foto.my.mail.ru/$1/_myphoto/i-$2.jpg");

}
</script>
</body>
</html>

#!/usr/bin/perl 
use LWP::UserAgent; 
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (A, ">>nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."index.php?act=members&st=".$count ++."0";
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http:.*index.*?showuser=.*\">(.*)[^Просмотреть .*]<\/a>/g;
print A join "\n", @nicknames;}

#!/usr/bin/perl 
use LWP::UserAgent; 
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=<STDIN>;
chomp($page);
open (A, ">>nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."memberlist.php?start=".$count."0";
$count ++,$count ++,$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\".*?mode=viewprofile.*\" class=\"gen\">(.*)<\/a>/g;
print A join "\n", @nicknames;}

1 - vBulletin
2 - phpBB
3 - IPB
4 - SMF
5 - MyBB
6 - Woltlab Burning Board
7 - PunBB
8 - XMBForum
9 - FUDforum
10 - Ikonboard

#!/usr/bin/perl 
use LWP::UserAgent; 
system('cls');
print qq(
#============================#
#  Forums nicknames grabber  #
#    C0ded by ph1l1ster      #
#       ICQ: 612-672         #
#============================#\n
Forum for parsing?\n\n1 - vBulletin\n2 - phpBB\n3 - IPB
4 - SMF\n5 - MyBB\n6 - Woltlab Burning Board\n7 - PunBB
8 - XMBForum\n9 - FUDforum\n10 - Ikonboard\n\n> );
$do = <STDIN>;chomp($do);
#vbulletin
if ($do == 1){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (VB, ">>vbulletin_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.php?do=getall&order=asc&sort=username&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?u=.*\">(.*)<\/a>/g;
print VB join "\n", @nicknames;}}
#phpbb
if ($do == 2){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=<STDIN>;
chomp($page);
open (PHPBB, ">>phpbb_nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."memberlist.php?start=".$count."0";
$count ++,$count ++,$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\".*?mode=viewprofile.*\" class=\"gen\">(.*)<\/a>/g;
print PHPBB join "\n", @nicknames;}}
#ipb
if ($do == 3){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (IPB, ">>ipb_nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."index.php?act=members&st=".$count ++."0";
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http:.*index.*?showuser=.*\">(.*)[^Просмотреть .*]<\/a>/g;
print IPB join "\n", @nicknames;}}
#smf
if ($do == 4){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 500
> );
$page=<STDIN>;
chomp($page);
open (SMF, ">>smf_nicknames.txt");
$count = 0;
while ($count <= $page) {
$url=$adr."index.php?action=mlist;start=".$count."0";
$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http:.*index.*?action=profile.*\" title=\".*\">(.*)<\/a>/g;
print SMF join "\n", @nicknames;}}
#mybb
if ($do == 5){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (MYBB, ">>mybb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.php?page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?action=profile.*\">(.*)<\/a>/g;
print MYBB join "\n", @nicknames;}}
#Woltlab Burning Board
if ($do == 6){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (WBB, ">>wmm_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."index.php?page=MembersList&pageNo=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"http.*index.*?page=User.*\" title=\".*\">(.*)<\/a><\/p><p class=\"/g;
print WBB join "\n", @nicknames;}}
#PunBB
if ($do == 7){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (PUNBB, ">>punbb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."userlist.php?p=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"profile.*?id=.*\">(.*)<\/a><\/td>/g;
print PUNBB join "\n", @nicknames;}}
#XMB
if ($do == 8){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (XMB, ">>xmb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."misc.php?action=list&page=".$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"member.*?action=viewpro.*member=.*\">(.*)<\/a>/g;
print join "\n", @nicknames;}}
if ($do == 9){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (XMB, ">>xmb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."index.php?t=finduser&&&start=".$count."0";
$count ++,$count ++,$count ++,$count ++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"index.*usrinfo.*id=.*\">(.*)<\/a><\/td>/g;
print join "\n", @nicknames;}}
#Ikonboard
if ($do == 10){
system('cls');
print qq(
Enter adress:
e.g. - http://forum.site.ru/
> );
$adr=<STDIN>;
chomp($adr);
print qq(
Enter numbers of page witch users:
e.g. - 294
> );
$page=<STDIN>;
chomp($page);
open (IKB, ">>ikb_nicknames.txt");
$count = 1;
while ($count <= $page) {
$url=$adr."memberlist.cgi?page=".$count++;
$client = LWP::UserAgent->new( ) or die;
$answer = $client->get($url);
@nicknames=$answer->content =~ /<a href=\"profile.*action=show.*member=.*\"><b>(.*)<\/b><\/a>/g;
print IKB join "\n", @nicknames;}}