如何在我的代码中实现多线程以减少时间。在从远程服务器获取文件时,在perl中实现多线程?
if(exists $ddts_attachments->{$id}->{'urls'}){
sub do {
foreach my $url(sort keys %{$ddts_attachments->{$id}->{'urls'}}){
$ENV{HTTP_proxy}=$proxy_url;
my $ff = File::Fetch->new(uri => $url);
my $where = $ff->fetch(to => "/attachments5/$id/");
my $file = $ff->file;
delete $ENV{HTTP_proxy};
print "url: $file attached to $id key \n ......\n";
}
}
}
在这里散$ddts_attachments
我已存储的URL列表,从这些URL我要取的文件和目录下存放。 请任何人都可以帮助我如何实现多线程,有助于减少时间。
操作系统? – ysth
现在我正在windows中运行。但在将来它必须运行在linux –