8得票2回答
Perl的线程系统是如何工作的?

Perl的文档说: 自Perl 5.8以来,使用称为解释器线程的模型可用于线程编程,该模型为每个线程提供了一个新的Perl解释器 使用下面的程序和ps -Lm <pid>,我可以看到线程并行运行,即它们在不同的核心中同时运行。但即使有4个线程(3个和主线程),ps aux仅显示一...

9得票2回答
正则表达式如 ".*" 在 Perl 中是如何工作的?

我对正则表达式中的.*感到困惑。 #!usr/bin/perl use strict; use warnings; my $text = "scott"; $text =~ s/.*/\//g; print $text; 输出结果:// 所以,我不知道为什么结果是//而不是/。

7得票2回答
proc_open:扩展文件描述符编号以启用从Perl脚本获取“状态”反馈。

PHP的proc_open手册说明如下: 文件描述符号不仅限于0、1和2 - 您可以指定任何有效的文件描述符号,它将传递给子进程。这使您的脚本能够与其他作为“协处理器”运行的脚本进行交互。特别是,这对于以更安全的方式向PGP、GPG和openssl之类的程序传递口令以及从这些程序提供的辅助...

11得票2回答
如何在Perl API中自省正则表达式

我正在处理一些需要序列化Perl正则表达式的代码,包括任何正则表达式标志。只支持一部分标志,因此我需要检测正则表达式对象中是否存在不支持的标志,例如/u。 当前版本的代码实现如下:static void serialize_regex_flags(buffer *buf, SV *sv) {...

7得票1回答
为什么这个perl DateTime的计算会产生意料之外的结果?

#!/usr/bin/perl use DateTime; $a = DateTime->new(year=>1952,month=>10,day=>21); $b = DateTime->new(year=>2015,month=>10,day=&...

93得票6回答
使用'use utf8;'会导致我出现'Wide character in print'的错误提示。

如果我运行以下Perl程序: perl -e 'use utf8; print "鸡\n";' 我收到了这个警告: Wide character in print at -e line 1. 如果我运行这个Perl程序: perl -e 'print "鸡\n";' 我没有收...

8得票4回答
如何正确地在Perl Critic中排除RequireRcsKeywords?

我正在尝试在单个Perl脚本中排除Perl Critic的RequireRcsKeywords检查。 我不想更改.perlcriticrc中的默认策略,因此我在源代码顶部添加了一行“no critic”。 尽管进行了更改,但是Perl Critic仍然抱怨缺少RCS关键字。 这是我的测试用例...

8得票4回答
Perl按顺序读取目录内容

有没有办法保证readdir返回的列表中的顺序? 我有以下代码: opendir(my $DIR, $src) or die "Error opening $src"; # Loop for each file in the directory while (my $file = rea...

8得票1回答
使用SOAP::Lite服务存根

我一直在查看关于使用 WSDL URL 生成服务存根的 此 soap lite 教程。然而,我的数据结构更加复杂并且有嵌套元素。该教程介绍了如何使用 SOAP::Data 创建复杂结构。这似乎是非常手动的。 在其他语言中,例如 Java,很容易存根请求对象并使用方法调用来设置参数。是否有一种...

14得票3回答
如何使用Perl将48位十六进制字符串转换为字节?

我有一个长度为48字符的十六进制字符串,我想使用Perl的pack函数将其转换为原始字节,以便将其放入Win32字节向量中。 如何用Perl实现?