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();

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值