请教Perl 关于fork!

glasswm

求助，我是Perl新手，忘各位不吝赐教！

请看下面这个简单的函数
sub system_nb
{
    my (@cmd) = @_;        
#假设@_  是"testcase/uboot_reset_test.exp  /home/glasswm/atestout/111/logs/20091020-02/atest.autoconfig"

    if(my $pid = fork) {  ＃请问此处的fork会带什么默认的隐藏参数吗？
        ＃1
        waitpid($pid, 0);
        return $?;
    } else {
        ＃2
        die "cannot fork: $!\n" unless defined $pid;
        exec(@cmd) or die "exec: @cmd: $!";    ＃请问此处的exec 是用fork成功的线程OR进程执行＠cmd命令（这里是执行另外一个脚本）吗   
    }
}

我在＃1 和 ＃2处加了标记提示，我就纳闷了 怎么既走到了＃2处然后又走回了＃1处，perl的IF ELSE难道跟C的不一样？ （关键就是这里不明白）

blackold

一样。

Perl_Er

因为 fork 调用时，当前的进程会从 fork 的位置一分为二，fork 对两个进程的返回值不同。在父进程中 fork 返回子进程(即另一个进程)的进程id，而在子进程中 fork 返回 0。

see here:http://tech.idv2.com/2006/10/14/linux-multiprocess-info/

兰花仙子

＃请问此处的exec 是用fork成功的线程OR进程执行＠cmd命令（这里是执行另外一个脚本）吗   

exec是执行@cmd里的命令替换当前进程，除了进程号不变外，其他东西都变了。

我在＃1 和 ＃2处加了标记提示，我就纳闷了 怎么既走到了＃2处然后又走回了＃1处，perl的IF ELSE难道跟C的不一样？ （关键就是这里不明白）

在fork后，#1和#2是并发进行的，各自完成各自的事。

flw_cu

别口口声声 Perl 如何 C 如何，
你真的在 C 里面用过 fork？

blackold

够详细！学习！

blackold

LZ应该是指C的if与perl的if是否相同吧。

flw_cu

原帖由 blackold 于 2009-10-21 10:06 发表
LZ应该是指C的if与perl的if是否相同吧。

他之所以有此一问，是因为他不了解 fork。
如果他在 C 里面用过 fork 的话，
就会知道，这里 if/else 的表现和 C 明显是一样的。

Perl_Er

你的名字看上去好熟悉啊!

gawk

要搞清楚fork的意思，可以man一下，google一下