-
sub _init在Perl解释中
所属栏目：[大数据] 日期：2020-12-16 热度：103
我想知道这个子程序在Perl中做了什么.我相信我有一般的想法,但我想知道一些语法. sub _init { my $self = shift; if (@_) { my %extra = @_; @$self{keys %extra} = values %extra; }} 这就是我认为它的作用：基本上将任何“额外”键值对添加到由变量$self引[详细]
-
perl – 复合哈希是否有Hash :: Util替代方案？
所属栏目：[大数据] 日期：2020-12-16 热度：178
我有一个复合hashref如下 my $ch = { k1 = [ { k=1 },{ m=2 } ],k2 = [ { l=90},... ],}; Hash :: Util :: lock_hashref_recurse($ch)无法有效锁定这些值. @ {$ch- {k1}} [0] – {k} =’新值’;被允许 ！我如何完全锁定这样的hashref？ 解决方法 根据 docume[详细]
-
为什么订单在使用Perl交换机时很重要？
所属栏目：[大数据] 日期：2020-12-16 热度：147
如果我这样做 – 我得到的结果与-len不同.示例：echo ham | perl -nle’m / ^ h(.{2})/;打[详细]
-
如何正确使用perl引用
所属栏目：[大数据] 日期：2020-12-16 热度：136
我在这里有一个关于refs的非常noob-ish问题,但至少仍然让我感到困惑…… 在下面的代码示例中,我正在尝试创建数组的哈希： #!/usr/bin/perluse strict;use warnings;use 5.010;use Data::Dumper;$Data::Dumper::Sortkeys = 1;$Data::Dumper::Terse = 1;$Data:[详细]
-
在perl中使用正则表达式匹配的奇怪问题,备用尝试匹配
所属栏目：[大数据] 日期：2020-12-16 热度：181
请考虑以下perl脚本： #!/usr/bin/perl my $str = 'not-found=1,total-found=63,ignored=2'; print "1. matched using regexn" if ($str =~ m/total-found=(d+)/g); print "2. matched using regexn" if ($str =~ m/total-found=(d+)/g); print "3. matc[详细]
-
arrays – Perl：查找哈希值和计算平均值的最大值
所属栏目：[大数据] 日期：2020-12-16 热度：51
在大约6个月的休息之后,我回到了Perl和生物信息学的世界,在一位不同的科学家下实习.但是第一次任务不同于我上次遇到的任何一项任务,所以虽然我取得了一些进展,但我还是无法解决整个问题.我也试图尽快修改我上次学到的东西,因为在过去的6个月里我完全失去了编[详细]
-
在Perl中“回复警告”是一种好习惯吗？
所属栏目：[大数据] 日期：2020-12-16 热度：196
我想检查一个条件,打印一个警告,并从一个子程序返回一行代码.这有效(我认为警告返回1)： return warn "can't find file" if not -f $input_file; 我可以安全地这样做吗？或者还有更好的方法吗？ 解决方法 这是非常安全的,但它需要查看 source来确定返回的值([详细]
-
perl – 如何在ExtUtils :: MakeMaker Makefile.PL中指定测试先
所属栏目：[大数据] 日期：2020-12-16 热度：153
PREREQ_PM指定运行时先决条件,但是如何指定运行测试用例需要哪些模块？ 我应该使用BUILD_REQUIRES吗？ 解决方法 截至 ExtUtils::MakeMaker 6.64,有一个TEST_REQUIRES参数. use ExtUtils::MakeMaker 6.64;WriteMakefile( ...,TEST_REQUIRES = { Test::More =[详细]
-
perl – Vim代码阅读 – 关闭/最小化括号
所属栏目：[大数据] 日期：2020-12-16 热度：101
我必须阅读一些巨大的Perl脚本,我想知道你们如何在GUI文本编辑器中添加“最小化”括号功能.因为这个原因,我很难理解代码,如果我可以最大限度地减少那些巨大的if,功能等……我的心情会非常感激. 解决方法 通过最小化,我想你指的是代码“折叠” :help fold zC[详细]
-
perl – 安全隔间中的“无警告”
所属栏目：[大数据] 日期：2020-12-16 热度：97
我使用 reval从Perl的 Safe模块,我想阻止它产生警告如果被eval’ed字符串不能被解析(实际上,我想阻止它产生任何警告的话). 例如,以下代码： use strict; use warnings;use Safe; use feature qw/say/;my $cft = Safe-new;my $x = $cft-reval(') 1' );my $y =[详细]
-
Perl：从另一个文件访问“我的”变量
所属栏目：[大数据] 日期：2020-12-16 热度：182
我们在工作时使用Perl脚本来执行维护.我需要修改它来处理更多任务.问题是脚本被编译并且源很久以前就丢失了. 我尝试使用B :: Deparse来重新创建文件,但Deparse并不完美,输出被破坏(非常大~5000行的去除代码). 读完解码后的代码后,我发现需要修改一个函数.编[详细]
-
perl代码合并多个文本文件
所属栏目：[大数据] 日期：2020-12-16 热度：123
我有多个文本文件.我已编写代码通过 shell输入2个文件并合并它们.但我如何合并多个文件.系统命令是有用的. my @a = read_file($file1) or die "couldn't read $file1 - $!";my @b = read_file($file2) or die "couldn't read $file2 - $!";my $combined = {}[详细]
-
在Perl中,如何禁用在必需脚本中加载的CGI :: Carp？
所属栏目：[大数据] 日期：2020-12-16 热度：105
我有一个小的Perl程序,我想在命令行上运行.我需要另一个其他人编写的Perl脚本(不是模块).反过来,这需要一些其他脚本. (我无法对这种方式做任何事情). 现在,其中一个脚本使用CGI真的很烦人;并在其中使用CGI :: Carp qw(fatalsToBrowser).我不要那个.每次出现[详细]
-
从Perl调用Fortran程序而不保存输入/输出文件
所属栏目：[大数据] 日期：2020-12-16 热度：159
我正在使用Perl程序将用户输入正确格式化为Fortran程序的输入文件. Fortran程序创建输出文件和错误文件.从Perl调用Fortran程序,如： system "/mydirectories/fortranexecutable $inputfile $outputfile $errorfile"; 我想知道是否有办法调用Fortran可执行文[详细]
-
开始Perl
所属栏目：[大数据] 日期：2020-12-16 热度：80
这是一个非常简单且非关键的问题.我之前有一些编程背景(从FORTRAN开始,那是多久以前),我正在使用Simon Cozen的Beginning Perl学习一些perl编码的基础知识.第2章分配包括编写一个简单的程序来解释整数条目( STDIN)并打印等于该数字的十进制整数.我有 Windows[详细]
-
perl – 如何为URL编码西里尔字符然后解码它们？
所属栏目：[大数据] 日期：2020-12-16 热度：171
我在一个页面上有一个表单： form method="POST" accept-charset="UTF-8" action="index.cgi" name="TestForm" 其中一个输入字段“search_string”可用于发送西里尔字符,如果发生这种情况,则URL字符串如下所示： search_string=%41F%2F%424+%41F%41E%414%416[详细]
-
perl – 比较和验证数据结构
所属栏目：[大数据] 日期：2020-12-16 热度：183
我必须像这样检查hashrefs { foo = 65,bar = 20,baz = 15 } 对表达这样的条件的hashrefs的arrayref [ { foo = { "=" = 75 } },{ bar = { "==" = 20 } },{ baz = { "=" = 5 } },] 如果满足所有条件,则返回真值. 两个数据结构都没有预先确定.一个是通过解析数[详细]
-
如何使用perl命令从URL读取查询参数值
所属栏目：[大数据] 日期：2020-12-16 热度：134
在 shell中,我需要从URI中提取特定的查询参数. 我试图用这个来获得“抵消”价值 echo "/mypath/index.php?offset=20query=uro" | perl -MURI -le 'chomp($url = ); print URI-new($url)-query_form("offset")' 但它总是返回offset = 20 query = uro 请帮忙[详细]
-
perl – 如何使用Catalyst和uri链接REST接口？
所属栏目：[大数据] 日期：2020-12-16 热度：130
我期待收到uri的喜欢 /user/*/account/* 我有一个用户函数定义为 sub user :Path('/user') :PathPart('') :ActionClass('REST' ) {} 然后 sub user_GET :PathPart('user') Chained('/') CaptureArgs(1) { #do stuff} 对于帐户我也是类似地定义它们. sub acco[详细]
-
如何在Perl 6中使用SQLite？
所属栏目：[大数据] 日期：2020-12-16 热度：67
我想开始涉足Perl 6.我编程的很大一部分涉及SQLite数据库.看起来在Perl 6中使用SQLite已经付出了工作,但我能找到的大部分信息都陈旧而模糊. 我看到了一个“perl6-sqlite”模块here,但它被标记为[old]并且几乎没有.我也看过references to a new DBI based on[详细]
-
perl – 如何在Template :: Toolkits CATCH块中发出警告？
所属栏目：[大数据] 日期：2020-12-16 热度：195
我正在处理的代码在Template :: Toolkit模板中有一堆TRY / CATCH块.它们看起来像这样： [% TRY; x = OBJ.method(data); CATCH; "!-- error: $error --"; END %] 从两个角度来看这很糟糕.首先,错误被插入到交给用户的HTML中,其次,很难为开发人员找到错误.在我[详细]
-
使用带有emacs编辑器的perl
所属栏目：[大数据] 日期：2020-12-16 热度：157
我是perl和emacs的新手,想在emacs编辑器上使用perl 如何将perl模式添加到emacs23或将其配置为使用perl更友好？ 解决方法 别忘了 www.emacswiki.org是金矿！在 http://www.emacswiki.org/emacs/PerlLanguage有一个页面 我认为perl语言的自动完成很好： http:/[详细]
-
使用Dancer perl的多个应用程序目录
所属栏目：[大数据] 日期：2020-12-16 热度：170
有没有办法让一个应用程序在舞者,但有多个appdirs. 或者我可以这样做： 我的项目是dir’foo’.让我们说我有一个dir’bar'(不在’foo’里面),它有一个名为’public’的目录.我的应用程序’foo’使用这个公众作为自己的公众,如果它搜索让我们说’/css/style.cs[详细]
-
perl – 空列表可以在标量上下文中吗？
所属栏目：[大数据] 日期：2020-12-16 热度：166
有一个谎言,标量上下文中的列表产生列表的最后一个元素.这是一个谎言,因为(俗话说)你不能在标量上下文中有一个列表.看起来像标量上下文中的列表实际上是标量上下文中的逗号运算符,它在标量上下文中具有不同的行为. 但是,在这个逻辑中似乎存在一个循环漏洞：[详细]
-
perl – 这样的代码的目的是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：161
253: my $sel = select(FOUT);254: $| = 1; # for DB::OUT255: select($sel); 看起来很奇怪,在Term :: ReadLine模块中发现. 解决方法 Writing to STDOUT (or any other output filehandle) is buffered by default. To ask Perl to flush immediately after[详细]
