perl多线程

#!/bin/perl

use strict;

use threads;

use Cwd;

use POSIX qw(strftime);

################################################################################

# 函数名:  count

# 函数描述:  数数

# 输入:   name 随意输入一个名字

# 输出:   无

# 调用:  

# 被调用: 

# 返回:

################################################################################

sub count

{

   my ($name,$date) = @_;

   my $current_time = strftime "%Y-%m-%d %H:%M:%S", localtime;

   print "$current_time  $name : $date \n";

   

   my $ret=`perl gettime.pl $date`;

   print "$ret";

   

}

#创建四个线程

my $thread_1_01 = threads->create('count', "Thread_1","20160401");

my $thread_1_02 = threads->create('count', "Thread_2","20160402");

my $thread_1_03 = threads->create('count', "Thread_3","20160403");

my $thread_1_04 = threads->create('count', "Thread_4","20160404");

# 等待第一批线程结束完成

$thread_1_01->join();

$thread_1_02->join();

$thread_1_03->join();

$thread_1_04->join();