-
Perl：使用Algorithm :: Loops
所属栏目：[大数据] 日期：2020-12-16 热度：98
我正在尝试使用NestedLoops函数在Perl中构造一个排列程序.这是我的代码： use strict;use warnings;use Algorithm::Loops qw(NestedLoops);my @a = 'a'..'o';my $length = 5;my $start = 0;my $depth = 2;NestedLoops([ [0..$length],( sub { $start = 0 if[详细]
-
grep匹配模式文件的所有行(perl -e ok)
所属栏目：[大数据] 日期：2020-12-16 热度：100
我正在寻找一种简单/优雅的方式来grep文件,使每个返回的行必须匹配模式文件的每一行. 带输入文件 acbbccabac 和模式文件 abc 该命令应该返回 acbbac 我尝试使用grep -f执行此操作,但如果它匹配文件中的单个模式(而不是全部),则会返回.我还尝试了对perl -ne的[详细]
-
如何为perl脚本设置crontab作业
所属栏目：[大数据] 日期：2020-12-16 热度：177
我有一个Perl脚本,我想通过cron每4小时运行一次.但不知何故,如果我通过命令行运行它,它无法通过cron执行并运行正常.以下是我在crontab中设置的命令： perl -q /path_to_script/script.pl /dev/null 此外,当我在命令提示符下运行此命令时,它不会执行,但当我进[详细]
-
使用perl应用补丁文件？
所属栏目：[大数据] 日期：2020-12-16 热度：136
这应该很简单, 有没有办法使用perl应用.patch文件？ 我知道我可以使用系统我正在寻找模块或其他东西.我看过search.cpan.org,但我想我没有输入正确的搜索来获得我想要的东西,如果它存在的话. 有帮助吗？ 解决方法 我能想到 Text::Patch. 您只需读取/写入源/补[详细]
-
如何在Perl文档中找到一些特定术语？
所属栏目：[大数据] 日期：2020-12-16 热度：189
我想查看ARGV,$ARGV,@ ARGV的定义,所以我使用perldoc来找到它.由于它不是子模块或模块,perldoc -f或perldoc模块无济于事. 我问了一个人,他告诉我看perldoc perlvar,我找到了ARGV部分. 我的问题是如何在Perl文档中找到一些通用术语？或者如何发现ARGV在perlva[详细]
-
当我尝试在Padre中编译perl脚本时,它根本没有响应
所属栏目：[大数据] 日期：2020-12-16 热度：111
我对Padre有疑问.当我尝试编译一个hello world perl脚本时,它根本没有响应. Padre仍然可以运行.而且,如果尝试启动调试器,Padre将停止.我甚至重新安装Padre几次但仍然.你知道怎么解决这个问题吗？非常感谢. 解决方法 有时Padre在启动窗口时出现问题以显示输出[详细]
-
Perl：使用GetOptions过滤无效参数
所属栏目：[大数据] 日期：2020-12-16 热度：71
我正在使用Perl中的一个小脚本,我在命令行中遇到参数问题.我正在使用GetOps来解析它们,如下面的代码所示： %params = ( "help" = "","no_inline" = "","no_dupl" = "");paramError if (!GetOptions( "help" = $params{"help"},"no-inline" = $params{"no_i[详细]
-
perl – 使用XML :: TWIG进行大型xml文件解析失败
所属栏目：[大数据] 日期：2020-12-16 热度：200
我正在尝试使用 XML :: Twig解析一个大的xml文件(大约100,000条记录),但perl解析失败并出现错误： perl.exe - Application Error: The instruction at "0x28086920" referenced memory at "0x00000004". The memory could not be "written"... 我读到XML ::[详细]
-
perl – 用Moose做对象组合的最佳方法是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：73
关于Moose最佳实践的初学者问题： 从简单的“点”示例开始,我想构建一个“线” – 对象,由两个点组成,并具有长度属性,描述起点和终点之间的距离. { package Point; use Moose; has 'x' = ( isa = 'Int',is = 'rw' ); has 'y' = ( isa = 'Int',is = 'rw' );}{[详细]
-
perl – MongoDB日志记录
所属栏目：[大数据] 日期：2020-12-16 热度：128
我正在构建一个日志系统,它将请求和响应记录到分布在多个应用程序节点上的Web服务.我正在考虑使用MongoDB作为存储库并实时登录,或者在x次请求之后更真实地将日志转储到DB.该应用程序的体积相当大,采用Perl构建.有没有人有这方面的经验？建议？或者这是不是吗[详细]
-
perl – MooseX ::声明如何从属性默认方法返回ArrayRef？
所属栏目：[大数据] 日期：2020-12-16 热度：138
我意识到这可能是我对perl或Moose的某些部分的基本误解,但我似乎无法从默认方法返回ArrayRef： has '_directories' = ( is = 'ro',isa = 'ArrayRef[Str]',lazy = 1,init_arg = undef,default = method {return File::Spec-splitdir($self-relativeDirectory)[详细]
-
在开发过程中测试perl模块的正确方法是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：160
我正在开发一个个人Perl模块来构建一个基本的脚本框架,并帮助我学习更多有关该语言的知识.我通过命令行工具 modulemaker 用 ExtUtils::ModuleMaker创建了一个名为“AWSTools :: Framework”的新模块.我试图找出在开发过程中测试它的合适方法. 创建的目录结构[详细]
-
Perl – 删除没有指数值的尾随零
所属栏目：[大数据] 日期：2020-12-16 热度：150
我试图从十进制数中删除尾随零. 例如：如果输入的数字是0.0002340000,我希望输出为0.000234 我使用sprintf(“％g”,$number),但这大部分都有效,除非有时它将数字转换为带有E-的指数值.我怎样才能将它显示为完整的十进制数？ 解决方法 数字没有尾随零.仅当您[详细]
-
perl：如何顺序解析xml文件
所属栏目：[大数据] 日期：2020-12-16 热度：131
我有一个 XML文件,它描述了我可以在UDP通道上交换的数据结构. 例如： 这是我的输入XML文件,描述了我的数据结构. ds uint32 name='a'/ uint32 name='b'/ string name='c'/ int16 name='d'/ uint32 name='e'//ds 使用perl的XML解析此XML文件：简单,允许我生成[详细]
-
在多个进程之间共享文件[Perl]
所属栏目：[大数据] 日期：2020-12-16 热度：97
我有一个更新CSV文件的应用程序(单个),CSV正在从几个进程中随机更新,我想如果两个进程同时尝试更新它(添加一行……),一些数据将会丢失我猜,或被覆盖(？). 什么是避免这种情况的最佳方法？ 谢谢, 解决方法 使用Perl的 DBI和 DBD::CSV driver来访问您的数据;那[详细]
-
Perl：命令行覆盖配置文件设置？
所属栏目：[大数据] 日期：2020-12-16 热度：78
我正在构建一个利用配置文件(YAML)读取所有必要配置信息的脚本,然后打印出 Linux管理员需要逐步构建服务器所需的所有必要步骤. 对于运行脚本的Linux Admin,必需的选项是能够在命令行覆盖配置文件中的任何项/值对. 我目前正在处理这种方式似乎过于繁琐,我知道[详细]
-
perl – 使用pod2html生成带有自定义文本的http链接的正确语法是
所属栏目：[大数据] 日期：2020-12-16 热度：194
perlpod文档告诉我,我可以使用链接到URL L方案：…或者L text | scheme：...,它甚至列出了L The Perl 主页| http://www.perl.org/u0026gt;举个例子. 第一种情况对我来说很好：pod2html转 Lhttp://example.com/ 成 a href="http://example.com/"http://examp[详细]
-
Perl和流程管理
所属栏目：[大数据] 日期：2020-12-16 热度：123
我正在使用Perl开发一个非常大的企业应用程序,有几十个模块等,主要用于通过Web抓取一些东西. 我写的一个子程序是做图像检索分析.对于我发送给它的每个参数,通常需要几秒钟才能完成.所以我将它发送到另一个进程(分叉…).问题是,经过一段时间后系统变得非常不[详细]
-
这是在Perl中提取AoH子集的最简洁方法吗？
所属栏目：[大数据] 日期：2020-12-16 热度：80
出于好奇,还有另一种方法来提取我的AoH结构的子集吗？ AoH是’矩形'(即保证在所有hashref上具有相同的密钥). 使用temp var和嵌套映射对于本质上是花哨的散列片来说似乎有点过分： use strict;use warnings;use Data::Dump 'dump';my $AoH = [ # There are ma[详细]
-
DBI – Perl – 记录MySQL警告
所属栏目：[大数据] 日期：2020-12-16 热度：84
我正在使用DBI并希望将 MySQL WARNINGS的日志记录添加到此脚本中.我能够毫无问题地记录真正的MySQL错误,但此时我需要追踪正在生成的MySQL警告.如果mysql语句失败,我可以将错误的sql语句打印到bad_sql.txt并自动生成一封电子邮件.我需要进行两次更改,而且我真[详细]
-
perl – 用Moose BUILD方法呱呱叫
所属栏目：[大数据] 日期：2020-12-16 热度：198
如果BUILD方法失败,我希望我的课程爆炸.但是,如果我使用croak来处理错误,则会从Class / MOP / Method.pm而不是调用者的代码报告错误. (也就是说,实例化对象的调用者.)IOW,croak并没有在调用树上吠叫得足够多. 看吧： package Test;use Moose;use Carp 'croak[详细]
-
perl – Mac上的GIT-SVN问题
所属栏目：[大数据] 日期：2020-12-16 热度：62
我正在使用git-svn在我的Mac上工作.我目前在Lion上(但是我在Snow Leopard上测试时得到了类似的结果.我似乎是少数几个遇到这个问题的人之一.这与我看到的一些人只有包含SVN / Core.pm的问题不同. . 下面是尝试在vanille存储库上执行git svn克隆(显然主机和目[详细]
-
perl：内存文件句柄上的sysread？
所属栏目：[大数据] 日期：2020-12-16 热度：197
不幸的是,这不起作用： my $input = "this is a test";open(my $fh,"",$input);my $n = sysread($fh,$buf,4); # want $n == 4,$buf eq 'this' 用read替换sysread按预期工作. 这是预期的吗？可以上班吗？我错过了什么吗？ 解决方法 在sysread之后,变量$！包[详细]
-
perl – 如何确保我的代码永远不会直接退出？
所属栏目：[大数据] 日期：2020-12-16 热度：124
eval{ require $file;}/*subsequent code goes here*/... 如果$file包含exit语句,则后续代码无法运行. 如何解决以便后续代码总是有机会在eval完成时运行？ 解决方法 中止退出呼叫是不可能的. $file应该使用die,它可以被eval捕获. 作为解决方法,您可以覆盖全[详细]
-
perl – STDIN和tty有什么区别？
所属栏目：[大数据] 日期：2020-12-16 热度：88
我是否从STDIN和/ dev / tty读取,似乎是相同的, 那有什么区别呢？ 解决方法 / dev / tty是当前进程的控制终端. STDIN是当前输入.如果您重定向,例如, perl script.pl myfile.txt STDIN现在来自myfile.txt,但/ dev / tty仍然来自控制终端.这都是UNIX,而不是Per[详细]
