-
![perl – 如何用’空槽’创建一个匿名数组([])？](https://www.lidatong.com.cn/e/data/images/notimg.gif)
perl – 如何用’空槽’创建一个匿名数组([])？
所属栏目：[大数据] 日期：2020-12-16 热度：182
我可以在其中创建一个带有“空插槽”的数组： $perl -wde 1... DB1 $x[2] = 0 DB2 x @x0 ARRAY(0x103d5768) 0 empty slot 1 empty slot 2 0 要么 DB3 $#y = 4 DB4 x @y 0 ARRAY(0x103d5718) 0 empty slot 1 empty slot 2 empty slot 3 empty slot 4 empty[详细]
-
perl – 为什么我们使用Catalyst的Context对象？它的目的是什么
所属栏目：[大数据] 日期：2020-12-16 热度：199
我以为我真的不明白为什么催化剂中的所有东西都使用了上下文对象.似乎一切都从一开始 my ( $self,$c ) = @_; 我们用催化剂模型包装DBIC并最终得到 $c-model('DBIC::Table') ... 或许我们这样做 $c-log-warn('foo'); 但我不明白为什么我们不这样做 log('warn'[详细]
-
perl – 什么是具有低计算复杂度的单线程,用于返回数组的两个最
所属栏目：[大数据] 日期：2020-12-16 热度：136
这更像是“我感兴趣,如果它可能”而不是“我真的需要它”的问题,但无论如何：我知道如果我想使用自定义函数比较列表中的最小值,我可以使用List轻松完成::的Util ::减少. my $biggest = reduce {comparison($a,$b) ? $b:$a} @myArray; 但是,如果我想要该阵列[详细]
-
使用perl中具有类名的变量访问类变量
所属栏目：[大数据] 日期：2020-12-16 热度：109
我想知道如何做到这一点： package Something;our $secret = "blah";sub get_secret { my ($class) = @_; return; # I want to return the secret variable here} 我什么时候去 print Something-get_secret(); 我希望它打印出来.现在在你告诉我只使用$secret[详细]
-
arrays – 将数组中的多个值插入另一个数组
所属栏目：[大数据] 日期：2020-12-16 热度：95
我需要使用Perl处理数组中的大量数据. 在某些点上,我需要在主数组中插入第二个数组的值. 我已经看到拼接通常应该是要走的路.但是,在研究了一下后,我发现这个功能是内存密集型的,随着时间的推移可能会导致严重的性能问题. 这基本上是我需要做的 – # two arra[详细]
-
如何使用Perl的XML :: Twig从XML中提取子值？
所属栏目：[大数据] 日期：2020-12-16 热度：101
我正在解析 XML文件并尝试访问 XML文件中的值. #!/usr/bin/perl -wuse strict;use XML::Twig;my $file = 'files/camelids.xml';print "File :: $filen";my $twig = XML::Twig-new();$twig-parsefile($file);# print "twig :: $twign";my $root = $twig-roo[详细]
-
在perl中反转多值哈希
所属栏目：[大数据] 日期：2020-12-16 热度：143
我有一个看起来像这样的哈希： { bmw = { id = 1,color = brown } }{ mercedes = { id = 2,color = black } } 我想在perl中反转这个哈希,以便我得到id =的映射. name_of_car.我是否需要以某种方式使用反向功能？ 注意：我总是可以遍历原始哈希并在新哈希中相[详细]
-
如何在perl6中从数组或散列创建方法
所属栏目：[大数据] 日期：2020-12-16 热度：114
我试图动态地向对象添加新方法. 以下代码工作正常： use SomeClass;my $obj = SomeClass.new;my $blah = 'ping';my $coderef = method { say 'pong'; }$obj.^add_method($blah,$coderef);$obj.ping; 这会按预期打[详细]
-
如何防止PerlTidy调整我的作业？
所属栏目：[大数据] 日期：2020-12-16 热度：193
默认情况下,PerlTidy将在我的代码中排列分配.例如. PerlTidy改变了这个…… my $red = 1;my $green = 2;my $yellow = 3;my $cyan = 4; ……进入这… my $red = 1;my $green = 2;my $yellow = 3;my $cyan = 4; 我该如何防止这种情况发生？ 我已经搜索了手册,[详细]
-
perl – 如何让Moose返回子类实例而不是它自己的类,用于多态
所属栏目：[大数据] 日期：2020-12-16 热度：138
我想创建一个泛型类,其构建器不会返回此泛型类的实例,而是返回专用子类的实例. 当Moose进行自动对象构建时,我无法理解这是否可能,以及如何使用Moose语法创建一个Moose类并具有此行为. 例如.： 用户问：$file = Repository- new(uri =’sftp：// blabla’)….[详细]
-
通过Perl的URI模块过滤URL可以获得什么？
所属栏目：[大数据] 日期：2020-12-16 热度：131
当我像这样转换我的$url时,我能获得一些东西：$url = URI- new($url)？ #!/usr/bin/env perluse warnings; use strict;use 5.012;use URI;use XML::LibXML;my $url = 'https://stackoverflow.com/';$url = URI-new( $url );my $doc = XML::LibXML-load_html([详细]
-
在测试独立的Perl脚本时覆盖变量
所属栏目：[大数据] 日期：2020-12-16 热度：185
我现在需要维护一个Perl脚本.它充满了不良做法,包括在整个脚本中使用(和重用)全局变量.在我开始更改脚本之前,我打算尝试编写一些测试脚本,这样我就可以获得良好的回归基础.为此,我将使用此 page中描述的方法. 我开始编写单个子程序的测试.我把这行放在我正在[详细]
-
如何在Perl中替换后使用匹配变量$1？
所属栏目：[大数据] 日期：2020-12-16 热度：76
从Perl中的替换中获取匹配变量的最简洁方法是什么？ 我有时发现自己写作 s/(something)// ; my $x = $1 ; 然后我意识到如果s / / /失败$1可能会带来前一场比赛的值.所以我试试 my $x = 'defaultvalue' ; if ( s/(something)// ) { $x = $1 ; } 这是最干净的[详细]
-
如何在Perl中创建柱状输出？
所属栏目：[大数据] 日期：2020-12-16 热度：62
！/usr/bin/env perl use warnings; use strict; my $text = 'hello ' x 30; printf "%-20s : %sn",'very important text',$text; 这个脚本的输出看起来更像这样： very important text : hello hello hello hellohello hello hello hello hello hello hell[详细]
-
如何从Perl中的CSV文件中提取字段？
所属栏目：[大数据] 日期：2020-12-16 热度：166
我想从csv文件(830k记录)中提取特定字段并存储到哈希中.有没有任何快速简便的方法在Perl中使用任何外部方法？ 我怎样才能做到这一点？ 解决方法 使用 Text::CSV_XS.它快速,适度灵活,经过严格测试.许多这些问题的答案都是关于CPAN的.为什么要花时间做一些不如[详细]
-
perl – 我的Linux守护程序如何知道Windows程序何时停止编写我通
所属栏目：[大数据] 日期：2020-12-16 热度：103
我正在开发一个与USPS运输包名为Dazzle的系统.该系统的一部分包括一个监视守护进程,其目的是获取制表符分隔的值文件,将它们转换为Dazzle识别的 XML,并将它们传递给Dazzle以生成标签.这部分工作得很好.但是,我还想要解析Dazzle生成的输出文件并将其导入数据库[详细]
-
Perl Moose方法修饰符：在’before’和’after’之前调用’aroun
所属栏目：[大数据] 日期：2020-12-16 热度：175
我正在使用Moose,我需要在项目中包装方法调用.重要的是我的包装代码是最外层的修饰符.到目前为止我所做的是将我的方法修饰符放在Moose角色中,然后在我的类的末尾应用该角色,如下所示： use Moose::Util;Moose::Util::apply_all_roles(__PACKAGE__-meta,('App[详细]
-
如何将Perl的包’Nc *’格式转换为Python的struct.pack？
所属栏目：[大数据] 日期：2020-12-16 热度：185
我正在尝试将Perl脚本转换为 python,它使用了很多不同的包.我已经能够找出每个“模板”中的字母差异,但是我在理解如何处理Perl缺少长度声明时遇到了问题. 例： pack('Nc*',$some_integer,$long_array_of_integers); 在Python上,我没有在struct.pack中看到这[详细]
-
如何在Perl中指定包版本？
所属栏目：[大数据] 日期：2020-12-16 热度：94
我对5.10.0之前的文档和最近的 version模块之间的冲突建议感到有些困惑. Perl Best Practices很清楚版本字符串(‘v1.0.3’)是坏的,一个应该指定一个版本,如下所示： use version; our $VERSION = qv('1.0.3'); 但版本模块说我们回到使用版本字符串： use ver[详细]
-
perl – 文档中的哪些内容表示虽然测试readdir用于定义？
所属栏目：[大数据] 日期：2020-12-16 热度：195
另见： How is “0” result from readdir not false in a while condition?.(不重复;只是密切相关.) 它在文档中的哪个位置说测试readdir的定义性？例如,这段代码 #!/usr/bin/perluse strict;use warnings;opendir my $dir,"/tmp" or die "$!";while (my $fi[详细]
-
如何在Perl子例程中处理捕获和未捕获的错误？
所属栏目：[大数据] 日期：2020-12-16 热度：87
这是 “How can I get around a ‘die’ call in a Perl library I can’t modify?”的后续行动. 我有一个子程序,它调用一个库 – 崩溃 – 有时很多次.而不是使用eval {}在这个子例程中调用每个调用,我只是让它死掉,并在调用我的子例程的级别上使用eval {}：[详细]
-
我可以在主目录中安装预先配置的Perl二进制包吗？
所属栏目：[大数据] 日期：2020-12-16 热度：70
我想在我的主目录中设置Perl 5.10,除了目前在/usr/local机器上的古老Perl.我不是这台机器上的超级用户. 我发现了需要5.10 HPUX perl二进制包它似乎工作,但由于某种原因它似乎假设它在/usr/local运行(由@INC错误消息证明).除PERLLIB之外是否还有其他变量,比如[详细]
-
我如何做Perl机器或平台相关的TDD？
所属栏目：[大数据] 日期：2020-12-16 热度：61
如何测试依赖于机器或平台的功能或模块？例如,看/依赖于$^ O或像 Net::Ifconfig::Wrapper这样的模块？我不需要测试Net :: Ifconfig :: Wrapper返回正确的值,但我确实需要测试我是否正在使用这些值做正确的事情. 谢谢！ 编辑：测试$^ O结果比我想象的更容易：[详细]
-
perl – 如何使用RRDtool更新数据？
所属栏目：[大数据] 日期：2020-12-16 热度：96
我正在使用RRDtool来存储用于显示图形的数据.我通过RRDs :: update更新RRD,这在尝试重写信息时失败,意味着过去更新数据一段时间(例如有人将系统计时器移回).我得到的错误是： ERROR: Cannot update /opt/dashboard/rrd/Disk/192.168.120.168_disk_1.rrd with[详细]
-
perl – 如何使用外部数据过滤DBIX :: Class结果集？
所属栏目：[大数据] 日期：2020-12-16 热度：140
使用 DBIx::Class,我有一个结果集,需要通过SQL无法生成的数据进行过滤.我需要做的是有效地等同于这个假设的例子： my $resultset = $schema-resultset('Service')-search(%search);my $new_resultset = $resultset-filter( sub { my $web_service = shift;[详细]
