#!/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();