1

我需要在 DBIx::HA 包中实现不到一秒的超时。从该模块获得以下代码：

my $timeout = 0;
eval {
    no strict;
    my $h = set_sig_handler(
        'ALRM', 
        sub { $timeout = 1; die 'TIMEOUT'; },
        { mask=>['ALRM'], safe=>1 }
    );
    alarm($DATABASE::conf{_getdbname($dsn)}->{'connecttimeout'});
    $dbh = DBI->connect($dsn, $username, $auth, $attrs);
    alarm(0);
};

我知道有一个核心 Perl 模块 Time::HiRes，但我以前从未使用过它。它还有一个alarm()子 - 我可以use Time::HiRes qw (alarm);在上面的行之前插入吗？或者也许我应该以某种方式调整上面的行？我没有找到任何明显的例子。

4

2 回答 2

1

好的，我仍然有一些小问题，但我怀疑它们是否与 Time::HiRes 相关联，并且通常以下解决方案实际上有效：

use Time::HiRes qw (alarm); # Just adding this line.... ;)
my $timeout = 0;
eval {
    no strict;
    my $h = set_sig_handler(
        'ALRM', 
        sub { $timeout = 1; die 'TIMEOUT'; },
        { mask=>['ALRM'], safe=>1 }
    );
    alarm($DATABASE::conf{_getdbname($dsn)}->{'connecttimeout'});
    $dbh = DBI->connect($dsn, $username, $auth, $attrs);
    alarm(0);
};

很高兴知道！:D

于 2015-08-13T06:57:33.007 回答
1

你可以完全按照你说的去做。您需要做的就是alarm在调用代码之前加载 Time::HiRes 并导入。但请不要将它直接放在代码use上方，到处都有语句不是一个好习惯。它属于顶部。

Time::HiRes 文档说（强调我的）：

警报（$floating_seconds [, $interval_floating_seconds]）

SIGALRM 信号在指定的秒数后发送。如果可用，则使用 setitimer() 实现，如果不可用，则使用 ualarm() 实现。$interval_floating_seconds 参数是可选的，如果未指定，它将为零，从而导致类似 alarm() 的行为。可以导入此函数，从而很好地替代 perl 提供的警报，请参见下面的“示例”。

然后稍后有这个示例（逐字引用）很好地表明您现在可以使用浮点值alarm。

use Time::HiRes qw ( time alarm sleep );
$now_fractions = time;
sleep (2.5);
alarm (10.6666666);
于 2015-08-13T06:58:18.787 回答