Perl 计算以“class”开头的任何文件的平均成绩
我正在为作业编写一个 perl 脚本，该脚本接收以“class”开头的任何文件，并打印出班级标题和文件中每个学生的平均分。 输入： $cat class1 Sam 90, 9…
Perl 使用 coderef 作为子例程的参数
我有以下子例程： sub my_sub { my $coderef = shift; $coderef->(); } sub coderef { my $a = shift; my $b = shift; print $a+$b; } 并且想要以这种…
XML::RSS::Parser 和 Facebook RSS feed ...
我需要一个子例程来解析传递给它的“任何”RSS 提要。我已经多次使用 XML::RSS:Parser 来处理某些 RSS 提要，但它不适用于 Facebook。 示例代码： use…
如何在 Perl 中监控远程 Linux 机器并检索已安装的软件？
我有几个 Perl 脚本，允许我通过 WMI 监视远程 Windows 机器。现在我可以检查 CPU 使用情况、内存使用情况、磁盘使用情况和已安装的软件。但是如果我…
XML::LibXML findnodes 未返回任何匹配的节点
我有一个没有命名空间的简单 XML。 我正在使用 XML::LibXML::Reader 来解析 XML。当我得到匹配的元素时，我就完成了搜索。据我了解，该元素的类型为 X…
尝试使用 perl 中的 get 获取网页源
我试图在我的 Perl 代码中获取网页的源代码，基本上这个网站是本地服务器，链接是 http://gold.star.com/isos/preFCS5.4/LASTESTDMS/ 我能够 ping 通…
Perl：如何从解析的文件执行日期计算
我有一个包含几列的 csv 文件。示例， "00000089-6d83-486d-9ddf-30bbbf722583","2011-09-17 16:25:09","INTNAME","1001","https://mobile.mint.com:4…
如果 Perl 脚本使用的模块中抛出异常，如何防止它终止？
我有一个 perl 脚本，使用 standard-as-dirt Net::HTTP 代码和 perl 5.8.8。 我遇到了一个错误情况，当我调用时，服务器返回 0 字节数据： $_http_con…
在 mod_perl 下创建持久 memcached 连接的最佳方法是什么？
我知道有一个像 Apache::DBI 这样的模块，它允许在 mod_perl 下使用与数据库的持久连接。 有没有一种简单的方法可以制作这样的东西？您能推荐任何 mem…
Perl 中线程完成后如何清理线程？
我有一个 Perl 脚本，可以在验证某个表达式时启动线程。 while ($launcher == 1) { # do something push @threads, threads ->create(\&proxy, $param…
如何运行正则表达式来测试文本中特定字母或脚本中的字符？
我想在 Perl 中创建一个正则表达式来测试字符串中特定脚本中的字符。这就像： $text =~ .*P{'Chinese'}.* 有没有一种简单的方法可以做到这一点，对于…
加载模块时 perl 的包含路径中的搜索顺序是什么
假设 @INC 中有三个路径：path1、path2 和 path3。在每个路径下，都有一个名为 foo.pm 的模块。如果我现在通过 use foo; 在我的脚本中加载 foo.pm，那…
