-
perl – 测试使用Dist :: Zilla的XS模块
所属栏目：[大数据] 日期：2020-12-16 热度：83
我正在研究一个具有大量XS代码的Perl模块,并且还使用Dist :: Zilla来管理打包.什么是有效测试事物的最佳方法？我知道dzil测试,但这很慢,因为它每次调用时都会进行完整的构建/编译/测试循环. 最好只更新自上次测试以来需要更新的部分,并且只能运行某些t / * .[详细]
-
Perl使用IO :: Uncompress :: AnyUncompress读取zip文件
所属栏目：[大数据] 日期：2020-12-16 热度：82
我们正在从我们当前的构建系统(这是一个烂摊子)转变为使用Ant与Ivy的构建系统.我正在清理所有构建文件,并找到jar依赖项.我认为通过检查项目中的jar,找到它们包含的类,然后将这些类与 Java代码中的各种import语句进行匹配,我可以更容易地自动化它. 我之前使用[详细]
-
perl – MIME :: Lite包无效的路由地址
所属栏目：[大数据] 日期：2020-12-16 热度：166
我想要使??用MIME :: Lite包向多个用户发送电子邮件.我试图用空格,分号或昏迷分隔地址,但没有任何效果.我仍然收到错误“无效的路由地址”. 解决方法 您是否使用抄送或收件人字段列出多个地址？ 这说,抄送字段和简单的逗号：https://metacpan.org/pod/MIME::L[详细]
-
如何在其他列之间插入一列(Perl Spreadsheet :: WriteExcel)
所属栏目：[大数据] 日期：2020-12-16 热度：115
假设我有以下电子表格,我可以在perl中解析,如下所示： 我想在Column1和Column2之间插入一列.所以最终结果如下： 在Spreadsheet-WriteExcel中看起来没有这样的set方法. 有没有人知道在Perl中这样做的简单方法？ 提前谢谢了！ 解决方法 Spreadsheet :: WriteEx[详细]
-
Perl：如何漂亮打印时差(持续时间)
所属栏目：[大数据] 日期：2020-12-16 热度：138
如何在perl中打印持续时间？ 到目前为止我唯一能想到的就是 my $interval = 1351521657387 - 1351515910623; # millisecondsmy $duration = DateTime::Duration-new( seconds = POSIX::floor($interval/1000),nanoseconds = 1000000 * ($interval % 1000),);[详细]
-
无法处理perl LDAP搜索
所属栏目：[大数据] 日期：2020-12-16 热度：72
这是我在StackOverFlow上的第一个问题,所以如果我做错了,请告诉我. 我正在编写一个perl脚本来执行LDAP搜索,以识别用户所属的列表组.我阅读了关于这个主题的perldocs,并在这个网站上找到了一些例子,但是我无法让脚本正常运行. 这是我的代码： #!/usr/bin/perl[详细]
-
Perl记录哪些脚本/模块访问另一个模块
所属栏目：[大数据] 日期：2020-12-16 热度：166
我们维护了大量的perl模块,实际上它非常庞大,我们甚至不知道我们负责的所有模块.我们希望跟踪哪些脚本和模块在某种日志中访问另一个模块,最好是按模块名称存储,这样我们就可以评估更新模块是否存在风险,以便我们知道可能会影响到什么. 有没有简单的方法来做[详细]
-
Perl – Facebook Graph API
所属栏目：[大数据] 日期：2020-12-16 热度：71
很久以前很容易区分桌面和Web应用程序,但今天在阅读文档时我注意到这种差异不太明显. 我正在使用Facebook :: Graph模块来创建桌面应用程序,但仍然无法超越配置阶段.我陷入了身份验证阶段： my $q = Plack::Request-new($env);$fb-request_access_token($q-qu[详细]
-
perl – 使用PSGI,是否可以更改上传文件的命名方式？
所属栏目：[大数据] 日期：2020-12-16 热度：153
我有一个小的PSGI应用程序,它从表单上传并将其传递给另一个脚本进行处理： #!/usr/bin/perluse strict;use warnings;use Plack::Request;use HTTPStatusCode;my $app = sub { my $req = Plack::Request-new(shift); my $content; if (keys %{$req-uploads})[详细]
-
在Perl中识别矩阵中的子数组
所属栏目：[大数据] 日期：2020-12-16 热度：79
我对Perl相对较新,我需要进行相对复杂的基质计算,并且不知道要使用哪种数据结构. 不确定这是否适合这个论坛,但是说你在Perl中的多维数组中有以下矩阵： 0.2 0.7 0.2 0.6 0.8 0.70.6 0.1 0.80.1 0.2 0.90.6 0.3 0.00.6 0.9 0.2 我正在尝试识别此Matrix中的列[详细]
-
验证子进程的Perl参数
所属栏目：[大数据] 日期：2020-12-16 热度：137
所以我是Perl程序员的开始.我已经使用它大约一个月了,但是只有在过去一周左右我才将它用于除sysadmin类型任务之外的任何其他任务.这样做我遇到了以下问题, Perl子进程非常灵活,并且它们不会对您传入的参数施加许多/任何约束.如何强制执行参数数量和/或检查它[详细]
-
Perl在不同情况下找到有效的线对
所属栏目：[大数据] 日期：2020-12-16 热度：148
我有每个GET / POST以制表符分隔形式的HTTP标头请求和回复数据,并以不同的行回复.此数据使得一个TCP流有多个GET,POST和REPLY.我需要在这些情况下只选择第一个有效的GET – REPLY对.一个例子(简化)是： ID Source Dest Bytes Type Content-Length host lines.[详细]
-
使用名称将参数绑定到Perl中的postgres查询
所属栏目：[大数据] 日期：2020-12-16 热度：143
我正在使用Perl脚本,我想使用命名参数在Postgres数据库中执行查询. DBI documentation说这不便携： Some drivers also allow placeholders like :name and :N (e.g.,:1,:2,and so on) in addition to ?,but their use is not portable 无论如何我还想那样做.[详细]
-
通过Perl的DBI $sth-> execute()函数将字符串插入数据库时??
所属栏目：[大数据] 日期：2020-12-16 热度：79
我正在使用Perl的DBI和SQLite数据库(我安装了DBD :: SQLite).我有以下代码： my $dbh = DBI-connect("dbi:SQLite:dbname=$db","",{ RaiseError = 1,AutoCommit = 1 });...my $q = "INSERT OR IGNORE INTO books (identica,book_title) VALUES (?,?)";my $sth[详细]
-
Perl – 将文件从文件加载到哈希
所属栏目：[大数据] 日期：2020-12-16 热度：151
是否可以将文件中的记录直接加载到哈希中？记录以/ begin和/ end分隔,并具有固定的内容顺序. 我想要的是这样的哈希填充： hash_city{London}{slurped_record}='/begin CITY Londonn bign Englandn Sterlingn/end CITY'hash_city{Paris}{slurped_record}=[详细]
-
Perl：安全评估？
所属栏目：[大数据] 日期：2020-12-16 热度：97
我很好奇是否有关于进行限制性逃避的任何好消息. 查看文档,有一个使用Safe的reval方法,但我不确定它有多安全. 我想要做的是能够将各种条件语句作为字符串传递给没有eval的源的函数. 例如： sub foo { my $stmt = shift; my $a = 3; say eval($stmt)?"correct[详细]
-
在ActivePerl下的Padre：不工作？
所属栏目：[大数据] 日期：2020-12-16 热度：75
我安装了ActivePerl版本5.12.2.1202和PPM版本4.11. 我想使用带有GUI的调试器,我可以在其中看到Perl程序变量.在对Eclipse和EPIC感到失望之后,(因为看起来他们非常非用户友好且无情(很多失败)),我决定试用Padre. 我将wxperl存储库添加到PPM存储库,并下载了Padr[详细]
-
迭代Perl中的祝福对象
所属栏目：[大数据] 日期：2020-12-16 热度：87
我正在研究一些使用BigIP :: iControl模块查询F5负载均衡器的代码. 现在,当我从特定函数返回的变量上执行Dumper时,我得到以下输出. 我在迭代这个对象时遇到了很多麻烦. 我怎么能迭代这个并且只为每个成员取出monitor_status？ $VAR1 = [ bless( [ bless( { '[详细]
-
无法从Perl中的pdf中读取文本
所属栏目：[大数据] 日期：2020-12-16 热度：102
我试图将pdf文件的文本内容读入Perl变量.从其他SO问题/答案我得到我需要使用CAM :: PDF的感觉.这是我的代码： #!/usr/bin/perl -wuse CAM::PDF;my $pdf = CAM::PDF-new('1950-01-01.pdf');print $pdf-numPages()," pagesnn";my $text = $pdf-getPageText(1[详细]
-
在Perl中分叉多个子节点并使用管道进行双向通信
所属栏目：[大数据] 日期：2020-12-16 热度：140
我正在尝试创建一个具有多处理功能的小型Perl程序.由于我的要求中存在一些小的变化,我无法在任何地方找到任何类似的示例脚本. 我需要从STDIN读取一个大的日志文件,并将第一个N号码(一个大号码)再次给第一个子进程,然后将第二个N行给第二个子进程等.我还有一[详细]
-
如何在perl中使用Qt GUI(使用Qt Designer创建)？
所属栏目：[大数据] 日期：2020-12-16 热度：112
我在Qt Designer中创建了Qt GUI并将其编译(使用puic4)到gui.pm. 现在,我想在我的Perl应用程序中使用它,但是因为我不知道如何创建窗口对象而被卡住了. 我在start.pl中有以下代码： use strict;use QtCore4;use QtGui4;use gui; #compiled gui ('Ui_MainWindow[详细]
-
为Perl / Mason i18n进行字符串提取的自动化方法？
所属栏目：[大数据] 日期：2020-12-16 热度：62
我目前正致力于将一个非常大的Perl / Mason Web应用程序国际化,作为一个团队(这是否使这成为一个死亡之旅？).该应用程序已接近20年,并以相对老派的Perl风格编写;它不使用Moose或其他OO模块.我目前正计划使用 Locale::Maketext::Gettext进行消息查找,并使用GN[详细]
-
perl – 如何使用CAM :: PDF更新PDF元数据
所属栏目：[大数据] 日期：2020-12-16 热度：192
如何使用 CAM::PDF 添加/覆盖PDF的标题和作者元数据？ 解决方法 我是CAM :: PDF的作者.该库不支持这种编辑,但您可以通过深入研究这样的内部结构： #!perl -wuse strict;use CAM::PDF;my $infile = shift || die 'syntax...';my $outfile = shift || die 'syn[详细]
-
为什么这两个RegEx基准测试差异如此之大？
所属栏目：[大数据] 日期：2020-12-16 热度：61
为什么这两个RegEx基准测试差异如此之大？ 他们使用相同的RegEx,一个就地,一个通过qr存储// 结果： Rate rege1.FIND_AT_END rege2.FIND_AT_ENDrege1.FIND_AT_END 661157/s -- -85%rege2.FIND_AT_END 4384042/s 563% -- Rate rege1.NOFIND rege2.NOFINDrege1.[详细]
-
perl – 如何在Template Toolkit中删除变量？
所属栏目：[大数据] 日期：2020-12-16 热度：163
查看模板工具包手册的 Template::Manual::VMethods部分,我没有看到任何方法这样做.同时将undef赋值给变量也不起作用 – variable.defined在事实之后返回true. 解决方法 好吧,谷歌搜索“删除变量”网站：mail.template-toolkit.org/pipermail/templates/带来[详细]
