perl相关内容

什么是 Perl 的良好开发环境?

我使用 PHP 或 Java 开发应用程序,并将第一次学习 Perl. 对于PHP和Java,有Eclipse等集成开发环境,调试环境规范得很好,但是对于Perl,人们使用什么样的开发环境呢? 有推荐的 IDE 吗? 我更喜欢免费的调试环境. 解决方案 正如思南所说,有一些 Perl 的 IDE.Padre 值得一提.Perl 社区正在积极开发它. ..
发布时间:2022-01-20 21:37:15 Java开发

如何将调试器附加到正在运行的 Perl 进程?

我有一个正在运行的 Perl 进程卡住了,我想用调试器戳进去看看有什么问题.我无法重新启动该过程.我可以将调试器附加到正在运行的进程吗?我知道我可以执行 gdb -p,但 gdb 对我没有帮助.我试过 Enbugger,但失败了: $ perl -e 'while (1) {}'&[1] 86836$ gdb -p 86836…附加到进程 86836.共享库的读取符号.完毕读取共享库的符号... ..
发布时间:2022-01-20 20:42:15 其他开发

如何在 Perl 中使用 File::Find?

我对 File::Find 文档有点困惑... $ find my_dir -maxdepth 2 -name "*.txt" 的等价物是什么? 解决方案 我个人更喜欢 File::Find::Rule 因为这不需要你创建回调例程. 使用严格;使用 Data::Dumper;使用文件::查找::规则;我的 $dir = 班次;我的 $level = shift//2;我的@files = ..
发布时间:2022-01-20 16:50:08 其他开发

使用双重否定 (!!)

好的,所以我遇到了一个看起来像这样的代码 @documents_names = 排序 {!!$deleted_documents_names{$a} == !!$deleted_documents_names{$b}?uc($a) cmp uc($b): !!$deleted_documents_names{$a}cmp !!$deleted_documents_names{$b}} @docu ..
发布时间:2022-01-19 17:53:12 其他开发

如何将布尔条件结果分配给 perl 中的标量变量?

我正在执行以下操作,但无法正常工作: my $enabled = $hash &&$hash->{'key'} &&$hash->{'key'}->{'enabled'} &&$hash->{'key'}->{'active'}; 这是将布尔值分配给标量变量的可接受方式吗?我的代码以奇怪的方式行为不端,我相信这是因为这个任务.我已经验证了所有这些键都存在单独的值并设置为一个值. 附:对 ..
发布时间:2022-01-19 17:50:51 其他开发

为什么 Perl 使用空字符串来表示 boolean false 值?

在标量(布尔)上下文中计算表达式时,如果表达式计算结果为真,Perl 使用显式值 1 作为结果,如果表达式计算结果为假,则使用空字符串.我很好奇为什么 Perl 使用空字符串来表示布尔 false 值而不是 0 看起来更直观. 请注意,我不关心 Perl 在标量(布尔)上下文中将空字符串视为 false. 编辑 使用为真的字符串(例如"false")作为假值的字符串表示会如何改变 ..
发布时间:2022-01-19 17:11:02 其他开发

“0 但真实"是什么意思?在 Perl 中是什么意思?

谁能解释一下字符串“0 but true"在 Perl 中的确切含义?据我了解,它在整数比较中等于零,但在用作布尔值时评估为真.这个对吗?这是语言的正常行为,还是在解释器中被视为特殊情况的特殊字符串? 解决方案 这是语言的正常行为.引用 perlsyn 手册页: 数字0,字符串'0'和"",空列表(),和 undef在布尔上下文中都是错误的.所有其他值都为真.否定! 或 not 的真 ..
发布时间:2022-01-19 17:05:07 其他开发

什么!!(双感叹号)是什么意思?

在下面的代码中,来自 Alias 的 博文,我注意到使用了双感叹号 !!.我想知道这意味着什么,以及将来我可以去哪里寻找这样的 Perl 语法的解释.(是的,我已经在 perlsyn 搜索了 !!. 包Foo;使用变量 qw{$DEBUG};开始 {$DEBUG = 0 除非已定义 $DEBUG;}使用常量 DEBUG =>!!$调试;子富{debug('In sub foo') if DEBU ..
发布时间:2022-01-19 17:04:06 其他开发

TCP、HTTP 和多线程甜蜜点

我正在尝试了解我获得的性能数据以及如何确定最佳线程数. 查看这篇文章的底部了解我的结果 我在 perl 中编写了一个实验性的多线程 Web 客户端,它下载一个页面,获取每个图像标签的源并下载图像 - 丢弃数据. 它使用非阻塞连接,每个文件的初始超时时间为 10 秒,每次超时后加倍并重试.它还缓存 IP 地址,因此每个线程只需进行一次 DNS 查找. 从 1 线程耗时 2: ..
发布时间:2022-01-19 16:15:52 其他开发

模拟主机不可达 - 如何实现/实现它

这是我的场景: A 是配置服务器,B 是客户端.每当 B 的设置发生任何变化时,它都会将相应的配置文件上传到 A. 我是一名自动化工程师,致力于实现自动化.一种情况是断开 A 与网络的连接或停止服务器 A.对 B 执行一些更改并确保 B 无法将文件上传到配置服务器 A. 要使其自动化,停止服务器 A 并执行适当操作的简单方法. 由于 A 和 B 也被其他方用于其他目的,所以 ..

将 Perl 输出返回到 PHP

我想将 perl 脚本的输出返回到网页.但是它只返回最后一行. Perl 脚本: 我的 $directory = $ARGV[0];打开目录(目录,$目录);我的@files = grep {/\.txt$/} readdir(DIR);关闭(目录);foreach(@files) {打印 $_."\n";} PHP 代码: $perl_result = exec("perl $scr ..
发布时间:2022-01-19 14:55:56 PHP

在 Raku 中使用 Perl 5 模块 Data::Printer 的 `show_tied` 选项时,如何关闭它?

我在 Perl 中使用了 CPAN Perl 模块 Data::Printer (DP).效果很好. 现在我想在 Raku 代码中使用它. 当我使用 :from 功能导入它然后使用它运行代码时,注释 (tied to Perl6::Hash) 被附加到哈希的显示.1 正如 DP 的 CPAN 文档 所示,此注释由选项 show_tied 控制.我想将其 off(设置 ..
发布时间:2022-01-18 21:32:01 其他开发

如何在 Perl POD 派生的手册页中使用 Unicode 字符?

如果这不可能,那么处理源自 UTF-8 编码 POD 的手册页的最佳做法是什么? 为了在 POD 中使用 Unicode,首先要做的是使用指令 =编码 UTF-8 (如 此处所述).pod2text 和 pod2html 工具可以正常工作并产生完美的 UTF-8 编码输出. pod2man 工具却没有: pod2man -u MyModule.pm |nroff -Tutf8 - ..
发布时间:2022-01-18 13:53:43 其他开发

为什么 Perl 对 Unicode 字符的字符串操作会给字符串添加垃圾?

Perl: $string =~ s/[áàâã]/a/gi;#此行总是在前面加上一个“a"$string =~ s/[éèêë]/e/gi;$string =~ s/[úùûü]/u/gi; 这个正则表达式应该将“été"转换成“ete".相反,它将其转换为“aetae".换句话说,它为每个匹配的元素添加一个“a".甚至“à"也被转换为“aa". 如果我把第一行改成这个 $strin ..
发布时间:2022-01-18 13:13:33 其他开发