An example for Perl Multi-threads

striker

于 2009-03-12 15:08:00 发布

阅读量538

点赞数

CC 4.0 BY-SA版权

文章标签： perl domain query join

本文链接：https://blog.youkuaiyun.com/striker/article/details/3984244

本文展示了一个使用Perl语言进行多线程编程的例子。通过创建四个线程来模拟域名查询的过程，每个线程负责检查一个特定域名的WHOIS信息。该示例还包括了线程同步的实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!perl
use   threads;

@domain   =   ("tom.com",   "chinadns.com",   "163.com",   "aol.com");

for   ($i=0;$i<4;$i++)
{
print   $i.'.'.$domain[$i].'   ';
}
print   "/n";
my   $thr0   =   threads->new(/&checkwhois,   '0',   $domain[0]);
my   $thr1   =   threads->new(/&checkwhois,   '1',   $domain[1]);
my   $thr2   =   threads->new(/&checkwhois,   '2',   $domain[2]);
my   $thr3   =   threads->new(/&checkwhois,   '3',   $domain[3]);

sub   checkwhois   ()   {
my   ($l,$r)   =   @_;
my   $i=0;
while   ($i<1000000)   {
          $i*$i;
          $i++;
}
print   "done   --$l/t/n";
print   $l. " " .$r."   query   successful!   /n";
}

$thr0->join;     #不能忘了join
$thr1->join;
$thr2->join;
$thr3->join;