9
我需要知道如何为以下代码实现多线程。我需要每秒调用一次该脚本,但睡眠计时器在2秒后处理它。整个脚本在每3秒后调用一次。但是我需要每秒钟拨打电话,任何人都可以为我提供解决方案,或者指引我走向正确的方向。perl代码的多线程
#!usr/bin/perl
use warnings;
sub print
{
local $gg = time;
print "$gg\n";
}
$oldtime = (time + 1);
while(1)
{
if(time > $oldtime)
{
&print();
sleep 2;
$oldtime = (time + 1);
}
}
它只是一个例子。
很好的回答。要知道在多线程同时读取和写入相同的全局变量方面理解线程的好来源是什么? – Myforwik 2013-03-15 10:43:59
@Myforwik,请参阅答案的更新。变量不在线程之间共享。你需要为此使用'threads :: shared'。我添加到答案中的两个文档链接应该有助于理解这一点。 – 2013-03-15 10:49:45
谢谢,它会做... /// – NewBee 2013-03-15 10:53:01