VPF::многопоточность. Заменя thread на fork()

DiverD

Дата 17.7.2006, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: 1
Всего: 2

Прошу помочь практическим примером создания многопоточного приложения.
Требуется именно использовать fork()
Что та написал но вроде создает процессы (см по ps -U user) проста ето мне не нравиться - как то странно - хз угадаешь сколька процессов появляется - вроде как на каждую интерацию по 2а, вообщем прошу помощи.

Код


#!/usr/bin/perl

use IO::Socket;

for($i=1;$i<=4;$i++) {
print "$$\n";
fork;
my $s0ck = IO::Socket::INET->new(
    PeerAddr => "127.0.0.1",
    PeerPort => 80,
    Proto => 'tcp'
) || die "$!";

print $s0ck join("\n","GET /q1w2e3/","Host: 127.0.0.1");

$s0ck->close;
}

Вот пример коннекта на локальный http

ps: UNIX
ps2: поиск юзал=)

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

chaos

Дата 21.7.2006, 06:48 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 3
Всего: 44

проверяй что возвращает fork - ошибку, принадлежность к дочернему процессу или к родительскому процессу.
логика такая: если ошибка то..... если родительский процесс делает то что должен делать родительский, если дочерний делаешь работу свойственную дочернему
Все просто!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »