-
perl – Moose :: Role – 增加角色应用的简单方法？
所属栏目：[大数据] 日期：2020-12-16 热度：123
我有一个Moose :: Role,当该角色应用于类时,我想在类上调用一些额外的subs. 有没有一种简单的方法来修改应用角色时会发生什么,而不必过多地挖掘Moose :: Meta :: Role类型编码？理想情况下,我只想在’apply’=之后…添加额外的东西. 编辑： 我特意使用它与DB[详细]
-
Perl更改当前包？
所属栏目：[大数据] 日期：2020-12-16 热度：80
如果不使用源过滤器,有没有办法更改当前运行的包？我正在努力完成 oose.pm所做的事情,我想知道我是否可以将我的用户放入非主程序包中. 解决方法 我想你可以通过改变C级别的PL_curstash和PL_curstname来做到这一点. PL_curstash = gv_stashpvs("Some::Package[详细]
-
如何使用Perl中的CGI :: Session处理Web会话？
所属栏目：[大数据] 日期：2020-12-16 热度：50
我使用CGI在Perl中创建Web应用程序.此应用程序实现模型视图控制器体系结构,并且系统在根目录中具有以下结构： -楷模 -views -controllers -index.pl 文件index.pl仅根据发送给它的某些参数包含相应的视图(使用函数param())： 这是我的index.pl： ###########[详细]
-
perl – 如何使用prove在不同的服务器上运行相同的测试？
所属栏目：[大数据] 日期：2020-12-16 热度：115
我正在使用Perl证明测试实用程序(TAP :: Harness)来测试我的程序. 我需要先在本地计算机上运行相同的测试,然后再在远程计算机上运行. (测试程序应分别连接到localhost或远程主机) 如何使用prove将参数(test_server)传递给测试？我应该使用环境还是有更好的解[详细]
-
regex – 如何使用Perl在两个时间戳之间的文件中搜索行？
所属栏目：[大数据] 日期：2020-12-16 热度：124
在Perl中,我试图读取一个日志文件,并且只打印具有两个特定时间之间的时间戳的行.时间格式为hh：mm：ss,这始终是每个日志的第三个值.例如,我会搜索在12:52:33到12:59:33之间的行 我是Perl的新手,并且不知道采取哪条路线来开始编程.我很确定这会使用某种类型的[详细]
-
perl – reftype {}有什么用？
所属栏目：[大数据] 日期：2020-12-16 热度：193
我最近看到一些代码提醒我提出这个问题.最近,我看到了很多这样的事情： use Scalar::Util 'reftype';if ( reftype $some_ref eq reftype { } ) { ... } 在匿名hashref上调用reftype的目的是什么？为什么不说eq’HASH’？ 解决方法 你现在可以将它与’HASH’[详细]
-
Perl的lib pragma如何工作？
所属栏目：[大数据] 日期：2020-12-16 热度：110
我使用lib“./DIR”从其他地方的文件夹中获取库.但是,它似乎不适用于我的服务器,但它在我的本地桌面上工作正常. 任何特殊原因？ 还有一个问题,是否使用lib在几个模块中传播？ 两种情况： 假设我创建了一个需要几个库的基类,但我知道它需要扩展,扩展类需要使[详细]
-
这是构建利用数组的Perl哈希的正确方法吗？
所属栏目：[大数据] 日期：2020-12-16 热度：125
这是我第一次以这种方式操纵哈希和数组 – 它正在运行.基本上,对于每个键,我想要记录多个值,然后以“key – value – value – val …”的形式打印出来. 我的代码如下.我很惊讶它有效,因此担心它会“误操作”.这是完成此任务的正确方法,还是有更有效或更合适[详细]
-
与Perl的Net :: Telnet连接时,如何修复“未知终端类型”？
所属栏目：[大数据] 日期：2020-12-16 热度：149
我在使用Perl的 Net::Telnet模块连接到SUSE linux机器时遇到了问题. 代码如下所示： my $t = new Net::Telnet (Timeout = 20);$t-open($server);$t-input_log("telnet.log");$t-login($user,$pass);my @lines=$t-cmd($command);print @lines; 日志文件如下所[详细]
-
perl – 如果相应的影子条目为999999,如何从/ etc / passwd中拉
所属栏目：[大数据] 日期：2020-12-16 热度：153
我想比较passwd文件中的每个用户和影子文件中的条目,如果影子文件中的条目与999999匹配,则打印出passwd文件的整行.Perl中最简单的方法是什么？或者我想我可以从一个文件中取出值并在另一个文件中匹配？这样做的最佳方式是什么？ 解决方法 awk -F":" 'FNR==NR[详细]
-
perl – MooseX :: NonMoose类中mixins的问题
所属栏目：[大数据] 日期：2020-12-16 热度：145
考虑以下： package MyApp::CGI;use Moose;use MooseX::NonMoose;use Data::Dumper;extends 'CGI::Application';BEGIN { print "begin isa = " . Dumper @MyApp::CGI::ISA;};print "runtime isa = " . Dumper @MyApp::CGI::ISA;... 编译时的输出是： begin[详细]
-
perl – 如何使用Expect.pm将箭头键按下发送到进程
所属栏目：[大数据] 日期：2020-12-16 热度：130
看起来这应该是显而易见的,但如何使用Expect.pm将箭头按键发送到进程？它取决于我使用的终端类型(vt100)还是我发送键盘扫描码？ TIA. 解决方法 它确实取决于您当前的TERM环境变量.一旦设置正确(比如VT220或 linux),那么箭头键就是 up: "c[[A"down: "c[[B"l[详细]
-
Perl中的非阻塞I / O操作是否仅限于一个线程？好的设计？
所属栏目：[大数据] 日期：2020-12-16 热度：87
我正在尝试开发一个服务,其中包含许多客户端和服务器套接字(服务器服务以及连接到托管组件并持久化的客户端),这些服务器通过IO :: Select进行同步轮询.我们的想法是处理I / O和/或请求通过工作线程池产生的处理需求. 使数据在Perl(threads :: shared)中的线[详细]
-
perl – 有没有人能够通过Confluence.pm添加附件？
所属栏目：[大数据] 日期：2020-12-16 热度：124
如果是这样,你可以提供代码.我几乎可以做任何其他事情,从创建新页面,修改页面属性等.但我似乎无法添加附件.我已经阅读了官方的 conflunce Perl XML-RPC site and discussions,但是他们在那里显示的所有代码片段似乎对我都不起作用.这是我对它的黑客攻击： #[详细]
-
如何从Perl CGI应用程序安排一次性任务？
所属栏目：[大数据] 日期：2020-12-16 热度：64
我正在编写一个应用程序,允许用户从Web应用程序( Linux / Apache / CGI :: Application)安排一次性长时间运行的任务.为此,我使用 Schedule::At模块,它是“at”命令的Perl接口.由于计划的任务不重复,我不考虑“cron”.我在“at”有两个问题： 当我的CGI应用程[详细]
-
如何将mod_perl中的Perl代码移植到FastCGI？
所属栏目：[大数据] 日期：2020-12-16 热度：51
我们有一个支持mod_perl的现有Perl应用程序.但是,我们的新主机(Dreamhost)不支持mod_perl,只支持FastCGI;因此需要港口. 现有代码不使用任何Apache特定的东西,只是以mod_perl可接受的方式编写的普通Perl代码. 阅读文档和在线教程,似乎添加FastCGI支持涉及将现[详细]
-
为什么PSIXDISTS被排除在modules.perl6.org的rsync之外？
所属栏目：[大数据] 日期：2020-12-16 热度：112
用于检索 modules.perl6.org ‘s DbBuilder.pm 中CPAN上可用的所有Perl 6模块的脚本明确排除了PSIXDISTS的任何发行版,即使该命名空间中有许多模块可用.这背后的原因是什么？ 解决方法 PSIXDISTS是Matt Trout在CPAN上支持Perl 6模块的早期尝试.见 https://sha[详细]
-
perl6 – 如何仅使用Zef安装测试依赖项
所属栏目：[大数据] 日期：2020-12-16 热度：183
zef在install子命令中只有–deps-only标志,只能安装模块的依赖项. zef install --deps-only . 这将安装META6.json中depends对象中引用的所有模块.是否有类似的标志来安装META6.json中test-depends对象中的所有模块？ 解决方法 zef install . --deps-only --/[详细]
-
获取已安装的模块以识别配置文件的更改
所属栏目：[大数据] 日期：2020-12-16 热度：120
我有一个包使用config.json它的一些设置.我在本地保留包,而不是从CPAN安装它.我的问题是当我对config.json进行更改时,程序包无法识别自配置文件缓存到别处以来的更改,迫使我运行zef install –force-install或delete precomp.如何确保程序包始终识别配置文件[详细]
-
Perl6 Regex Match Num
所属栏目：[大数据] 日期：2020-12-16 热度：172
我想从文本字符串的一部分匹配任何Num.到目前为止,这个(从 https://docs.perl6.org/language/regexes.html#Best_practices_and_gotchas被盗)完成了这项工作…… my token sign { [+-] } my token decimal { d+ } my token exponent { 'e' sign? decimal } m[详细]
-
套接字 – Perl 6 udp套接字：如何从服务器读取响应？
所属栏目：[大数据] 日期：2020-12-16 热度：67
server-udp.pl my $socket = IO::Socket::Async.bind-udp('localhost',3333);react { whenever $socket.Supply - $v { if $v.chars 0 { $v.print; } }} client-udp.pl my $socket = IO::Socket::Async.udp();await $socket.print-to('localhost',3333,"nHel[详细]
-
perl – 有没有办法为App :: cpanminus(cpanm)配置默认镜像？
所属栏目：[大数据] 日期：2020-12-16 热度：169
我知道您可以轻松配置cpan以使用特定的镜像.但是我最近在朋友的建议下开始使用cpanm,而且我似乎找不到设置默认镜像的方法,而不是每次都在命令行上指定–mirror http://cpan.metacpan.org. 是否有环境变量或配置文件,我可以设置默认镜像？ 至于为什么我不想使[详细]
-
perl6 – 在Perl 6中具有长于一个符号的密钥的.trans
所属栏目：[大数据] 日期：2020-12-16 热度：83
trans 是一个非常有用和强大的工具,但对我来说仍然是 a bit of a mystery. 例如.我仍然不理解文档中的这句话： In case a list of keys and values is used,substrings can be replaced as well. 如果键和值长于一个符号,算法是什么？ 以下测试代码探讨了.tr[详细]
-
Perl比较运算符输出
所属栏目：[大数据] 日期：2020-12-16 热度：111
我不确定比较的输出是什么.例如,考虑一下 $rr = 12;$qq = 21;print $rr; #nothing printedprint $qq; #1 printed $rr是空字符串吗？这种行为是否记录在某处？或者如何确定？ 我在Schwartz等人的Learning Perl中寻找答案,但无法立即解决问题. 解决方法 http:/[详细]
-
perl – Moose角色中的方法名称冲突
所属栏目：[大数据] 日期：2020-12-16 热度：175
我想要实现的是创建一个导入多个角色的Moose类.这是我多年来一直在做的事情没有问题,但我目前仍然坚持为什么下面的简单示例会产生方法名称冲突. package logrole;use Moose::Role;use POSIX;use namespace::autoclean;package otherrole;use Moose::Role;use[详细]
