[PerlChina] Re: 哪本书有详细讲perl fork的？谢谢

在ｕｎｉｘ　环境基本一样

On 8月5日, 下午7时53分, xjdengz <xjde...@gmail.com> wrote:
> 2009/8/5 liseen <liseen....@gmail.com>:> 如果你想要比较深刻地理解fork的话， 也许应该看看unix 高级编程。
>
> 是的， stevens的书讲的很清楚。不过perl的fork和这个一样吗？
>
>
>
> > 2009/8/4 Ericzhao82 <ericzha...@gmail.com>
>
> >> 多谢两位
>
> >> 2009/8/3 Lin <i...@lxl.cn>
>
> >>> 我这有一个比较实用的例子...
>
> >>> #!/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: Ericzha...@gmail.com
> >> MSN: Ericzhao...@hotmail.com
> >> BLOG: share82.freebsder.info
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---