首先简要介绍一下程序打算做什么：它将从文本文件中读取一个URL列表,一次一个.对于每个URL,它将调用子例程(将URL作为参数传递),并向其发送HTTP HEAD请求.一旦接收到HTTP响应头,它将从响应中打印“服务器头”字段.

对于每个URL,它启动一个调用上述子例程的新线程.

问题：主要问题是程序有时会间歇性崩溃.其他时候运行正常.它似乎是不可靠的代码,我相信有一种方法使其可靠地工作.

代码：

#!/usr/bin/perl

use strict;
use warnings;
use threads;
use WWW::Mechanize;
no warnings 'uninitialized';

open(INPUT,'<','urls.txt') || die("Couldn't open the file in read mode\n");

print "Starting main program\n";

my @threads;

while(my $url = <INPUT>)
{
    chomp $url;
    my $t = threads->new(\&sub1,$url);
    push(@threads,$t);
}

foreach (@threads) {
    $_->join;
}

print "End of main program\n";

sub sub1 {
    my $site = shift;
    sleep 1;
    my $mech = WWW::Mechanize->new();
    $mech->agent_alias('Windows IE 6');

    # trap any error which occurs while sending an HTTP HEAD request to the site
    eval{$mech->head($site);};
    if($@)
    {
        print "Error connecting to: ".$site."\n";
    }

    my $response = $mech->response();

    print $site." => ".$response->header('Server'),"\n";
}

问题：

如何使这个程序可靠地工作,零星崩溃的原因是什么？

调用线程对象的join方法的目的是什么？

根据下面链接的文档,它将等待线程执行完成.我正确地调用join方法吗？

http://perldoc.perl.org/threads.html

如果有上述代码中必须包含的良好的编程实践,请通知我.

是否需要在代码中单独调用sleep()或不需要？

在C中,调用CreateThread()之后调用Sleep()开始执行线程.

关于崩溃：当上述Perl代码意外和偶尔崩溃时,我收到错误消息：“Perl命令行解释器已停止工作”

崩溃的细节：

Fault Module Name:  ntdll.dll
Exception Code: c0000008

上述异常代码对应于：STATUS_INVALID_HANDLE

也许这对应于线程的无效句柄.

我的Perl安装细节：

Summary of my perl5 (revision 5 version 14 subversion 2) configuration:

Platform:
osname=MSWin32,osvers=5.2,archname=MSWin32-x86-multi-thread
useithreads=define

操作系统的详细信息：Win 7 Ultimate,64位操作系统.

希望这个信息足以找到问题的根本原因并纠正代码.