An example for Perl Multi-threads

最新推荐文章于 2025-12-07 22:01:10 发布

原创最新推荐文章于 2025-12-07 22:01:10 发布 · 550 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #domain #query #join

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

#!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;