-
如何将参数传递给使用eval定义的Perl子例程？
所属栏目：[大数据] 日期：2020-12-16 热度：100
我正在使用配置文件(在YAML中)来定义稍后用于验证我的应用程序所需的其他配置值的类型： ---action: use List::MoreUtils; my $value = $_; any { $value eq $_ } qw(fatal keep merge non-fatal replace);dir : return defined $_ ? -d $_ : -1;file : retu[详细]
-
如何将UTF-8字符串与Perl的printf正确对齐？
所属栏目：[大数据] 日期：2020-12-16 热度：134
什么是正确的方式来获得一个美丽的输出(所有行相同的缩进)？ #!/usr/bin/env perluse warnings;use strict;use DBI;my $phone_book = [ [ qw( name number ) ],[ 'Kroner',123456789 ],[ 'Holler',[ 'Müh?ig',[ 'Singer',[ 'Maurer',];my $dbh = DBI-connec[详细]
-
如何从Perl的system()开始获取进程的PID？
所属栏目：[大数据] 日期：2020-12-16 热度：148
我正在编写一个Perl脚本,它运行4个同时具有不同输入参数的完全相同的进程(参见背景 here – 我的其余部分在阅读之后会更有意义). 我正在对一个生成数据的程序进行system()调用(XFOIL,再次参见上面的链接).我的这个程序的单核版本如下所示： eval{ local $SIG[详细]
-
perl – 如何检测程序是否在PAR存档中运行？
所属栏目：[大数据] 日期：2020-12-16 热度：149
我正在研究一个与 PAR捆绑在一起的大型Perl应用程序,以及一堆支持文件. 当应用程序在PAR中运行时,我可以使用PAR :: read_file来获取存档中的这些各种文件.但是,在我开发的过程中,我不想每次调整一些代码时都必须对整个应用程序进行重新PAR. 有没有办法告诉我[详细]
-
perl – 哪本书对DBIx :: Class有最好的讨论？
所属栏目：[大数据] 日期：2020-12-16 热度：149
我不知道 DBIx::Class ORM是否足以证明有关该主题的整本书的合理性,但我想得到一本关于DBIx :: Class ORM细节的书的推荐. 解决方法 我不知道你能不能比 online documentation做得更好.在 introduction,walkthrough example和 cookbook之间,我想你将拥有开始[详细]
-
在编译Perl的DBD :: mysql时如何修复“未找到符号：_is_prefix”
所属栏目：[大数据] 日期：2020-12-16 热度：159
首先,我想构建 DBD::mysql包.这仍然失败,因为无法使用未找到符号的测试加载导致的任何内容：_is_prefix.所以我认为cpan可能有点老了.我知道这是一个随机的假设,但cpan确实告诉我安装最新的 Bundle::CPAN. 谁在Mac OS X 10.5上成功安装了DBD::mysql或 Bundle:[详细]
-
如何在Perl的Term :: Shell中完成选项卡的完成？
所属栏目：[大数据] 日期：2020-12-16 热度：167
我在Perl中使用 Term::Shell软件包来实现CLI工具.我无法用命令部分完成选项卡. comp_CMD() – 这是由Term :: Shell提供的API,用于实现选项卡完成. 这对我没有帮助.有谁知道如何使这项工作？ 示例代码： #!/usr/bin/env perlpackage Sample;use base qw(Term:[详细]
-
如何在Perl中模拟Web服务器？
所属栏目：[大数据] 日期：2020-12-16 热度：198
我们的Web应用程序与几个我们无法影响的Web服务一起工作.在每个工作流程(使用Selenium测试)之后,发生对Web服务的挂钩调用.我想嘲笑那个服务器.理想情况下,我想要一个HTTP服务器对象,我可以随意启动和终止,以及一个URL调度程序,它会在调用时调用我的测试中的[详细]
-
perl – 异常后重试操作：请批评我的代码
所属栏目：[大数据] 日期：2020-12-16 热度：186
我的Perl应用程序使用暂时不可用的资源,导致使用die的异常.最值得注意的是,它访问由多个线程共享的SQLite数据库以及通过DBIx :: Class使用的其他应用程序.每当发生此类异常时,都应重试该操作,直到达到超时. 我更喜欢简洁的代码,因此我很快就厌倦了 为每个这[详细]
-
perl – 暂时将STDOUT重定向到/ dev / null – 不能一直工作
所属栏目：[大数据] 日期：2020-12-16 热度：127
我在用 Server version: Apache/1.3.34 (Debian)mod_perl - 1.29 参考STDIN,STDOUT,and STDERR Streams #!/usr/bin/perl5package main;use strict 'vars';{ # Our mighty holy legacy code love to print out message in the middle of operation. Shihh....[详细]
-
如何从Perl或命令行激活Excel加载项？
所属栏目：[大数据] 日期：2020-12-16 热度：50
(请原谅我对Excel加载项的无知,并在适当的时候随意纠正我的女性主义.) 我有一个经常使用的Excel加载项.此加载项会插入一个带有许多按钮的工具栏.我想自动执行在Excel中打开电子表格然后“单击”其中一个按钮的任务.换句话说,我想使用Perl(或命令行)来激活此[详细]
-
如何使用Perl正则表达式在Screen中搜索模式？
所属栏目：[大数据] 日期：2020-12-16 热度：75
我有一个过程,它让我在屏幕上连续输出.我想在输出中通过以下Perl的正则表达式搜索CamelCase单词,以便我可以主动监视输出. /b([a-z]*[A-Z][a-z]*){2,}b/ 解决方法 我在GNU / Screen中测试并检查了源代码.两者都表明这是不可能的.搜索功能似乎仅支持基本字符[详细]
-
perl – ‘使用lib’是否适用于UNC路径？
所属栏目：[大数据] 日期：2020-12-16 热度：151
我的托管脚本已被移动,不再有效. The specified CGI application misbehaved by not returning a complete set of HTTP headers. 我注意到我的主机公司的某个人已经修改了我的脚本,以便我曾经拥有过 use lib 'd:/myorig/LIB'; 我现在有 use lib '//newhost/L[详细]
-
如何在Perl脚本中包含所有/部分“子模块”？
所属栏目：[大数据] 日期：2020-12-16 热度：148
我刚才开始说我对创建Perl模块没有任何经验,所以如果我离开这里,我很抱歉. 假设我正在创建一些模块： foo::barfoo::bar::afoo::bar::b 因为我不知道它们叫什么,所以我称之为a.pm和b.pm模块“子模块”,因为它们与bar.pm模块有关,但仍然可能有些独立. 所以我的[详细]
-
为什么我的Perl curses窗口不起作用？
所属栏目：[大数据] 日期：2020-12-16 热度：166
我对Curses的理解可能比使用Perl更有问题,但请帮帮我.我正在使用Curses.pm,除非我尝试创建一个curses“窗口”,否则它的效果非常好.示例代码： use Curses;initscr;$w=newwin(1,1,40,40);$w-addstr(20,20,"Hello");$w-refresh;refresh;endwin; 没有输出.不使[详细]
-
perl – 如何从minicpan存储库中排除模块？
所属栏目：[大数据] 日期：2020-12-16 热度：96
我有一个本地MINICPAN存储库,但我想删除一个特定版本的模块,并注入一个旧版本. 这是我采取的步骤. - create the MINICPAN,not filtering any modules- use mcpani --add for the module in question- use mcpani --inject 此时,我可以在MINICPAN中看到它同时[详细]
-
perl – 如何使用XML :: LibXML解析标记以查找xmlns定义
所属栏目：[大数据] 日期：2020-12-16 热度：143
播客似乎没有一致的方式来定义他们的RSS提要. 进入一个为RSS使用不同模式defs的人. 使用XML :: LibXML在RSS URL中扫描xmlnamespace的最佳方法是什么 例如. 一个饲料可能是 rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://[详细]
-
Perl只读取特定的gz文件行
所属栏目：[大数据] 日期：2020-12-16 热度：198
我正在尝试创建一个解析脚本,解析一个压缩了gunzip的大文本文件(200万行).我只想解析文本文件中的一系列行.到目前为止,我已经使用zgrep -n找到两行,提到我知道将开始的字符串并结束我感兴趣的文件部分. 在我的测试用例文件中,我感兴趣的只是读取123080到1393[详细]
-
数据结构 – 如何创建像树一样的数据结构
所属栏目：[大数据] 日期：2020-12-16 热度：88
对于我的项目,我需要构建一个树结构.我正在寻找一种在树叶上种植它的方法.我通过使用listy结构简化了失败的尝试： my $root = a = (b = (c= Nil));my $here := $root;while $here.value ~~ Pair { $here := $here.value;}$here = d = Nil; 这不起作用,因为我[详细]
-
在Perl中创建符合Fancytree预期JSON格式的目录树
所属栏目：[大数据] 日期：2020-12-16 热度：102
如何在Perl中创建目录树以符合Fancytree预期的 JSON format？ 这是我想出的Perl部分,遍历给定的路径： sub get_tree{ my ($gpath) = @_; my %r; use File::Find; my $c = sub { my $dir = $File::Find::dir; my $r = %r; my $tdir = $dir; $tdir =~ s|^Q$g[详细]
-
perl – 标志’pIOK`是什么意思？
所属栏目：[大数据] 日期：2020-12-16 热度：195
当使用Devel :: Peek转储perl SV时,我可以看到： SV = IV(0x1c13168) at 0x1c13178 REFCNT = 1 FLAGS = (IOK,pIOK) IV = 2 但找不到pIOK的含义. 我试着看看Devel :: Peek,perlapi,perlguts,perlxs …… 在消息来源中我发现： {SVp_IOK,"pIOK,"} 但还是找不到[详细]
-
perl perlpacktut对我没有意义
所属栏目：[大数据] 日期：2020-12-16 热度：115
我真的很困惑perl的打包和解包定义. 以下是perl.doc.org的摘录 The pack function converts values to a byte sequence containing representations according to a given specification,the so-called “template” argument. unpack is the reverse proces[详细]
-
perl6 – 如何在Perl 6中创建哈希数组？
所属栏目：[大数据] 日期：2020-12-16 热度：200
如何将已被推入数组的哈希独立于“源”哈希？ my %country;my Hash @array;%country{ 'country' } = 'France';@array.push(%country);%country{ 'country' } = 'Germany';@array.push(%country);.say for @array; 输出是： {country = Germany}{country = Ge[详细]
-
perl6 – 如何使Perl 6语法产生多个匹配(如：ex和：ov)？
所属栏目：[大数据] 日期：2020-12-16 热度：97
我想语法做这样的事情： "abc" ~~ m:ex/^ (w ** 1..2) (w ** 1..2) ${say $0,$1}/?ab??c??a??bc? 或者像这样： my regex left { S ** 1..2 } my regex right { S ** 1..2 } "abc" ~~ m:ex/^ leftright ${say $left,$right}/?ab??c??a??bc? 这是我的语法[详细]
-
perl6精度base4转换
所属栏目：[大数据] 日期：2020-12-16 热度：105
转换为base4时,Perl 6的精度会下降.如何保持精度？ '0.2322130120323232322110'.parse-base(4)-- perl6 output : 0.728295262649453-- high precission value: 0.728295262649453434278257191181182861328125 问题是,当将0.728295262649453转换为base(4)时,[详细]
