2009/8/5 liseen <[email protected]>: > 如果你想要比较深刻地理解fork的话， 也许应该看看unix 高级编程。 是的， stevens的书讲的很清楚。不过perl的fork和这个一样吗？ > 2009/8/4 Ericzhao82 <[email protected]> >> >> 多谢两位 >> >> 2009/8/3 Lin <[email protected]> >>> >>> 我这有一个比较实用的例子... >>> >>> #!/usr/bin/perl >>> # achech.com >>> my $PID = $$; >>> my $THREAD = $$; >>> my $COUNT = 0; >>> my $CONNECT = 10; >>> my @kids = (); >>> my $parentpid = 0; >>> ########## >>> &Init(); >>> &Forker($CONNECT); >>> while (1) { >>> $COUNT++; >>> if ($parentpid) { >>> &Running(); >>> } >>> else { >>> &Reaper(); >>> } >>> } >>> exit 0; >>> ########## >>> >>> sub Init { >>> &debug(__LINE__,"Init..."); >>> # 将需要重用的信息在这里初始化吧... >>> } >>> >>> sub Forker { >>> my $clients = shift; >>> my $i = 0; >>> while ( $i++ < $clients ) { >>> my $newpid = fork(); >>> if ( !defined $newpid ) { >>> die "fork() error: $!\n"; >>> } >>> elsif ( $newpid == 0 ) { >>> $parentpid = $THREAD; >>> $THREAD = $$; >>> @kids = (); >>> last; >>> } >>> else { >>> &debug(__LINE__,"*进程 $$ 创建线程 $newpid"); >>> push( @kids, $newpid ); >>> } >>> } >>> } >>> >>> sub Running { >>> &debug(__LINE__," +线程 $$ 等待接收"); >>> # 在这里执行任务... >>> my $sec = int(rand(10)); >>> &debug(__LINE__," TODO: 随机停顿 $sec 秒"); >>> sleep($sec); >>> # 任务结束... >>> &debug(__LINE__," +线程 $$ 处理完毕"); >>> } >>> >>> sub Reaper { >>> while ( my $kid = shift(@kids) ) { >>> &debug(__LINE__,"*进程 $$ 回收线程 $kid"); >>> my $reaped = waitpid( $kid, 0 ); >>> unless ( $reaped == $kid ) { >>> &debug(__LINE__,"waitpid $reaped: $?"); >>> } >>> } >>> } >>> >>> sub debug{ >>> printf("[%04d] %s %s\n",shift,scalar(localtime(time)),shift); >>> } >>> >> >> >> >> -- >> ………………………………………… >> Ericzhao >> >> Email: [email protected] >> MSN: [email protected] >> BLOG: share82.freebsder.info >> >> > > > > >
--~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
