-
为Perl开发人员编写最佳实践教程
所属栏目：[大数据] 日期：2020-12-16 热度：65
我一直在为从事 Java工作的参与者提供有关编程实践和编写质量代码的培训.面向对象的分析和设计是我的基础,我涵盖了S.O.L.I.D.清洁代码,代码完成2等书籍的原则和摘录. 我计划在两天内向Perl程序员(在Perl中使用不到1年的exp)提供培训,他们不使用Moose(Perl 5[详细]
-
perl – 如何在另一个模块中使用哈希
所属栏目：[大数据] 日期：2020-12-16 热度：87
for Ex : package test1 ; my %hash = ( a= 10,b = 30 ) ;1;in Script : use test1 ;print %hash ; # How to make this avilable in script without sub 解决方法 良好的编程习惯规定您不允许外部代码直接混淆模块的数据,而是必须通过中介,例如访问器例程. T[详细]
-
perl – 按字典顺序排序
所属栏目：[大数据] 日期：2020-12-16 热度：179
我看到以下代码的结果,但我不明白在以下排序示例中该如何知道或知道该怎么做： use Data::Dumper;$animals{'man'}{'name'} = 'paul';$animals{'man'}{'legs'} = 2;$animals{'cheeta'}{'name'} = 'mike';$animals{'cheeta'}{'legs'} = 3;$animals{'zebra'}{'n[详细]
-
perl – 在3中找到最多的数字
所属栏目：[大数据] 日期：2020-12-16 热度：79
我正在尝试编写一个脚本来查找3个数字中最大的数字,并通过命令行参数传递它们 我只是想知道我在这段代码中写的错误是什么,谢谢你的帮助. sub maximum($) { ($num1) = @_ ; ($num2) = @_ ; ($num2) = @_ ; $max = $num1; if ($num2 $num1) { $max = $num2; }[详细]
-
数组 – 如何在给定一组键的情况下快速过滤哈希？
所属栏目：[大数据] 日期：2020-12-16 热度：113
对于我认为可以做得更好的事情,这是一个过度设计的解决方案.基本上,它需要一组键来创建一个过滤字符串,该字符串会根据哈希中的每个键进行检查,以查看该键是否在过滤字符串中有一个索引… exclude标志将逻辑翻转为包含或排除基于_filter的结果.可能不是最好的[详细]
-
如果在它使用的模块中抛出异常,我怎么能阻止我的perl脚本终止？
所属栏目：[大数据] 日期：2020-12-16 热度：96
我有一个perl脚本,使用标准的net :: HTTP代码和perl 5.8.8. 我遇到了一个错误情况,当我调用时服务器返回0字节的数据： $_http_connection-read_response_headers; 不幸的是,我的perl脚本死了,因为Net :: HTTP :: Methods模块在306行有一个“die”： Server c[详细]
-
perl – 为什么默认情况下不会自动刷新缓冲区？
所属栏目：[大数据] 日期：2020-12-16 热度：154
我最近有幸在我的Perl脚本中设置了 $| = 1; ,以帮助它与管道中的另一个应用程序更快地交谈. 我很好奇为什么这不是默认设置.换句话说,如果我的缓冲区直接冲洗,我会失去什么？ 解决方法 对它进行基准测试,你会明白的. 缓冲取决于输出句柄的设备类型：ttys是行[详细]
-
如何在Perl中解析.pdf文件？
所属栏目：[大数据] 日期：2020-12-16 热度：99
如何在Perl中解析.pdf文件？ perl是更有效还是我应该使用任何其他语言？ 解决方法 我个人使用CAM :: PDF. my $doc=CAM::PDF-new($fileName) || die "$CAM::PDF::errStrn"; CAM::PDFasciify(/$pdfString);` Pdfs不是为解析而设计的,而是用于显示/打印 – 因[详细]
-
我在这个Perl代码中犯了什么错误？
所属栏目：[大数据] 日期：2020-12-16 热度：99
我试过这段代码.这不起作用.我输出没有结果.我犯了什么错误？ my %fruit_color = ("apple","red","banana","yellow");my @fruits = keys %fruit_colors;my @colors = values %fruit_colors;print @fruits;print @colors; 键盘链接：http://codepad.org/vDVAx[详细]
-
数组 – Perl：从数组创建哈希
所属栏目：[大数据] 日期：2020-12-16 热度：91
如果我有以下数组 my @header_line = ('id','name','age'); 如何从它创建一个等价于下面一行的哈希？ my %fields = { id = 0,name = 1,age = 2}; 我想这样做的原因是我可以使用有意义的名称而不是魔法数字作为索引.例如： $row-[$fields{age}]; # rather tha[详细]
-
为什么我不能在Perl中打印后立即使用文字列表切片？
所属栏目：[大数据] 日期：2020-12-16 热度：109
我知道我可以这样做： print STDOUT (split /./,'www.stackoverflow.com')[1]; 并打[详细]
-
perl – 哪些单行可以将第n列的唯一元素输出到另一个文件？
所属栏目：[大数据] 日期：2020-12-16 热度：157
我有这样一个文件： 1 2 3 4 5 67 6 89 6 34 4 4 哪些单行可以将第n列的唯一元素输出到另一个文件？ 编辑：这是人们提供的解决方案列表.多谢你们！ cat in.txt | cut -d' ' -f 3 | sort -ucut -c 1 t.txt | sort -uawk '{ print $2 }' cols.txt | uniqperl -[详细]
-
perl – 如何随机抽样文件内容？
所属栏目：[大数据] 日期：2020-12-16 热度：64
我有一个内容文件 abcdefhighlmn...... 文件中有超过200万行. 我想从文件中随机采样行并输出50K行.有关如何解决这个问题的任何想法？我正在考虑Perl及其rand函数(或者一个方便的shell命令会很整洁). 相关(可能重复)问题： Randomly Pick Lines From a File W[详细]
-
perl – 为什么“print / regex /？打印a：打印b在每行前“放”1
所属栏目：[大数据] 日期：2020-12-16 热度：75
当我运行下面的Perl单行程序时,它会在每行前面打印1,这是我不想要的.它应该做的就是与root匹配的注释行. $cat /etc/passwd | perl -ne 'print /root/ ? print "#$_" : print $_'1daemon:x:1:1::/:1bin:x:2:2::/usr/bin:#root:x:0:0:Super-User:/root:/usr/b[详细]
-
Perl sub里面有一个sub
所属栏目：[大数据] 日期：2020-12-16 热度：112
我想在另一个子里面有一个子, sub a { sub b { }} 我想为每次调用sub a创建一个新的sub b实例.在Perl中有办法做到这一点吗？ 当我运行上面的代码并在sub a中打印sub b的地址时,我总是得到sub b的相同地址 sub a { print b; sub b{ }} This link on Perl Mon[详细]
-
如何使用哈希在Perl中创建回调函数(调度表)？
所属栏目：[大数据] 日期：2020-12-16 热度：76
我想调用一个动态调度其他函数的主控制器函数,如下所示： package Controller;my %callback_funcs = ();sub register_callback{ my ($class,$callback,$options) = _@; #apppend to %callback_funcs hash ... ?}sub main{%callback_funcs = ( add = 'add_fun[详细]
-
perl堆叠开关案例陈述
所属栏目：[大数据] 日期：2020-12-16 热度：151
在php我可以堆栈case语句,我可以用perl做等价的吗？ switch($myValue) { case "one": case "two": break; case "three": break; default: break; } 解决方法 使用给定和何时构造实现Perl中的 Switch statements = 5.10.由于传递给给定值的智能匹配,它非常灵[详细]
-
什么是Perl相当于Python的type()函数
所属栏目：[大数据] 日期：2020-12-16 热度：181
参见英文答案 How do I tell what type of value is in a Perl variable?????????????????????????????????????5个 我可以用Python做到这一点： type(1)class 'int' 什么是Perl等价物？ 解决方法 Perl并没有像Python或Ruby那样区分字符串和数字.在Perl中,运[详细]
-
Perl – 将代码块作为括号内的参数传递
所属栏目：[大数据] 日期：2020-12-16 热度：93
是否可以使用“括号”语法将代码块传递给子代码？ 即我写的时候 List::MoreUtils::any { defined ($_) } (undef,undef,1); 有用.但是当我尝试添加括号时 List::MoreUtils::any ( { defined ($_) },(undef,1) ); 这被解释为匿名哈希,给出错误消息.无论是逃避[详细]
-
perl – 如何解析命令行参数？
所属栏目：[大数据] 日期：2020-12-16 热度：189
我想解析perl脚本中的参数列表,例如我遇到这种情况： script.pl -h 127.0.0.1 -u user -p pass arg1 arg2 arg3 我该如何解析数组中不是选项的参数列表,以及标量值中的选项参数？ 谢谢. 解决方法 好吧,如果它们是命令行中唯一没有作为选项提供的东西,那么它们[详细]
-
perl – 如何使用GetOptions获取默认参数？
所属栏目：[大数据] 日期：2020-12-16 热度：138
我已经阅读了 GetOptions 的文档,但我似乎找不到我需要的东西……(也许我是盲人) 我想要做的是像这样解析命令行 myperlscript.pl -mode [sth] [inputfile] 我可以使用-mode部分,但我不知道如何获取[inputfile].任何建议将被认真考虑. 解决方法 您不要将GetOp[详细]
-
如何从Perl中不断更新的文件中读取？
所属栏目：[大数据] 日期：2020-12-16 热度：52
问候,我想通读文件,进入睡眠状态,然后检查新记录是否写入文件.如果是,我想处理记录,如果没有回去睡觉并稍后再次检查(在永久循环中). 我以为我可以做这样的事情但是在第一次读取文件之后,它似乎永远不会拿起添加到文件中的新记录. open (LOG,"log_file") or d[详细]
-
如何在Perl中为未定义的值打印文字“null”？
所属栏目：[大数据] 日期：2020-12-16 热度：133
我正在运行查询’describe table’,它为’default’列返回’null’的值.但是,当我尝试将数据库中的值打印到 HTML表时,它不会打[详细]
-
perl – 是否可以在if的语句修饰符形式中包含多个语句？
所属栏目：[大数据] 日期：2020-12-16 热度：144
用Euler项目教自己Perl. Anywho, print "Hei" if 1==1; 奇迹般有效. 是否可以在if之前包含几个语句,如此 {print "4";print="2";} if 4!=2; 我知道具体的语法不起作用,但我认为我想要做的是显而易见的.可能与否？ PS.我也知道我可以用常规做到这一点 if(){}[详细]
-
使用Perl循环遍历JSON
所属栏目：[大数据] 日期：2020-12-16 热度：156
参见英文答案 Parsing an array encoded in JSON through perl????????????????????????????????????2个 我是Perl的新手,想要遍历这个JSON数据并将其打印到屏幕上. 我怎样才能做到这一点？ $arr = '[{"Year":"2012","Quarter":"Q3","DataType":"Other 3","En[详细]
