代码之家 › 专栏 › 技术社区 › sid_com

此代码是否适用于其他功能?

file perl

sid_com · 技术社区 · 14 年前

这种代码是否也适用于其他函数(而不是dbmopen),这些函数打开文件并在失败时返回false?

my $n_tries = 5;
while ($n_tries--) {
    if (dbmopen (%CHOICES, &dbm_file(), 0600)) {
        last;
    } else { 
        if ($! eq 'Resource temporarily unavailable') {
            my $wait = rand 0.45; select undef, undef, undef, $wait;
        } else { return;
        }
    }
}

2 回复 | 直到 11 年前

zoul 14 年前

我说没有,因为你依赖 $! 被设置为 Resource â¦ 字符串,我不认为它是开放函数的标准。你到底想做什么?

hobbs 14 年前

它是一种模式,可以在其他情况下应用——但一般来说,您不想检查 $! 因为它依赖于系统库、用户的区域设置和类似的东西。在处理系统错误时,最好自己处理错误号,Perl有一种方法可以做到这一点——简而言之,您可以像 if ($!{EAGAIN}) { ... } (这是散列表中的查找 %! )只有当 $! 设置为错误号 EAGAIN . 要与旧的Perl兼容,您需要加载模块 Errno --它在5.8及更高版本上似乎是开箱即用的,但只要加载该模块就可以确保它在任何地方都能正常工作。

当然,即使在数字错误数字中也会涉及一些非常精细的位,因为每个平台都可能不会。有某些错误号。您可以检查给定的名称(如 再次 )通过查看当前系统上的错误号 exists 在里面 %! ,然后找出从那里到哪里——但它仍然比字符串比较更可靠。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

3 年前

user17227456 · Perl CLI代码无法追加字符串行

3 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

7 年前

Pranay Nanda · 使用regex解析许可证文件

7 年前