问题标签 [perl]

是否有一个 Perl 模块可以让我查看程序（或函数）的实际输出和参考输出之间的差异？如果存在差异，则测试失败。

此外，如果存在差异但输出正常（因为功能已更改），我希望能够将实际输出提交为将来的参考输出。

有没有人让Sys::Syslog在 Solaris 上工作？（我在 SPARC 上的 SunOS 5.10 上的 Perl v5.8.4 上运行 Sys::Syslog 0.05）。这对我不起作用：

无论我做什么，closelog 都会返回一个错误，并且不会在任何地方记录任何内容。

我在面试中使用这个问题，我想知道最好的解决方案是什么。

编写一个 Perl 子程序，它接受n 个列表，然后返回 2^ n -1 个列表，告诉您哪些项目在哪些列表中；也就是说，哪些项目只在第一个列表、第二个列表、第一个和第二个列表以及所有其他列表组合中。假设n相当小（小于 20）。

例如：

在这里，第一个结果列表给出了仅在列表 1 中的所有项目，第二个结果列表给出了仅在列表 2 中的所有项目，第三个结果列表给出了两个列表中的所有项目。

在这里，第一个列表给出了仅在列表 1 中的所有项目，第二个列表给出了仅在列表 2 中的所有项目，第三个列表给出了列表 1 和 2 中的所有项目，如第一个示例所示。第四个列表给出了仅在列表 3 中的所有项目，第五个列表给出了仅在列表 1 和 3 中的所有项目，第六个列表给出了仅在列表 2 和 3 中的所有项目，第七个列表给出了所有项目在所有 3 个列表中。

我通常将此问题作为n = 2 的此问题子集的后续问题。

解决办法是什么？

跟进：列表中的项目是字符串。可能有重复项，但由于它们只是字符串，因此应在输出中压缩重复项。输出列表中项目的顺序无关紧要，列表本身的顺序很重要。

我是任何脚本语言的新手。但是，我仍然在编写脚本，就像为我的目的定制其他脚本一样。对我来说，学习 Perl 的最佳在线资源是什么？

有谁知道 Perl 的一个好的代码混淆器？我被要求在将代码发布给客户之前研究混淆代码的选项。我知道混淆代码仍然可以被逆向工程，但这不是我们主要关心的问题。

一些客户正在对我们提供给他们的源代码进行微小的更改，当出现问题并且我们必须修复它时，或者当我们发布的补丁与他们所做的更改不兼容时，这会让我们做噩梦。所以目的只是为了让他们很难对代码进行自己的更改（无论如何他们都不应该这样做）。

win32.perl.org网站提供了几个用于 MS Windows 的 Perl 发行版的参考。

很长一段时间以来，我一直在使用 ActiveState中的 ActivePerl，但最近我改用了 Strawberry Perl。

恕我直言，Active Perl 相对于 Strawberry Perl 的唯一优势是它带有 Perl Tk，这意味着它易于安装 Devel::ptkdb图形调试器。除此之外，我认为 Strawberry Perl 具有所有优点。

目前，我使用简单的 shell 单线监视特定文件：

我知道 Perl 有一些很好的模块来处理 Excel 文件，所以我们的想法是，比如说，每天运行检查，也许使用 cron，然后将结果写入电子表格以供进一步统计使用。

珀尔？珀尔？珀尔？什么风格好？

我知道答案——我只是想确保问题存在并且提问者知道有一个正确的形式。

我正在尝试实现对不可靠服务器的请求。这个请求很好，但不是 100% 需要我的 perl 脚本成功完成。问题是服务器偶尔会死锁（我们正试图找出原因）并且请求永远不会成功。由于服务器认为它是活动的，它保持套接字连接打开，因此 LWP::UserAgent 的超时值对我们没有任何好处。对请求强制执行绝对超时的最佳方法是什么？

仅供参考，这不是 DNS 问题。死锁与同时访问我们的 Postgres 数据库的大量更新有关。出于测试目的，我们基本上在服务器响应处理程序中放置了一个 while(1) {} 行。

目前，代码如下所示：

我试过使用信号来触发超时，但这似乎不起作用。

我要使用的最终答案是离线某人提出的，但我会在这里提及。出于某种原因，SigAction 有效，而 $SIG(ALRM) 无效。仍然不确定为什么，但这已经过测试。这是两个工作版本：

如何启动 Perl 的交互式控制台，类似于irbRuby 或pythonPython 的命令？