Perl Thread 错误避免

一个程序，如下功能，多线程同时下载多个图片并保存。

具体的多线程代码片段如下：

use Thread;
......
for my $list (@list){
  print "Download begin./n";
  my $thread = Thread->new(/&DownLoadFunction,$parameters);
  $thread->join();
}

运行这个程序你将发现，程序并没有并发的多线程，同时会出现一些意外情况，这个自己可以试试看，写一些简单的实现去测试并发现错误的类型。

对此，我们加以修改，如下：

use Thread;
......
my @threadlist;
for my $list (@list){
  print "Download begin./n";
  my $thread = Thread->new(/&DownLoadFunction,$parameters);
  push @threadlist,$thread;
}
foreach my $thread (@threadlist){
  $thread->join();
}

运行这个程序，则会按照我们预计的情况并发执行下载任务。

注意：正确的应该是先将所有的thread都放到一个list中，然后对他们进行join。

在Windows中，我们也可以使用fork来进行多线程的执行，与thread有相同的效果，代码如下：

for my $list (@list){
  my $child = fork();
  if($child){
    # child > 0, so we are the parent
    print "Download begin./n";
  }else{
    # child = 0, handle child
    DownLoadFunction($parameters);
    exit 0;
  }
}

注意：必须使用exit 0 来推出线程，否则将会出错，具体的代码自己可以完成并测试。