-
perl – REST :: Client：如何忽略SSL证书
所属栏目：[大数据] 日期：2020-12-16 热度：189
我正在使用REST :: Client,我的代码因SSL错误而失败. 这是代码： #!usr/bin/perl -wuse strict;use REST::Client;my $client = REST::Client-new();$client-GET("https://something/api/sessions");print $client-responseContent(); 这是输出： WP::Protoco[详细]
-
perl – 如何使waitpid阻止循环
所属栏目：[大数据] 日期：2020-12-16 热度：122
以下代码运行2个孩子,他们将等待10秒并终止.父母坐在一个循环中,等待孩子们终止： #!/usr/bin/perluse strict;use warnings;use POSIX ":sys_wait_h";sub func# {{{{ my $i = shift; print "$i startedn"; $| = 1; sleep(10); print "$i finishedn";}# }}}[详细]
-
Perl – 确定数组是否是另一个数组的子集
所属栏目：[大数据] 日期：2020-12-16 热度：137
参见英文答案 Difference of Two Arrays Using Perl????????????????????????????????????10个 我有以下代码.如果没有附加的CPAN模块,可以简单地编写子集吗？ my @possibleNames = ("adam","chelsea");my @actualNames = ("adam","chucky","chelsea");sub is[详细]
-
perl – 循环 – 提取文本以进行记录,直到下一条记录
所属栏目：[大数据] 日期：2020-12-16 热度：77
我的虚拟文件如下所示： Tom text text text,year = 16 text text text Grades . . . . 10 Grades . . . . 9 Ann text text text,year = 17 text Grades . . . . 10 Grades . . . . 10 Grades . . . . 9 我想要： 对于每个名称赋值,提取年份和年份等级行中的[详细]
-
perl – 将属性重置为默认值
所属栏目：[大数据] 日期：2020-12-16 热度：155
我可以像这样宣布与Moose的关系： has 'attr' = (is = 'rw',isa = 'Int',default = 10); 是否可以将此值重置为默认值？ 例： $obj-attr(5); # sets attr to 5$obj-_reset_attr;print $obj-attr; # will print 10 解决方法 如果你这样做： has 'attr' = ( is[详细]
-
使用perl表达式查找字符串中的最小模式
所属栏目：[大数据] 日期：2020-12-16 热度：110
我试图在(2个字符串)字符串示例中找到最小模式： enter code here #!/usr/bin/perl use warnings; use strict; my $str1; $str1 = 'abbabbabbabbabb'; # abb is repeating $str1 = 'abababababababa'; # ab is repeating $str1 = 'abaaaabaaaabaaa'; # abaaa[详细]
-
如何在perl模式下禁用字符组合？
所属栏目：[大数据] 日期：2020-12-16 热度：71
当我在emacs中处于perl模式时(最近升级到GNU Emacs 23.3.1),::,– 和= (可能还有其他符号组合)缩减为∷,→和?符号.这对我复制和粘贴文本的能力造成了严重破坏,并导致可读性错误.有没有办法禁用这个“功能”？ 解决方法 (setq perl-prettify-symbols nil)应该[详细]
-
在perl中连接字符串时出现意外结果
所属栏目：[大数据] 日期：2020-12-16 热度：84
我试图执行下面的脚本,但没有获得所需的输出.它似乎仍然保留旧的价值并保持连接. ./test.pl -v v10,v11,v12 实际结果= ‘V10’,‘V11’,‘V10’,‘V12’,‘V10’ 预期结果= ‘V10’,‘V12’ 你能帮忙解决这个问题吗？ #!/usr/bin/perluse strict;use warning[详细]
-
arrays – 复制前N个键和Hash of数组的值
所属栏目：[大数据] 日期：2020-12-16 热度：150
我有一个数组哈希. %HoA = ( 'C1' = ['1','3','3'],'C2' = ['3','2'],'C3' = ['1','4','5','5'],'C4' = ['3','4'],'C5' = ['1'],); 我想编写一个子例程,它返回一个数组的“子副本”哈希,它包含数组原始哈希的前N个键(及其值). 像这样的东西 my %HoA2 = new_p[详细]
-
perl5库是否可以在perl6中导入？
所属栏目：[大数据] 日期：2020-12-16 热度：161
我知道perl6将定义允许导入perl5代码,但我无法做到这一点. 这是perl6 code use perl5:Net::FTP; 它报告了error 是否存在配置问题或尚未准备好？ 解决方法 内嵌:: Perl5的 截至2014年底,对于大多数人而言,对于大多数人来说,Inline::Perl5是在P6中使用P5代码的[详细]
-
perl中的异常处理
所属栏目：[大数据] 日期：2020-12-16 热度：166
我已经看到在eval块的末尾出现1,用于perl中的异常处理.为什么需要这个？如果eval块返回false会发生什么？ 即使我们不直接使用$@但是CPAN的一些库要进行异常处理,这是否需要？ 解决方法 如果eval块返回false会发生什么？ eval返回该错误值. 为什么需要这个？[详细]
-
在Perl中,看到é是e,E的变体
所属栏目：[大数据] 日期：2020-12-16 热度：165
我在Perl中处理以utf-8编码的字符串.一个任务是我需要一种方法来知道以带有变音符号的字母开头的单词,例如“écrit”,以与“elephant”相同的字母开头,以及“England”.我需要一个通用的解决方案,因为我将使用多种语言.我需要知道这一点,因为我正在为索引创[详细]
-
Perl遍历文件中的每一行并附加到另一个文件中每行的末尾
所属栏目：[大数据] 日期：2020-12-16 热度：176
我有两个包含以下内容的文本文件： FILE1.TXT dogcatantelope FILE2.TXT 12Barry 我想要实现的输出如下： dog1dog2dogBarrycat1cat2catBarryantelope1antelope2antelopeBarry 我这样做了： open (FILE1,"File1.txt") || die $!; open (FILE2,"File2.txt") ||[详细]
-
在Emacs中执行Perl,最基本的
所属栏目：[大数据] 日期：2020-12-16 热度：173
我正在学习如何在Emacs中使用Perl.我以前用R-Studio运行R. 如何在不离开Emacs的情况下执行命令？ 示例：在R-studio中输入 print("hello world") 然后按Ctrl Enter键,R-studio执行命令并输出“hello world”. 如何在Emacs中为Perl命令执行相同操作？ 我通常键[详细]
-
perl – 为dzil测试创建并运行作者测试
所属栏目：[大数据] 日期：2020-12-16 热度：87
我试图使用几个Dist :: Zilla插件来生成和运行作者测试.唯一的问题是它们是由dzil构建而不是用dzil测试运行的.举个例子,我的dist.ini中有一些行： [Test::Compile] ; Create t/00-compile.t[Test::UnusedVars] ; Create xt/unused-vars.t[RunExtraTests] ; r[详细]
-
如何使Perl测试按给定顺序执行？
所属栏目：[大数据] 日期：2020-12-16 热度：70
当我使用Test :: Class和Test :: More进行系统测试时,似乎测试用例并行执行.然而,我的测试之间存在依赖关系,因此我希望测试执行系列.我怎样才能做到这一点？ 解决方法 从底部NOTES部分的模块Test :: Unit :: TestCase的文档中： 如果需要指定测试订单,可以执[详细]
-
perl – 基于第二个数组从数组中删除元素
所属栏目：[大数据] 日期：2020-12-16 热度：146
我有一个数组@ list1中的文件名前缀列表和第二个数组@ list2中的完整文件名列表.最后,我想得到第三个数组,其中只包含与@ list1中的前缀不匹配的完整文件名.我开始时： for my $match (@list1) { @list3 = grep { !/$match/ } @list2;} 但它没有做我认为会做[详细]
-
数组 – 数组初始化中的Perl qx执行顺序
所属栏目：[大数据] 日期：2020-12-16 热度：83
假设我有以下内容： my @net = (`echo "HELLO" file`,`less file`); 是否保证执行顺序是从0..N开始(数组中的第一个元素先执行,然后是第二个,等等)？ 我已经测试了这个,这就是真正发生的事情,但我可以指望吗？ 谢谢, 解决方法 是.右侧括号()中的每个逗号分隔[详细]
-
perl – 为什么包A中的函数在递归调用时不会导入到包B中？
所属栏目：[大数据] 日期：2020-12-16 热度：176
我正在尝试使用两个包并从一个调用函数到另一个,但我有这个错误： 未定义的子程序 module2 :: method_1_2在module2.pm第20行调用. 有没有办法从一个包调用函数到另一个包而不会出现此错误？ 提前致谢. 哈维 执行错误： ./test.plmethod_1_1method_2_1method_[详细]
-
Perl IO :: Socket :: SSL：connect：网络无法访问
所属栏目：[大数据] 日期：2020-12-16 热度：157
使用Mail :: IMAPClient的任何代码都有此错误.要验证我已使用主题中的以下示例： How do I authenticate into Gmail using Perl? #!/usr/bin/env perl -wuse strict; use warnings;use Mail::IMAPClient;# Connect to IMAP servermy $client = Mail::IMAPCli[详细]
-
在PERL中将SHA1十六进制转换为base64编码(对于Apache htpasswd)
所属栏目：[大数据] 日期：2020-12-16 热度：151
我有一个 PHP应用程序,其密码存储在数据库中作为sha1($password)的输出,这显然是二进制SHA1哈希的十六进制表示. (据我所知) 我想将其转换为兼容Apache .htpassword文件的格式,它需要是base64编码的二进制值或base64_encode的输出(sha1($password,true)). 我[详细]
-
如何在包含application / x-www-form-urlencoded数据的perl中发
所属栏目：[大数据] 日期：2020-12-16 热度：160
如何在Perl中创建包含application / x-www-form-urlencoded数据的HTTP PUT请求？ 这是一个有效的POST请求： my $ua = new LWP::UserAgent;my $response = $ua-post( $url,{ "parameter1" = $value1,"parameter2" = $value2 }); 如何作为PUT请求完成？ LWP中[详细]
-
perl – 排序与线性搜索查找最小值/最大值
所属栏目：[大数据] 日期：2020-12-16 热度：128
最近,我在perl中遇到了以下代码,它返回所有传递的参数中的最小数值. return 0 + ( sort { $a = $b } grep { $_ == $_ } @_ )[0]; 我通常使用简单的线性搜索来查找列表中的最小值/最大值,这对我来说似乎很简单且充分优化.以上代码是否比简单的线性搜索更好？[详细]
-
perl – 抑制重载运算符的void上下文警告
所属栏目：[大数据] 日期：2020-12-16 热度：97
有没有办法在调用者中为重载运算符抑制特定警告？ 背景：我正在查看一个重载 =和 =的模块,以实现一种声明性域特定的语言.无论这是否是一个好主意,这些运算符在void上下文中使用时会抛出“在void上下文中无用”警告.就像是： package Boundary;use strict;use[详细]
-
Perl,如何将重复标识符和重叠值的数据合并到散列中
所属栏目：[大数据] 日期：2020-12-16 热度：157
我想知道你是否可以帮我解决一个我无法理解的编码问题.我看到的制表符分隔的数据类似于以下内容： 00001 AU:137 AU:150 AU:18000001 AU:137 AU:17000002 AU:18000003 AU:147 AU:15500003 AU:155 我想要的输出是： 00001 AU:137 AU:150 AU:180 AU:17000002 AU[详细]
