-
Perl 5.8级联空检查
所属栏目：[大数据] 日期：2020-12-16 热度：116
假设我有以下Groovy代码： String name = child.getParent()?.getParent()?.getName(); 请注意,getParent()可能返回null,在这种情况下,代码将继续工作,而不会抛出空指针异常. 有没有办法在Perl 5.8的一行中清楚地做到这一点？我愿意编写一个通用的帮助方法来[详细]
-
perl – WWW :: Mechanize在六秒后进行第二次重定向
所属栏目：[大数据] 日期：2020-12-16 热度：159
我使用Perl和 WWW::Mechanize 模块将表单提交到网页并将结果保存到文件中.我知道如何提交表单并保存数据,但是在这六秒重定向后我无法保存数据. 提交表单后,页面将重定向到显示的页面 Results should appear in this window in approximately 6 seconds... 并[详细]
-
perl – Mojolicious动态路线动作取决于州
所属栏目：[大数据] 日期：2020-12-16 热度：91
我正在使用Mojolicious :: Plugin :: Authentication来处理我的应用程序中的身份验证.我正在尝试设置斜线’/’的路由,如果经过身份验证将有一个控制器/操作,如果没有则设置另一个(即,根据您是否经过身份验证,您将转到另一个页面.)我不确定如何实现这一目标.[详细]
-
如何在Perl中向Websocket的连接客户端发送定期消息
所属栏目：[大数据] 日期：2020-12-16 热度：176
这个问题类似于 Python的这个问题： WebSocket Server sending messages periodically in python 在Perl中创建WebSocket的示例使用了一个小消息发送服务： http://search.cpan.org/~topaz/Net-WebSocket-Server-0.001003/lib/Net/WebSocket/Server.pm 代码是[详细]
-
perl – 当我使用JSON :: decode_json时,Test :: Deep :: cmp_de
所属栏目：[大数据] 日期：2020-12-16 热度：96
在Perl v5.10.1中,我需要将原生perl结构与unicode字符与 JSON :: decode_json创建的类似结构进行比较. 例： use strict; use warnings;#use utf8;use JSON;use Test::Deep qw(cmp_deeply);cmp_deeply(["1"],JSON::decode_json('["1"]'),'utf8 test 11'); # w[详细]
-
在Perl中安装GD.pm时启用PNG支持
所属栏目：[大数据] 日期：2020-12-16 热度：184
我已经安装了GD.pm.我想确保它支持PNG. 所以要检查我这样做： $perl -e 'use GD; $im=GD::Image-new(); print $im-can("png") ? "yes" : "no","n";'no 正如你看到的.它没有打印. 然后我通过以下过程从CPAN下载最新的GD： wget http://search.cpan.org/CPAN/[详细]
-
perl – 将父进程的STDERR重定向到子进程的文件句柄
所属栏目：[大数据] 日期：2020-12-16 热度：147
我需要从Perl脚本调用外部日志记录进程,该脚本将传递给它的数据并将其写入网络服务.这很容易做到.但是,我有额外的要求,即从父进程对STDERR的任何写入都会被重定向到外部进程. 我尝试做的是打开外部进程的写管道的文件句柄,然后将STDERR重定向到文件句柄.这是[详细]
-
在Perl催化剂中通过URL传递参数
所属栏目：[大数据] 日期：2020-12-16 热度：129
是否可以通过perl催化剂中的URL传递参数 我有一个链接 a href="/vbo/mortgage_reduction/yearly" Yearly /a 我可以通过链接传递参数,例如 a href="/vbo/mortgage_reduction/yearly/1" Yearly/a 如果是这样,我如何获取模块中的值？ 解决方法 我自己刚刚开始学[详细]
-
perl – 如何知道使用Win32 :: Job启动的进程的状态
所属栏目：[大数据] 日期：2020-12-16 热度：170
我有以下内容以启动超时的进程 use Win32::Job;my $job = Win32::Job-new;# Run $command for $max_time$job-spawn($Config{"C:/Windows/System32/cmd.exe"},$command,new_group);$job-run($max_time);$job_stat=$job-status;print LOG "$command status $jo[详细]
-
在Perl中更有效地处理AoA的笛卡尔积
所属栏目：[大数据] 日期：2020-12-16 热度：115
我正在计算具有相同值的组中两个项目的概率值(与生日问题类似的情况,http://en.wikipedia.org/wiki/Birthday_problem). 为此,我有24组三个值.组中的每个项目将具有来自24组中的每一组中的3个值. 我需要做的计算是获得这些值的所有可能迭代的乘积平方和. 鉴于[详细]
-
Devel :: Cover合并Perl脚本和模块的覆盖率数据
所属栏目：[大数据] 日期：2020-12-16 热度：136
我有问题合并数据覆盖Perl脚本和模块..运行Devel :: Cover单独工作正常,但当我尝试组合数据时,我失去统计信息只是Perl脚本而不是模块.. 让我解释.. 我有一个看起来像这样的目录树.. Code_Coverage_Test | |----lib | |----t | 在根Code_Coverage_Test目录中,[详细]
-
perl – mysql_skip_secure_auth不跳过安全身份验证
所属栏目：[大数据] 日期：2020-12-16 热度：132
编辑：据我所知,这个问题的根本原因是正在安装正确的Perl模块,但是正在加载错误的 mysql.so文件. my $dsn = "DBI:mysql:" . "database=$db;" . "host=$dbhost;" . "mysql_ssl=$dbssl;" . "mysql_skip_secure_auth=1;"; 我最近尝试升级我们的DBD :: mysql版本[详细]
-
perl – 当文本小部件中的光标位置发生变化时,自动调用子例程
所属栏目：[大数据] 日期：2020-12-16 热度：91
我正在使用 Tk::Text 模块. 我希望每当用户在Tk :: Text模块中更改光标的位置时,它应该作为触发器来调用我编写的子例程. 我该如何实现呢？ 编辑： 正如Donal Fellows所回答的那样,在调用markSet例程时,我不知何故需要查找是否更改了插入标记.我已广泛搜索网[详细]
-
perl – Devel ::覆盖HTML输出
所属栏目：[大数据] 日期：2020-12-16 热度：86
我正在玩Devel :: Cover,看看我们的测试套件实际上是如何测试我们的代码库的.我使用-MDevel :: Cover运行所有测试似乎没有失败或崩溃,但覆盖表的 HTML输出包含所有模块的这些条目： 列出的BEGIN数似乎与源文件中使用Module :: X语句的数量相匹配,但实际上混[详细]
-
perl – 无法运行checksetup.pl for BugZilla需要ppm安装DBI
所属栏目：[大数据] 日期：2020-12-16 热度：83
我正在按照 https://wiki.mozilla.org/Bugzilla:Win32Install的BugZilla安装指南进行操作. 我正在尝试在我的Windows 2008服务器上安装BugZilla.我已经安装了Perl 4.17,Apache for Windows 2.2.25和BugZilla 4.4.1.我正在执行命令 C:bugzillaperl checksetup[详细]
-
perl – 根据标题和日期计算行数
所属栏目：[大数据] 日期：2020-12-16 热度：160
我有一个标签分隔文件格式： Business System Name: OK_CR Serial Numbr Service Name Program Name Epoch Start Time ------------ -------------------- -------------------- ------------------- GI1001TAA266 PPV 10 (50106) We Bought A Zoo Aug 14 20[详细]
-
跟踪Perl中的非确定性MySQL错误
所属栏目：[大数据] 日期：2020-12-16 热度：52
我有一个在托管共享服务器上运行的单线程Perl脚本,主要执行以下代码： my $O_dbh = DBI-connect("dbi:mysql:dbname=dbname","abc","xxx",{RaiseError = 1});$O_dbh-begin_work();my $O_sth1 = $O_dbh-prepare('SELECT COUNT(*) FROM mytable WHERE any = 5')[详细]
-
从perl脚本以html格式发送邮件
所属栏目：[大数据] 日期：2020-12-16 热度：132
我正在使用unix环境并有一个perl脚本来发送邮件,但我需要发送 HTML格式的邮件,但它打印,因为它是HTML代码.所以任何人都可以让我知道它如何操纵或编译HTML和发送格式化的邮件. #!/usr/bin/perl#print "Content-type: text/htmlnn";print("enter my name");c[详细]
-
为什么仅将Perl OO用作数据封装技术？
所属栏目：[大数据] 日期：2020-12-16 热度：70
我正在尝试使用已编写的Perl API来使用Moose OO系统,但对象之间绝对没有涉及的继承,聚合或组合. 并且,除了用于调试的单个可选角色之外,还没有涉及角色或混合. 就目前我所看到的,使用Moose似乎只是增加了大量的复杂性和编译时开销,但收效甚微. 为什么要使用Mo[详细]
-
Perl Moose可以创建多个访问者吗？
所属栏目：[大数据] 日期：2020-12-16 热度：156
因此,Perl的标准命名约定是snake_case,但我正在编写一个模块来与使用camelCase的REST API进行交互,使用Moose基础结构创建对象.我宁愿让对象适用于任何一种情况,但我似乎无法获得多个Moose-y访问器.以下是我能想到的唯一方法. has 'full_name' = ( is = 'rw',[详细]
-
regex – 在Perl中重复编号的捕获组
所属栏目：[大数据] 日期：2020-12-16 热度：97
想象一下,我正在尝试使用Perl正则表达式解析以下html： h4test/h4 pnum1/p pnum2/p pnum3/ph4test/h4 pnum1/p pnum2/p pnum3/p pnum4/p 使用以下正则表达式： h4([ws]*)/h4(?:p([ws]+)/p)+ 编号组如何在Perl中构建？ 1美元显然会包含 h4标记文本,但是当[详细]
-
Perl模块实例化DBI Forks“Mysql服务器已经消失”
所属栏目：[大数据] 日期：2020-12-16 热度：154
我编写了一个perl程序,将csv中的记录解析为db. 该计划工作正常,但需要很长时间.所以我决定分叉主解析过程. 在用叉子进行一些争吵后,它现在运行良好,运行速度提高了约4倍.主要的解析方法是数据库密集型的.为了兴趣,对于每个被解析的记录,有以下db调用： 1 –[详细]
-
如何更改Perl的LWP发送的HTTP请求标头的顺序？
所属栏目：[大数据] 日期：2020-12-16 热度：165
对于测试,我需要对网站进行一次获取 – 不幸的是,当使用perl lwp时,“连接”出现在主机的标题b4中.结果,请求被Web应用程序防火墙过滤.我只需要删除或下移标题中的连接线.当我用我的脚本执行requets时： use warnings;use IO::Socket;use LWP::UserAgent;use[详细]
-
perl – 打开位于同一目录中的文件时出错
所属栏目：[大数据] 日期：2020-12-16 热度：61
我刚刚开始学习Perl,我遇到了与打开与我的程序位于同一目录中的文件有关的问题. #!/usr/bin/perl -w$proteinfilename = 'NM_021964fragment.pep';open(PROTEINFILE,$proteinfilename) or die "Can't write to file '$proteinfilename' [$!]n";$protein = PR[详细]
-
perl – 比较2个目录中文件的修改日期
所属栏目：[大数据] 日期：2020-12-16 热度：81
所以我为自己想出了一个帮助学习Perl的小项目,这是我可以实际使用的东西.我们的想法是比较2个目录中的文件修改日期列表. 1来自FTP,我本地有1个,如果它们更新则从本地上传(这部分可以在以后处理).我已经创建了单独的脚本(我计划将它们组合在一起,只是修补一下[详细]
