perl 多執行緒

[b][size=large][align=center]perl-多執行緒[/align][/size][/b]

1.建立多執行緒

thread->new(\&start_thread,$mho);

&start_thread是子函式，用來執行執行緒所執行的內容。

$mho傳遞給子函式的引數。

2.例項

#!/perl
use strict;
use thread;
#use threads::shared; 
my @threads; 
my $mhofile = @argv[0];
open(mho,"$mhofile");
my @mholist=; 
#print "@mholist\n";
foreach my $mho (@mholist) 
foreach my $thread (@threads)  
sub start_thread 

這裡建立了多個執行緒：$threads[my $tempcount]=thread->new(\&start_thread,$mho);

啟動了多幹個執行緒後，我們這裡一定要使用變數儲存thread的id。因為，建立乙個thread以後要用join取得該thread的返回值，然後系統才會對thread進行清理，否則所有thread的資訊都會保留下來，當然越積越多了。

所以，在最後我們要等待這些執行緒的完全退出：

foreach my $thread (@threads)

perl實現多執行緒

用perl實現多執行緒 use strict use english no match vars use errno qw eagain use threads use threads shared my items 20 需要處理的任務數 my maxchild 65 最多執行緒數 1 65 pe...

perl寫埠多執行緒掃瞄器

埠掃瞄這玩意我記得許多年前可是很火啊，隨著防火牆和主動防禦之類軟體的普及，如今他的魅力已經大不如前了，不過在對於漏洞的利用上，埠掃瞄還是首當其衝的。以前也寫過埠掃瞄，但是速度太慢，所以就此雪藏了。下面是我寫的多執行緒掃瞄，有tcp連線和syn兩種，看個人喜好吧。usr bin perl w use ...

乙個簡單的Perl多執行緒指令碼

usr bin perl w use strict our max child 20 1 my grp pid getpgrp foreach my item 1.80 grep v grep wc l while p count max child grep v grep wc l chomp p...