perl fork не паралелится

еслиб оно работало истинно паралельно. то не было бы монотонно возрастающей последовательности нуумерации пидов в начале каждой строки с урлом: 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 ... оно должно этот чортов пид выводить тогда, когда произойдет запрос к сайту, т.е. в случайном порядке, оное зависит от скорости коннекта, а так получается что прога работает, хотя и с форком, но как будто последовательный перебор...

Наскка я понимаю, то если $pid не 0, то ты в родителе и как раз в нём надо продолжать цикл, а не лезть на сайт. а так получается, что твой родитель последовательно форкает себя 10 раз, каждый раз лезет на сайт, а дети просто делают exit().

По-моему, так...

Конечно. У тебя всю работу делает родитель, потому и получается последовательно. 

Переделай функцию forks():

sub forks{
  for(1..10) {
    my $pid = fork();
    if($pid) {
      push @child, $pid;            
    } 
    else {      
      my $txt1=get($h{$_});
      print "$$  $h{$_}\n";
      print "[========> done <========]\n";
      exit;
    }
  }
  for(@child) {
    waitpid($_,0);
  }
}

Хотя так тоже не совсем правильно. Лучше объединить два вызова print в один, иначе получается race condition. Впрочем, в данной случае это не так важно.

Как прально сказал yz ты родителем делал get, а потомком просто exit.
Насчет пидов ты не прав, в коде пид печатается сразу после форка, так что линейная зависимость номеров - это нормально в данном случае. А вот ==done== печатается действительно после реальной закачки.
Вот как должно выглядеть.

#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my (@child,$txt,$n,$string,%h,$c,%h1);

my $t="http://www.yandex.ru/yandsearch?stype=www&nl=0&text=10000";
;

$txt=get($t);
foreach $n (2 .. 11){
  $c++;
    if($txt=~m!a tabindex="$n" onclick=.*?href="(.*?)"!igs){
        $h{$c}=$1 if $1;
    }
}

&forks();
undef %h;
$c = 0;

sub forks{
    for(1..10) {
        my $pid = fork();
	if($pid) {
    	    push @child, $pid;
            print "$pid $h{$_}\n";
        } else {
	    my $txt1=get($h{$_});
            print "[========> done <========]\n";
    	    exit;
        }
    }
  for(@child) {
      waitpid($_,0);
  }
}
print "ok\n";

ух, народ спасибо! =) чето я перепутал чайлд с парентом однако

а есче fork() могет возвращать -1

да уже клинка ваще пошла, файл правлю на одном сервере, а запускаю на другом и фтыкаю долго, почему изменения не видны... пепец, спать пора