这个函数当前在学校没有搞懂, 刚从学校出来时也没搞懂, 不会用他来写多线程程序. 今天有人问我在Perl中如何进行多进程编程, 去Google了一把, 发现境界好象比以前高了, 因为感觉上懂了一些了. 下面是写的一个例子:

#!/usr/bin/perl
#

my $pid = fork();

if (!defined($pid))
{
   print (“Fork process failured!\n”);
   exit();
}

if ($pid)
{
     # This is the child process.
     sleep(1);
     print (“exit child after 10 seconds wait!\n”);
     exit();
}
else
{
     # This is the parent process.
     print (“exit parent!\n”);
}

    毕业后的这么多年中, 只有用Java来写过多线程序, 不过它可没有fork函数, 但感觉上, 他们也没有什么区别. 看来可以为refresh_mysql.pl角本增加并行执行支持了. cool!