-
如何合并大型未分类文件中的行而不会耗尽Perl中的内存？
所属栏目：[大数据] 日期：2020-12-16 热度：139
我有一个非常大的列分隔文件来自数据库报告,如下所示： field1,field2,field3,metricA,value1field1,metricB,value2 我希望新文件具有这样的组合线,所以它看起来像这样： field1,value1,value2 我可以使用哈希来做到这一点.在此示例中,前三个字段是键,我将va[详细]
-
perl – 如何从命令行获取文件句柄？
所属栏目：[大数据] 日期：2020-12-16 热度：114
我有一个子程序,它以文件句柄作为参数.如何从命令行上指定的文件路径创建文件句柄？我不想自己对这个文件进行任何处理,我只想把它传递给另一个子程序,它返回一个包含文件中所有解析数据的哈希数组. 这是我正在使用的命令行输入： $./getfile.pl /path/to/som[详细]
-
perl – 为什么将哈希推送到数组似乎会覆盖所有数组元素？
所属栏目：[大数据] 日期：2020-12-16 热度：79
只是想知道我做错了什么或者这是一个perl bug …我想创建一个哈希值数组.我正在使用’push’将值放到数组中.第一次向数组写入哈希工作正常,但是当我将第二个不同的哈希值推送到数组时,第一个数组元素似乎被我刚刚推入数组的内容覆盖了.为什么会这样？见下面[详细]
-
如何以给定格式显示当前日期时间,包括Perl中的微秒？
所属栏目：[大数据] 日期：2020-12-16 热度：193
我希望Perl以下列格式显示当前日期和时间： 2010-02-11 13:12:34.87876 我写了这段代码： use Time::localtime;my $tm = localtime;printf("It is now %04d-%02d-%02d %02d:%02d:%02dn",$tm-year+1900,($tm-mon)+1,$tm-mday,$tm-hour,$tm-min,$tm-sec); 得[详细]
-
perl – CPAN的支持
所属栏目：[大数据] 日期：2020-12-16 热度：183
在Perl世界中有一件好事：CPAN. http://www.cpan.org/ 但是我找不到CPAN本身的任何支持论坛或讨论板或任何bugtracker. 有没有？ 解决方法 后端 PAUSE保持在 https://github.com/andk/pause.CPAN的各种静态文件保持在 https://github.com/perlorg/cpanorg.CPA[详细]
-
在Perl中关闭打印缓冲区的魔术标点符号“$|”有哪些替代方法？
所属栏目：[大数据] 日期：2020-12-16 热度：82
我正在重构一些旧代码(由其他人重构),我在一些CGI脚本的顶部遇到了以下内容： #Turn on output bufferinglocal $| = 1; perlcritic像往常一样无益地指出了显而易见的：“魔术标点符号使用”.有没有替代品或perlcritic只是脾气暴躁？ 此外,仔细检查.我认为代[详细]
-
标量与Perl中的列表上下文
所属栏目：[大数据] 日期：2020-12-16 热度：97
我在O’Reilly的书中发现了一个有点奇怪的例子： @backwards = reverse qw/ yabba dabba doo /;print "list context: @backwardsn";$backward = reverse qw/ yabba dabba doo /;print "scalar1 context: $backwardn";$notbackward = qw/ yabba dabba doo /[详细]
-
如何从Perl的DBI中获取MySQL查询的结果？
所属栏目：[大数据] 日期：2020-12-16 热度：82
我正在做以下事情,得到“1”我认为这意味着声明很好.但我想取而代之的是结果. 怎么了？ #!/usr/bin/perluse strict;use DBI;my $host = "test";my $database = "dd";my $port = 3306;my $user = "uuu";my $pw = "ppp";my $mysql = DBI-connect("DBI:mysql:da[详细]
-
我可以使用Perl的解压缩将字符串分解为变量吗？
所属栏目：[大数据] 日期：2020-12-16 热度：134
我有一个图像文件名,由四部分组成： $Directory(图像所在的目录) $Name(对于一个艺术网站,这是绘画名称参考#) $File(图像文件名减去扩展名) $Extension(图片扩展名) $example 100020003000.png 我希望相应地分解它： $dir=1000 $name=2000 $file=3000 $ext=.[详细]
-
如何用一个语句读取Perl中的目录？
所属栏目：[大数据] 日期：2020-12-16 热度：125
我正在编写一个脚本来查找目录中的某些文件并对其进行处理.我继续写下面的内容： opendir DIR,$dir;@files = readdir DIR;closedir DIR; 虽然我可以(实际上应该)将它包装在一个函数中,但我想知道是否有更优雅的方法来做到这一点？ 解决方法 最优雅的是使用其[详细]
-
Perl开发人员的基本知识要求是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：150
新的Perl开发人员在搜索作业时必须知道哪些概念. 我的意思是说像CGI编程,Perl中的OO概念,CPAN中不同模块的使用等概念. 解决方法 与Perl相关的概念是一类(包括正则表达式,OO,cpan等);你可能需要证明掌握这些 – 大概是通过在理解,修复和扩展现有代码的任务上[详细]
-
有没有办法将常见的Perl函数封装到自己的脚本中？
所属栏目：[大数据] 日期：2020-12-16 热度：167
我正在维护几个Perl脚本,它们都具有用于不同功能的类似代码块.每次更新代码块时,我都必须遍历每个脚本并手动进行更改. 有没有办法将常用函数封装到自己的脚本中并调用它们？ 解决方法 还有其他方法,但它们都有严重的问题.模块是要走的路,它们不一定非常复杂.[详细]
-
如何使用Perl填写Web表单？
所属栏目：[大数据] 日期：2020-12-16 热度：99
我想用Perl填写一个Web表单.我无法找到正确的语法来完成此任务.如何,我如何转到URL,选择表单,填写表格,然后按Enter以确保它已被提交？ 解决方法 像 WWW::Mechanize::FormFiller这样的东西？[详细]
-
如何在没有许可证和构建信息的情况下获取Perl版本字符串？
所属栏目：[大数据] 日期：2020-12-16 热度：143
perl –version打印所有这些： This is perl 5,version 26,subversion 1 (v5.26.1) built for darwin-thread-multi-2levelCopyright 1987-2017,Larry WallPerl may be copied only under the terms of either the Artistic License or theGNU General Public[详细]
-
Perl 5.16.3和5.8.7中的浮动精度差异
所属栏目：[大数据] 日期：2020-12-16 热度：171
在使用不同版本的perl运行时,下面的代码片段给出了不同的输出： #!/usr/bin/env perlmy $number1 = 2.198696207;my $number2 = 2.134326286;my $diff = $number1 - $number2;print STDOUT "n 2.198696207 - 2.134326286: $diffn";$number1 = 0.449262271;$[详细]
-
perl – 如何对哈希的所有键进行特定更改？
所属栏目：[大数据] 日期：2020-12-16 热度：88
我有一个像这样的哈希： 'IRQ_VSAFE_LPM_ASC_0' = '140','IRQ_VSAFE_LPM_ASC_1' = '141'.......and so on 我想在散列中的所有键中用ASC_1替换ASC_.我试过这个： foreach $_(keys $hash) { s/ASC_/ASC_1/g; } 但它不起作用. 解决方法 您必须从哈希中删除旧密[详细]
-
如何组合两个Perl哈希？
所属栏目：[大数据] 日期：2020-12-16 热度：51
在我采取冗长/冗长/不正确的方式之前,我问这个问题. 我正在使用Perl.我有两个哈希.一个包含默认值,一个可能是用户定义的值,在某些情况下会覆盖默认值. 将这些哈希值连接在一起的最简单方法是什么,但是对于我们选择用户值的相同键,存在默认值和用户定义值. $d[详细]
-
perl – 如何将’hash string’转换为hash？
所属栏目：[大数据] 日期：2020-12-16 热度：71
我有存储在文件中的哈希字符串,{“a”= 1,“b”= 2},我打开文件并将此哈希字符串存储到$hash_string,如何将此$hash_string转换为$hash_string_ref = { “一个”=大于1中,“b”=大于2}？ 解决方法 简单的答案： $echo '{"a"=1,"b"=2}' val.pl$perl -le 'my $f[详细]
-
在Perl中调用子例程的非标准方式
所属栏目：[大数据] 日期：2020-12-16 热度：95
我正在尝试一种在Perl脚本中调用子例程的不同方法. 我有一组功能如下： sub Testcase_CheckStatus { print "TestCase_CheckStatus calledn";} 然后我用“CheckStatus”这样的键遍历Perl哈希： while (my ($k,$v) = each %test_cases) { print "TestCase_$k"[详细]
-
arrays – Perl：搜索数组中的项目
所属栏目：[大数据] 日期：2020-12-16 热度：116
给定一个数组@A,我们想检查元素$B是否在其中.一种方法是这样说： Foreach $element (@A){ if($element eq $B){ print "$B is in array A"; }} 然而,当它到达Perl时,我总是在思考最优雅的方式.这就是我的想法： 如果我们将A转换为变量字符串并使用,有没有办法[详细]
-
regex – Perl中用于电子邮件分割的正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：66
我的同行问我,你将如何寻找最后一个@if存在的@if. 例： j@ssi@aliencoders.com@..coding.com 所以它应该将j @ ssi @ aliencoders.com显示为用户名,将..coding.com显示为域名. Perl中是否有任何一个衬垫正则表达式可以获得所需的输出？ 解决方法 使用Email ::[详细]
-
perl – 循环文件行,如果文件不存在则禁止错误
所属栏目：[大数据] 日期：2020-12-16 热度：194
我在 shell Perl脚本中有以下内容： my @LS = `ls -1t /logs/log.csv.*`;foreach my $line (@LS) { 如果实际存在一个或多个log.csv.*文件,则此方法可以正常工作. 但如果没有日志文件,我会收到错误： ls：无法访问… 我可以以某种方式抑制此警告,因为shell脚[详细]
-
perl – “{}”(大括号)如何创建哈希,为什么我可以将其存储为标
所属栏目：[大数据] 日期：2020-12-16 热度：116
在 perltoot是这个代码： $rec = { name = "Jason",age = 23,peers = [ "Norbert","Rhys","Phineas"],}; 这是一个字符串还是某种哈希(我认为哈希是用％声明的)？ 解决方法 它是哈希的 reference(一种指针).一个引用(就像在Perl中以’$’开头的任何东西)是一[详细]
-
perl – 获取“哈希赋值中奇数个元素”时如何传递参数
所属栏目：[大数据] 日期：2020-12-16 热度：85
我在RT(http://bestpractical.com/rt)做一些模板编程,它使用Perl.不幸的是,我偶尔只会和Perl讨价还价. 我正在尝试调用以下开头的子过程： sub PrepareEmailUsingTemplate { my %args = ( Template = '',Arguments = {},@_ ); 由于这是lib的一部分,我无法改变[详细]
-
{}在perl中意味着什么？
所属栏目：[大数据] 日期：2020-12-16 热度：81
my $a = {};my $b = {$a=''}; 我知道{}可用于引用哈希键,但{}在这里意味着什么？ 解决方法 {}创建对空匿名哈希的引用.阅读更多 here. 示例代码： use Data::Dumper;my $a = {};print "a is " . Dumper( $a );my %b = ();print "b is " . Dumper( %b ); 输出[详细]
