-
循环中的Perl脚本在一次运行后结束
所属栏目：[大数据] 日期：2020-12-16 热度：99
我在 shell脚本的循环中运行Perl脚本： while [ $currentDate -le $toDate ]; do // code here... exec /users/my_user/script_name $currentDate // code here... done 我已经确认了while循环循环.但是,在运行一次Perl脚本之后,while循环结束. 有人可以对此[详细]
-
调试Perl程序员的工作流程
所属栏目：[大数据] 日期：2020-12-16 热度：140
我是Perl的新手,我有以下问题. 我有一个日志输出,我已经找到了这个日志输出来自哪里.我的意思是打印它的某个模块中的子程序. 现在例如在Java中通过Eclipse我将使用例如调用层次结构和其他实用程序,以查看如何/何时/谁调用该方法,并找出如何重现我需要和调试.[详细]
-
如何将相同大小的数组合并到Perl中的一个数组？
所属栏目：[大数据] 日期：2020-12-16 热度：103
我有几个大小相同的数组如下： @m1= (1,1,1);@m2= (0,1);@m3= (0,0);@m4= (1,0); 问题是如何将它放在这样的数组中？ @m = ( [1,1],[0,0],[1,0] ); 解决方法 编辑：既然你想复制数组(根据你的评论),那么我会这样做 – my @m = ( [ @m1 ],[ @m2 ],[ @m3 ],[ @m[详细]
-
在perl中返回函数的关联数组
所属栏目：[大数据] 日期：2020-12-16 热度：102
是否可以创建返回函数的关联数组？ 类似的东西 %a = ('first' = sub first { $x = @_; sprintf("(first %s)",$x); }); 谢谢 解决方法 这是可能的,但你可能想要我的($x)= @_;而不是$x = @_;当您处理匿名函数时,请删除函数名称. 然后你可以将函数称为$a {first[详细]
-
Perl foreach对哈希键的复杂性
所属栏目：[大数据] 日期：2020-12-16 热度：89
这段代码的复杂性是什么？ foreach $var (keys %varset) { print "${var}n";} 是O(n ^ 2)还是O(n),也就是说,每次迭代还是只调用一次键操作？ 解决方法 这是O(n).当foreach循环开始时,表达式在列表上下文中计算,然后循环遍历该列表.首先,不能保证随后对键的[详细]
-
perl – 如何查找模块依赖关系并安装它但没有cpan / cpanm？
所属栏目：[大数据] 日期：2020-12-16 热度：166
问题是我没有写入$HOME目录的权限. (我只能访问$HOME / app-root / data /上的新目录) 因为cpan / cpanm需要创建新目录$HOME / .cpan /我不知道如何手动(逐个)查找所有模块依赖项. 你们知道安装模块的其他方法(并找到依赖项)但是没有创建?/ .cpan /目录吗？[详细]
-
是否有Perl的LLVM后端？
所属栏目：[大数据] 日期：2020-12-16 热度：193
我有一个用C编写的项目,我希望将其转换为Perl.我的一个朋友建议使用LLVM.我使用Clang将我的C代码编译为LLVM程序集.现在我正在尝试将此中间表示转换为Perl,但我似乎无法找到它的任何后端.有人会指出我正确的方向吗？ 解决方法 不,没有这样的后端.至少不是直接[详细]
-
perl – 为什么要使用这个奇怪的包名变体？
所属栏目：[大数据] 日期：2020-12-16 热度：148
有人可以解释一下程序员在DBIx :: Class模块的文件 SQLite.pm中使用这个变体“包名”的目标吗？ 完整列表： package # Hide from PAUSE DBIx::Class::SQLAHacks::SQLite;use warnings;use strict;use base qw( DBIx::Class::SQLMaker::SQLite );1; 为什么在[详细]
-
Perl：无法使用SSL访问Web服务
所属栏目：[大数据] 日期：2020-12-16 热度：104
这是我的第一个Perl脚本.我已经使用CPAN安装了SOAP :: Lite,它似乎已经没问题了. 我正在尝试访问一个简单的HelloWorld .NET Web服务.我收到的错误似乎与Perl或SOAP :: Lite无法验证SSL证书有关. 虽然它看起来像是返回了500的代码,但是我创建了一个能够很好地[详细]
-
perl – 催化剂不能转向私人行动
所属栏目：[大数据] 日期：2020-12-16 热度：147
在 Catalyst我试图转向私人行动做一些工作.这是函数定义： sub get_form :Private :Args(1) { my ($self,$c,$type_id) = @_; #do stuff} 我试着像这样前进： $c-forward('get_form',[$type_id]); 但它只是给了我这个错误： Couldn't forward to command "get[详细]
-
如何查看Perl中文件的下一行
所属栏目：[大数据] 日期：2020-12-16 热度：135
我有一段代码打开一个文件并解析它.此文本文档具有冗余结构并具有多个条目.我需要在循环中查看是否有新条目,如果有,我将能够解析我的程序提取的所有数据.让我首先展示我到目前为止的实施情况 use strict;my $doc = open(my $fileHandler,"","test.txt");whil[详细]
-
在Perl中,如何在print语句中使用plus运算符进行算术计算？
所属栏目：[大数据] 日期：2020-12-16 热度：149
我有以下小型Perl(v5.10)程序： use strict;my @nums;my $i = 0;while ($i 5) { print "Enter number " . $i+1 . ": "; $nums[$i] = STDIN; $i++;}foreach (@nums) { chomp $_; print "$_t";}print "n"; 这是测试运行的结果： 1: 21: 11: 61: 31: 22 1 6 3[详细]
-
在Perl中,如何在子例程之间共享变量,使用严格？
所属栏目：[大数据] 日期：2020-12-16 热度：89
如果我不使用严格;以下代码工作正常并打印出“alice”： assign_name();print_name();sub assign_name { $name = "alice";}sub print_name { print $name;} 但是当我使用严格;然后我知道我必须在使用之前声明变量.我读到某个地方我应该使用我们而不是我来声[详细]
-
arrays – Perl中的数组赋值
所属栏目：[大数据] 日期：2020-12-16 热度：81
有什么区别 myArr1 = @existingarray 和 myArr2 = [ @existingarray ] 我将@existingarray分配给哈希映射中的元素. 我的意思是内部发生了什么.是第一个,它指向同一个数组,对于第二个数组,它创建一个新数组,其中包含@existingarray中的元素 提前致谢 解决方[详细]
-
performance – 别名perl中的哈希元素
所属栏目：[大数据] 日期：2020-12-16 热度：170
是否可以在不同的哈希键下访问相同的值？我如何告诉Perl不要复制“非常长的文本？” $hash-{'key'} = 'very long text';$hash-{'alias'} = $hash-{'key'}; 解决方法 简单的方法是使用对公共变量的引用. my $hash;my $val = 'very long text';$hash-{key} = [详细]
-
string – perl插值代码
所属栏目：[大数据] 日期：2020-12-16 热度：87
我知道在perl中你可以通过简单地执行以下操作来插入标量： "This is my $string" 但是,我想知道是否有一种方法可以插入实际的perl代码进行评估？使用ruby字符串可以看到我想要的想法： "5 + 4 = #{5 + 4}" 它将评估{}之间的任何内容. 有谁知道在perl中这样做[详细]
-
在perl传递中“使用”吗？
所属栏目：[大数据] 日期：2020-12-16 热度：173
package AA;package BB;use AA;package CC;use BB; 我是否必须在CC中使用AA,还是隐含的？ 解决方法 你可以 use一个模块,只要它之前已被加载.这就是为什么你可以使用其他模块创建的对象而不知道它们是什么对象类型的原因.例如,您可以使用从 LWP 方法返回的 HT[详细]
-
使用Perl DBI获取所有记录
所属栏目：[大数据] 日期：2020-12-16 热度：82
我有一个使用 DBI连接的Perl脚本.我使用子例程打开并读取SQL脚本文件.我只打印一条记录,我应该再打印两条记录(总共三条记录).我如何获得所有记录？ 结果： Alert:OUTBOUND_DATA:0 脚本： my $dbh_oracle = DBI-connect( $CFG{oracle_dbi_connect},$CFG{db_us[详细]
-
Perl中的递归目录遍历
所属栏目：[大数据] 日期：2020-12-16 热度：72
我正在尝试编写一个脚本,从脚本所在的文件夹开始打印出文件结构.脚本工作正常,没有递归调用但是通过该调用它打印第一个文件夹的内容并崩溃并显示以下消息：closedir()尝试在printFiles.pl第24行无效的dirhandle DIR.文件夹被打印,执行到达最后一行,但为什么[详细]
-
比较+ in perl
所属栏目：[大数据] 日期：2020-12-16 热度：148
我只是想检查字符串是否等于“+”,如果是,我将其更改为“”. 问题在于比较. if ($lastItem == "%2B"){ $lastItem = "+";} 当$lastItem完全不同(比如“hello”)时,它仍然会进入语句.我一直在wra自己的大脑,我只是不知道我哪里出错了. +有一些特殊含义吗？我对[详细]
-
perl – 自动从CPAN安装缺少的模块
所属栏目：[大数据] 日期：2020-12-16 热度：153
如果我想分发Perl脚本,那么无痛地安装用户系统中缺少的任何所需模块的最佳方法是什么？如果有一种方法甚至可以安装/升级Perl本身,如果它丢失或“太旧”,则可获得额外的功劳. 解决方法 自动安装软件是让最终用户和系统管理员对您非常生气的最佳方式.忘记这种[详细]
-
Perl的重命名：盖茨,比尔 – >比尔盖茨
所属栏目：[大数据] 日期：2020-12-16 热度：134
假设我有一个名为GATES,Bill.jpg的文件,我想将它们全部重命名为Bill Gates.jpg.我可以抓住这两个字 rename 's/^(.*?),(.*?)./$2 $1./g' * 要更改案例,有一些Perl的功能： $lower = lc("aBcDe"); # $lower is assigned "abcde" $upper = uc("aBcDe"); # $up[详细]
-
使用perl tie :: file和utf编码文件
所属栏目：[大数据] 日期：2020-12-16 热度：50
我可以将Tie :: File与utf编码的输出文件一起使用吗？我不能让这个工作正常. 我要做的是打开这个utf编码文件,从文件中删除匹配字符串并重命名该文件. 码： use strict;use warnings;use Tie::File;use File::Copy;my ($input_file) = qw (test.txt);open my[详细]
-
perl – 使用相同的语法按2条规则拆分
所属栏目：[大数据] 日期：2020-12-16 热度：150
我有一条线： Jon Favreau,Stan Lee,Justin Theroux,Robert Downey Jr. (Tony Stark) Gwyneth Paltrow (Pepper Potts) Don Cheadle (James Rhodes) 我想用逗号分割行,并用该结果括起来： Jon FavreauStan LeeJustin TherouxRobert Downey Jr. (Tony Stark)Gw[详细]
-
需要Perl JSON用法的例子
所属栏目：[大数据] 日期：2020-12-16 热度：78
如何解析Perl中的 JSON字符串？ 注意：我是C / Java / C#软件工程师,而不是Perl-Wielding脚本编写者. 我已经完全阅读了JSON.pm“文档”以找到一个有效的例子,但那些文档证明是完整的和彻底的垃圾“. 我也读过这个post,但似乎没有人知道如何从解码的perl变量[详细]
