-
数组 – 赋值中的Perl“上下文”
所属栏目：[大数据] 日期：2020-12-16 热度：156
作为Perl的新手,我只是不明白以下结果背后是什么样的哲学： $cnt1 = @arr; # this gives the length of the array 'arr'$cnt2 = @arr[ @indices_arr ]; # this gives the last element of the @arr[ @indices_arr ]; 有人能解释两者之间的区别吗？ 解决方法[详细]
-
perl – 在Plack :: Builder中安装“hosts”
所属栏目：[大数据] 日期：2020-12-16 热度：82
Plack::Builder和 this answer的概要说： # in .psgiuse Plack::Builder;my $app = sub { ... };builder { mount "/foo" = builder { enable "Foo"; $app; }; mount "/bar" = $app2; mount "http://example.com/" = builder { $app3 };}; 我尝试了以下方法：[详细]
-
Perl – Local :: lib不能始终在@INC中找到本地路径 – 与perlbr
所属栏目：[大数据] 日期：2020-12-16 热度：120
我没有对系统的root访问权限,所以我使用local :: lib安装perl模块,我使用bootstrapping方法安装它： perl Makefile.PL --bootstrap=~/foomake test make installecho '[ $SHLVL -eq 1 ] eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)"' ~/.bash_profi[详细]
-
如何在perl中专门读取文件？
所属栏目：[大数据] 日期：2020-12-16 热度：82
我有一个perl模块,我的收集脚本库使用.这些脚本用于扫描我的网络,在我的网络设备上执行各种任务等. 大约有15个用户,我一次只想要一个人来运行收集脚本.如果第二个用户尝试运行脚本,那么我希望他们等到第一个人完成. 下面的代码只是一个测试床,所以我可以让它[详细]
-
perl – 如何使用我自己的模块导出模块列表？
所属栏目：[大数据] 日期：2020-12-16 热度：128
我想创建一个Base类,每次使用它时都会导出以下模块： use 5.018;use Data::Dumper;use Warning; #etc etc 类似的问题： (2017)Shortcut to import modules? (2016)Perl import into all my packages? (2015)How to load a bunch of perl modules into a perl[详细]
-
如何获取要在Tkx标签中使用的字符串的“宽度”
所属栏目：[大数据] 日期：2020-12-16 热度：181
我正在使用Perl Tkx创建一个简单的应用程序,并允许用户选择一个目录.而不是使用文本包装或将框拉伸到荒谬的长度来显示整个目录名称,如果名称太长,我想截断它并将“…”追加到最后. 问题是标签的宽度被定义为某个任意值(如40).如果这个值是标签可以容纳多少个[详细]
-
regex – 在Perl中打印不带子字符串的字符串
所属栏目：[大数据] 日期：2020-12-16 热度：74
我有一个Logfile,其格式如下所示： [Time] [mmm] [DATA] [rule] [a.a.a.a][Time] [ppp] [DATA] [rule] [a.a.a.a][Time] [mmm] [DATA] [rule] [c.c.c.c] 无法找到一种方法来打印这个没有特定子串的字符串.我希望能够在没有匹配[mmm]和[a.a.a.a]的子字符串行的[详细]
-
perl字符串中的行数
所属栏目：[大数据] 日期：2020-12-16 热度：161
使用perl,是否有任何单个命令可以给出字符串中的行数？ my $linenum= .... $str .... 当字符串为空,单行和多行时,它应该起作用. 解决方法 尝试使用正则表达式[详细]
-
使用perl的多个正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：182
嗨,这个网站已经帮我几次修复我在perl的问题. 这是我第一次提出问题,因为我无法在谷歌和堆栈溢出中找到答案. 我想要做的是获取两个单词之间的内容.但他们必须匹配的模式正在发生变化.我正在尝试获取产品详细信息.品牌,描述,名称等.我试图在另一个之后进行正[详细]
-
perl – $_的奇怪值/行为
所属栏目：[大数据] 日期：2020-12-16 热度：179
输出应该是aaabbbcccdddeee,而不是aaa555234dddeee perl -wle' map { for (my $i =2; $i 5; $i++) { push @a,$_ } } "a".."e"; print @a'aaa555234dddeee 仅在引用/解除引用$_变量时的预期行为, perl -wle' map { for (my $i =2; $i 5; $i++) { push @a,${$[详细]
-
perl – 你如何使用Twiggy服务器使用Plack :: Middleware :: Ses
所属栏目：[大数据] 日期：2020-12-16 热度：153
我有一个基于 Twiggy 的perl服务器： my $app = sub { my $req = Plack::Request-new(shift); ... };my $twiggy = Twiggy::Server-new(port = $port);$twiggy-register_service($app); 它工作正常,但现在我想添加会话管理(处理用户身份验证).我看到CPAN上有[详细]
-
perl – 如何测试’使用’*失败*？
所属栏目：[大数据] 日期：2020-12-16 热度：113
Test::More提供常用的use_ok测试来测试模块是否正确加载.但是如何测试模块无法加载？ Test::Exception为类似的故障提供die_ok和堂兄弟,但不是在使用时间. 当模块需要特定参数或特定环境正确加载时,这很有用,我想测试这些条件.举个例子,也许我的’Foo’模块需[详细]
-
perl – 在基准测试中使用计算机是否会对基准测试结果产生影响？
所属栏目：[大数据] 日期：2020-12-16 热度：66
在基准测试(使用 Benchmark模块)时使用计算机进行其他操作会对基准测试结果产生影响吗？ 解决方法 是的,它确实.此运行perl进程符合您的操作系统执行的一般流程管理规则. OS进程调度程序将在所有正在运行的进程中分配CPU时间. 有一种方法可以影响这种分布 –[详细]
-
为什么我的Perl脚本不使用我的模块？
所属栏目：[大数据] 日期：2020-12-16 热度：67
module.pm package module;use 5.012;use warnings;sub Parse{ return 1;}1; script.pl #!/usr/bin/perl -wuse 5.012;use warnings;use lib 'C:/';use module;print Parse("value"); 标准输出 Undefined subroutine main::Parse 解决方法 你需要写： print m[详细]
-
在perl中“打印”文件的最快方法是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：72
我一直在使用以下代码将perl脚本的输出写入文件一段时间： open( OUTPUT,":utf8",$output_file ) or die "Can't write new file: $!";print OUTPUT "First line I want printedn";print OUTPUT "Another line I want printingn";close(OUTPUT); 这是有效的[详细]
-
如何读取perl中匹配字符串上方的n行？
所属栏目：[大数据] 日期：2020-12-16 热度：79
假设我有一个文件xx.txt,它包含数据 1 I am here2 to work in 3 Perl for writing4 a script for 5 myself 假设我想搜索字符串脚本并想要显示三个 在它上面的线,我该怎么办？ 解决方法 您可以使用数组作为打印缓冲区. my @array;while (DATA) { push @array,[详细]
-
perl – 如何在突破foreach循环后重新启动“do-while”循环？
所属栏目：[大数据] 日期：2020-12-16 热度：164
我的配置脚本中有一小段代码,想法是加载配置然后检查每个密钥是否输入了主机名.但是,如果发现配置包含相同的主机名,则会被拒绝,并显示一条警告消息,指出已存在具有该主机名的配置. 问题是我需要foreach循环来检查散列键的存在以重新启动do-while循环,这样可[详细]
-
perl – 如何在实际写入文本行之前延迟创建文本文件？ (懒惰创作
所属栏目：[大数据] 日期：2020-12-16 热度：139
我有一个perl脚本,在文件上附加文本： open (EXFILE,"$outFile"); 在打开时创建一个空文件,我想避免这种情况.我希望只有在第一次将一行写入文件句柄时才会创建该文件： print EXFILE $line 如果没有任何内容写入文件句柄,则不应创建该文件… 可能吗 ？怎么样[详细]
-
perl – 如何在Catalyst中限制POST的请求
所属栏目：[大数据] 日期：2020-12-16 热度：186
我是Catalyst的新手,刚开始构建一个Web应用程序来学习一些东西. 我还没想到的一件事是如何将对给定控制器方法的请求限制为POST(例如). 一个具体的例子是,将触发在数据库中创建对象的请求.由于我希望这个应用程序对REST动词非常严格,这应该只能通过POST. 我知[详细]
-
Perl的完美哈希函数(如gperf)？
所属栏目：[大数据] 日期：2020-12-16 热度：169
我将使用一个键：值存储,并希望在Perl中创建不可碰撞的哈希.是否有一个Perl模块或函数,我可以用来生成一个不可碰撞的哈希函数或表(可能像 gperf)？我已经知道我的输入值范围了. 解决方法 我找不到纯粹的Perl解决方案,最接近的是 Reini Urban’s examinations[详细]
-
如何在Perl中的模块之间使用Log4Perl？
所属栏目：[大数据] 日期：2020-12-16 热度：103
我打算在我的模块中使用Log4Perl进行日志记录. 我的代码结构是这样的 我有Start.PL验证一些参数.我有几个相互链接的模块(PM)文件(用于这些PL和PM文件) 我有一个Logger.PM,其中我有一个创建日志对象的方法InitiateLogger() $log = Log::Log4perl-get_logger("[详细]
-
perl – 算法效率改进
所属栏目：[大数据] 日期：2020-12-16 热度：50
首先,如果有人提出这个问题,我想道歉.很难找到答案,无法找到如何创建数组哈希和哈希的数组…. 我正在创建一个日志分析器.每个错误条目都在表单中 timestamp # # human_timestamp errno # 我使用映射函数创建了散列哈希,以执行以下操作： $logRef-{++$errCnt}[详细]
-
需要使用CPAN分发安装的非Perl文件？
所属栏目：[大数据] 日期：2020-12-16 热度：131
我需要安装我的CPAN dist文件,而不是Perl.我应该把它放在哪里？什么是从模块中引用它们的最佳方法,这样无论用户配置如何,我都可以访问它们？ 解决方法 好吧,你不清楚这些文件是什么以及如何使用它们,但你可能正在寻找 File::ShareDir. File :: ShareDir只负[详细]
-
使用perl,如何处理从命令行输入中获取的正则表达式？
所属栏目：[大数据] 日期：2020-12-16 热度：115
我正在创建一个脚本来从命令行获取正则表达式输入并处理它;这样的事情： chomp(my $regex = $ARGV[0]);my $name = '11528734-3.jpg';$name =~ $regex;print $name . "n"; 我对脚本的输入是：“s / .jpg / _thumbnail.jpg / g” 但是$name没有从命令行处理正[详细]
-
在Perl中使用了什么％^ H？
所属栏目：[大数据] 日期：2020-12-16 热度：87
谁知道这个全局变量是做什么的？ 由于特殊字符,我无法通过谷歌找到任何信息. UPDATE [root@dev-test v2]$perldoc -v '%^H'Ending switch processing. Args are [%^H] with 0 errors./usr/bin/perldoc = Pod::Perldoc v3.14Formatter class Pod::Perldoc::ToM[详细]
