Question

示例我有一个perl脚本然后我有这个脚本：

如何每隔5分钟在perl脚本中调用一个脚本

#! /bin/perl
#bla bla bla many scripts written

sub failure {
print "Just a sample print";
}

我想每5分钟拨打一次电话。

我找不到一个简单明确的答案。

我从前任队友那里看到，他的Perl脚本在perl中执行一个脚本，如下所示：

my $mainWindow -> repeat ( 1000, \&failure );

如果我尝试复制它，则会出错：

can't call method repeat, unidentified value at line 222

我很难对他的剧本进行逆向工程，因为它对我来说太复杂了......我不习惯他的剧本......感谢你的帮助....

Answer 1

您可以使用

while (1) {
    failure();
    sleep(5*60);
}

Answer 2

如果您想要非阻塞计时器，请查找以下模块之一：