Perl多线程编程

发表于2019年6月4日由daizao

可以用于多种perl的编程环境，让程序并行

#!/usr/bin/perl -w
#
use strict;
use warnings;
use threads;

my $j=0;
my $thread;

while(){
    while(scalar (threads -> list())<4){
        $j++;
        threads -> create(\&程序，参数...); 
    }
    for $thread(threads -> list(threads::all)){
        if ($thread -> is_joinable()){
            $thread -> join();
        }
    }
}

sub 自己的程序{
    ......
}

参考的网址： 1、Perl 中的线程 2、Perl多线程 3、perldoc:threads

此条目发表在Perl分类目录。将固定链接加入收藏夹。

发表评论

邮箱地址不会被公开。 必填项已用*标注

To create code blocks or other preformatted text, indent by four spaces:

    This will be displayed in a monospaced font. The first four 
    spaces will be stripped off, but all other whitespace
    will be preserved.
    
    Markdown is turned off in code blocks:
     [This is not a link](http://example.com)

To create not a block, but an inline code span, use backticks: 

Here is some inline `code`.

For more help see http://daringfireball.net/projects/markdown/syntax

Protected with IP Blacklist CloudIP Blacklist Cloud