perl getstore 在线程中

Question

在以下脚本中：

use strict;
use warnings;
use LWP::Simple;
use threads;
threads->create(sub { 
    my $url = "http://www.example.com/logo.jpg"; 
    my $file = "/var/www/html/logo.jpg"; 
    getstore($url, $file);
    threads->detach();
});

当我启动它时，它不会保存图像，但如果我在线程中启动相同的代码它会起作用，为什么？

Answer 1

因为“分离”没有达到您的预期。当程序退出时，分离的线程被终止。 From the docs...

$thr->分离()

使线程不可连接，并导致任何最终返回值被丢弃。 当程序退出时，任何仍在运行的分离线程都会被静默终止。

你应该收到这样的消息。

Perl exited with active threads:
    1 running and unjoined
    0 finished and unjoined
    0 running and detached

您应该等到程序结束时所有线程都完成，而不是分离。

for my $thread (threads->list(threads::running)) {
    $thread->join;
}

---

如果您只想发出并行 HTTP 请求，则不需要线程。 LWP::Parallel 可能会更有效率。