海神若风

摘要： 1 #!/usr/local/bin/perl 2 use threads; 3 4 @domain = ("tom.com", "chinadns.com", "163.com", "aol.com"); 5 for ($i=0;$inew(\&checkwhois, '0', $domain[0]); 12 my $thr1 = threads->new(\&checkwhois, '1', $domain[1]); 13 my $thr2 = thread 阅读全文