-
如何使用Perl中的引用复制数组？
所属栏目：[大数据] 日期：2020-12-16 热度：110
如果我执行以下操作,它可以正常工作： print $ref-{element}-[0]-{data}; 我想看看数组中有多少引用,以便我可以遍历它们,但我很难做到这一点. 这是我尝试过的代码,但它不起作用： my @array = @$ref-{element};foreach(@array) { print $_-{data};} 我收到“[详细]
-
perl – “foreach”循环中发生了什么样的本地化？
所属栏目：[大数据] 日期：2020-12-16 热度：135
来自perldoc perlsyn关于Foreach循环的主题： If the variable was previously declared with my,it uses that variable instead of the global one, but it’s still localized to the loop. 但请考虑这个例子： use Devel::Peek;my $x = 1;Dump $x;for $x[详细]
-
如何从Perl中彻底更改Win32标题栏的外观？
所属栏目：[大数据] 日期：2020-12-16 热度：87
我正在学习使用 Win32::GUI将GUI添加到我的Perl程序.现在我可以使用以下内容更改Win32标题栏的图标： $myicon = new Win32::GUI::Icon('myicon.ico');$myclass=new Win32::GUI::Class(-name='myclass',-icon=$myicon,); $mydialogbox = new Win32::GUI::Dial[详细]
-
如何复制除Perl中所有隐藏文件之外的目录？
所属栏目：[大数据] 日期：2020-12-16 热度：121
我有一个包含大量文件的目录层次结构.一些目录以…开头 我想在其他地方复制层次结构,省略所有以a开头的文件和目录. 怎么能这样做？ 解决方法 我想你想要的是 File::Copy::Recursive的rcopy_glob()： rcopy_glob() This function lets you specify a pattern[详细]
-
Perl和Ruby交换AES加密信息
所属栏目：[大数据] 日期：2020-12-16 热度：119
在Perl for Ruby中,Crypt :: CBC的等价物是什么？ 注意：此问题类似于stackoverflow:655691上的PHP / Perl. Perl版本 use Crypt::CBC;use MIME::Base64::Perl;my $cipher = Crypt::CBC-new( -key = "95A8EE8E89979B9EFDCBC6EB9797528D",-keysize = 32,-ciphe[详细]
-
如何从Perl中的DNA序列中提取起始和结束密码子？
所属栏目：[大数据] 日期：2020-12-16 热度：158
我有一个代码,试图确定给定DNA序列的起始和结束密码子的位置. 我们将起始密码子定义为ATG序列,并将末端密码子定义为TGA,TAA,TAG序列. 我遇到的问题是下面的代码只适用于前两个序列(DM208659和AF038953),但不适用于其余的序列. 我的方法下面有什么问题？ 此代[详细]
-
regex – Locale-aware Perl正则表达式(匹配单词边界)
所属栏目：[大数据] 日期：2020-12-16 热度：91
我目前有点卡在Perl中的正则表达式(取自我的 earlier question)来匹配非ASCII语言环境中的单词字符(即德语变音符号). 我已经尝试了各种各样的事情,比如设置正确的语言环境(使用setlocale),将我从MySQL收到的数据转换为UTF8(使用decode_utf8),等等……不幸的[详细]
-
Perl的FreezeThaw中cmpStr和cmpStrHard有什么区别？
所属栏目：[大数据] 日期：2020-12-16 热度：85
在 FreezeThaw中cmpStr和cmpStrHard有什么区别？ 它们在FAQ How do I test whether two arrays or hashes are equal?中提到 解决方法 文档非常模糊,源代码很难遵循,但FAQ中的示例提供了一些见解.在研究了所有这些之后,我想我会理解这些功能以及文档的含义. C[详细]
-
perl – 如何以编程方式比较两个存档文件的内容？
所属栏目：[大数据] 日期：2020-12-16 热度：150
我正在做一些测试,以确保我使用脚本文件创建的一个zip文件将生成与我必须手动点击并通过Web界面创建的几个zip文件的内容相同的输出.因此zip将具有不同的文件夹结构. 当然我可以手动提取它们并使用我强大的眼球技术扫描它们甚至更懒,我可以写一个脚本来做到这[详细]
-
perl6 – 在汇集上下文中的表达式“-1”中无用的使用“ – ”(第
所属栏目：[大数据] 日期：2020-12-16 热度：95
我正在尝试为使用此代码抛出异常的函数进行测试： use v6;use Test;plan *;use lib "lib";use Math::ConvergenceMethods;sub f ($x) {return $x + 1;}{ is-approx: bisection(f,-2,0),-1; dies-ok: { bisection(f,3,2) },"Incorrect arguments";}done-testin[详细]
-
调用子例程时perl autovivification
所属栏目：[大数据] 日期：2020-12-16 热度：86
调用程序时为什么自动生效不起作用？在这种情况下有没有办法禁止它？ #!/usr/bin/env perlno autovivification;use Data::Dumper;sub testsub { }my $task;print Dumper($task); # $VAR1 = undef;my $a = $task-{parent_id};print Dumper($task); # $VAR1 =[详细]
-
perl6 – 是否可以在Perl 6中使非编译时编译时代码？
所属栏目：[大数据] 日期：2020-12-16 热度：76
假设我想在编译时创建许多类型,但在此之前让我们用一个更简单的例子来测试编译时代码： # in file root.pm6sub foo($a) { $a.say }sub EXPORT { # Things here may be a lot more complex foo 1; foo 2; foo 1; %( one = 1 )} 以及直接原始库和最终用户文件[详细]
-
perl6 – 是否有可能将TT2与Cro一起使用？
所属栏目：[大数据] 日期：2020-12-16 热度：160
我正在考虑使用perl6和Cro来构建一个包含文本内容的网站.是否有关于使用模板工具包(如TT2)和代码示例使用Cro的最佳实践/指导？ 解决方法 你看过Cro :: WebApp吗？ 见https://github.com/jnthn/cro-webapp – 也可以使用“Template :: Mojo”. 这是一个Cro服[详细]
-
perl6 – 为元模型类追上’require’
所属栏目：[大数据] 日期：2020-12-16 热度：175
我已经定义了自己的元模型类来创建一种特殊的类.现在,我希望这些类能够自动注册一个特殊的经理.基本上,这就像这样(只有在每次加载类模块时才会调用)： use MyManager;class MyHOW is Metamodel::ClassHOW { method compose ( Mu type ) { self.add_parent([详细]
-
perl6 – 在sink上下文中无用的LOOP_BLOCK_1符号
所属栏目：[大数据] 日期：2020-12-16 热度：70
用一个代码片段 perl6 -e 'loop { FIRST say "foo"; last }' 我明白了 WARNINGS for -e:Useless use of LOOP_BLOCK_1 symbol in sink context (line 1)foo 我知道如何解决警告.我想知道警告的来源是什么.我找到了this open ticket,但它似乎没有得到任何关注.[详细]
-
perl6 – Cro :: WebSocket :: Client不起作用
所属栏目：[大数据] 日期：2020-12-16 热度：195
用“cro sub”创建了一个websocket服务器. 写了这个客户： use v6;use Cro::WebSocket::Client;constant WS-PORT = '20000';constant WS-ADDRESS = 'localhost';constant WS-PATH = 'chat';constant WS-URL = 'ws://' ~ WS-ADDRESS ~ ':' ~ WS-PORT ~ '/' ~[详细]
-
repository – 尝试在运行时管理Perl6的$* REPO
所属栏目：[大数据] 日期：2020-12-16 热度：145
在Perl 6中复制FindBin :: libs的行为. (1) Start from `$Bin`. (2) Search for `./lib` dir's above it. (3) prefix them to the search list. 在P6中,这需要管理$* REPO,我认为需要使用CompUnit :: RepositoryRegistry,但我在modules.perl6.org(可能因为它[详细]
-
如何获取测试用例的多行列表初始值设定项中的当前行号？
所属栏目：[大数据] 日期：2020-12-16 热度：53
有没有办法在Perl期间可靠地获取当前行号 没有明确使用__LINE__的多行列表分配？我是 将测试用例存储在列表中,并希望用它的行标记每个测试用例 数字.*那样我可以(粗略地) 对于@tests,确定($_- [1],’line’.$_- [0]). 而且,当然,我想保存打字比较 将__LINE__[详细]
-
perl – 寻找棕榈星期天
所属栏目：[大数据] 日期：2020-12-16 热度：131
棕榈星期日是复活节前的星期天.通过以下方式可以实现复活节周日： use Time::Moment;use Time::Moment::Adjusters qw(WesternEasterSunday PreviousDayOfWeek);# 2018-04-01T00:00:00Zmy $easter_sunday = Time::Moment-new(year = 2018)-with(WesternEaster[详细]
-
匹配Perl正则表达式中捕获组的反向转换
所属栏目：[大数据] 日期：2020-12-16 热度：137
我试图找到匹配某个模式的字符串,然后是该模式的反向转换,然后用字母O分隔. 翻译规则是/ ABC / XYZ. 匹配示例：CCBAOXYZZ 第一部分匹配模式[ABC] {3,25}.然后有一个字母O也匹配.然后我们看到XYZZ与CCBA相反,并且应用了上述转换. 我设法将tr规则写入我的反向[详细]
-
什么是Perl中的`null vK`？
所属栏目：[大数据] 日期：2020-12-16 热度：172
使用Perl,我有两个类似的语法, if ($a $b) { exit() }do { exit() } if ($a $b) 我相信这些应该是同一个东西,但是最上面的一个创建了一个null vK操作码, 1 null vK*/1 -- null vK的意义是什么？它有什么作用？ $perl -MO=Concise -e'if ($a $b) { exit() }'8[详细]
-
perl – 如何获取coderef的行号和文件名？
所属栏目：[大数据] 日期：2020-12-16 热度：67
说我有一些库代码,不完全不同于： sub try_hard { my $sub = shift; my $tries = 3; my @failures; while($tries--) { eval { my $success = $sub-(@_) or die "sub returned false value"; 1; } or do { push @failures,$@; } } die "try_hard: failed 3 ti[详细]
-
Perl尝试捕获用户定义的异常
所属栏目：[大数据] 日期：2020-12-16 热度：189
我想知道perl是否有一些类似于 python的try catch机制,我可以提高用户定义的异常并相应地处理. Python代码： try: number = 6 i_num = 3 if i_num number: raise ValueTooSmallError elif i_num number: raise ValueTooLargeError break except ValueTooSmal[详细]
-
perl – 将替换应用于grep返回的第一个项目
所属栏目：[大数据] 日期：2020-12-16 热度：93
我有这个程序 sub f { return ("A/X","B/X"); } $x = grep( /X$/,f() ) =~ s//X$//r; print "$xn"; ($x) = grep( /X$/,f() ) =~ s//X$//r; print "$xn"; ( ($x) = grep( /X$/,f() ) ) =~ s//X$//; print "$xn"; ($x) = grep( /X$/,f() ); $x =~ s//X/[详细]
-
Perl：哈希键中的常量值
所属栏目：[大数据] 日期：2020-12-16 热度：178
我有点吃惊.如果我使用常量来表示哈希键Perl不使用该值.我需要把在它面前实现这一目标. use constant A = "a";use constant B = "b";my %h = (A = "1",B = "2");print "n". A . "," . B;foreach (sort (keys (%h))){ print "n" . $_ . "=" . $h {$_};} 输[详细]
