15

我需要知道如何为以下代码实现多线程。我需要每秒调用一次此脚本，但睡眠计时器会在 2 秒后处理它。总脚本每 3 秒调用一次。但是我需要每秒调用一次，任何人都可以为我提供解决方案或指出正确的方向。

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

它只是一个例子。

4

1 回答 1

42

这是一个使用线程的简单示例：

use strict;
use warnings;
use threads;

sub threaded_task {
    threads->create(sub { 
        my $thr_id = threads->self->tid;
        print "Starting thread $thr_id\n";
        sleep 2; 
        print "Ending thread $thr_id\n";
        threads->detach(); #End thread.
    });
}

while (1)
{
    threaded_task();
    sleep 1;
}

这将每秒创建一个线程。线程本身持续两秒钟。

要了解有关线程的更多信息，请参阅文档。一个重要的考虑因素是线程之间不共享变量。当你开始一个新线程时，你所有的变量都会被复制。

如果您需要共享变量，请查看threads::shared.

但是，请注意，正确的设计取决于您实际尝试做的事情。从你的问题中不清楚。

对您的代码的其他一些评论：

  • 始终use strict;帮助您在代码中使用最佳实践。
  • 声明词法变量的正确方法是my $gg;而不是local $gg;. local实际上并没有创建词法变量；它为全局变量提供本地化值。这不是您需要经常使用的东西。
  • 避免给子例程赋予与系统函数相同的名称（例如print）。这令人困惑。
  • 不建议&在调用子例程之前使用（在您的情况下，由于与系统函数名称冲突，这是必要的，但正如我所说，应该避免这种情况）。
于 2013-03-15T10:31:13.323 回答