-
在Perl EOF处理中将位写入(和读取)位到二进制文件
所属栏目：[大数据] 日期：2020-12-16 热度：146
我有两个相关的问题(在Perl中)： 将数据写入二进制文件,格式为：单位标志后跟8位 回读相同的格式 我试过这个(和其他变化,但对于我的生活,我无法弄清楚这一点)： binmode(OUT);my $bit = pack("B1",'1');my $byte = pack("H2","02");print OUT $bit . $byte;[详细]
-
perl – 使用HTML :: TreeBuilder :: XPath访问href值
所属栏目：[大数据] 日期：2020-12-16 热度：171
我正在使用 LWP::UserAgent , HTML::Selector::XPath 和 HTML::TreeBuilder::XPath 模块用于获取一组搜索结果中第一个YouTube视频的href属性的值. 到目前为止我的代码是： use LWP::UserAgent;use HTML::TreeBuilder::XPath;use HTML::Selector::XPath;my $u[详细]
-
使用perl中的正则表达式在两个字符串之间查找字符串
所属栏目：[大数据] 日期：2020-12-16 热度：172
我想检索一个字符串,该字符串在文件中多次落在两个指定的字符串之间 我试过这个,但这不起作用 /(?m)"String 1"!.*?"String2":/; i want every thing that falls between “String 1” and “String 2” 请帮忙 解决方法 假设您的输入字符串是这样的 $str='St[详细]
-
perl – 为什么我不能通过typeglob访问词法变量？
所属栏目：[大数据] 日期：2020-12-16 热度：94
我不明白为什么下面的例子失败了(测试2).为什么我无法从* bb glob访问变量bb？ use Test::More tests = 4;$aa = 1;my $bb = 2; # HERE!local $cc = 3;our $dd = 4;is(${*aa},1,"$*aa should be 1");is(${*bb},2,"$*bb (my) should be 2");is(${*cc},3,"$*[详细]
-
perl – 如何使用反引号来捕获从时间(1)输出的经过时间？
所属栏目：[大数据] 日期：2020-12-16 热度：139
我正在尝试使用以下命令从 time 获取输出.我唯一想要的是获得经过的时间,但我一无所获. $result = `/usr/bin/time -f %e "./"$PROG /dev/null`;print $result; 解决方法 所需的重定向只是有点棘手. my $result = `/usr/bin/time -f %e "./"$PROG 21 /dev/nul[详细]
-
Perl内置函数作为子例程引用
所属栏目：[大数据] 日期：2020-12-16 热度：52
我正在尝试将一组操作作为数组执行.为此,我必须传递子例程引用. (可能还有其他方法可以在不使用数组的情况下执行此操作.但是,由于某些其他限制,我觉得这是最好的. 我正在尝试做的基本示例代码： #!/usr/bin/perluse strict;use warnings;use Data::Dumper;su[详细]
-
如何将日志记录信息添加到perl遗留代码中
所属栏目：[大数据] 日期：2020-12-16 热度：167
我有一个内置于perl的中型到大型系统,它是在过去15年中开发的,由许多脚本和pm文件构建, 并且为了改进系统我需要更多的数据,我看到它获取这些数据的最简单的方法是让代码中的每个函数打印出一些日志的开始和结束时间,这样就有可能理解什么花了最多的时间. 然[详细]
-
如何用for …每个循环重置多个Perl哈希？
所属栏目：[大数据] 日期：2020-12-16 热度：148
我需要在mod_perl脚本中重置一些全局哈希变量. 这有效 – 如上所述.这里：https://stackoverflow.com/a/4090870 $_ = '' for ($a,$b,$c);$_ = 0 for ($d,$e,$f); 这似乎不起作用： $_ = () for (%a,%b,%c); 为什么它不适用于哈希？可以吗？数组怎么样？ (我[详细]
-
perl – 排序一个巨大的文件
所属栏目：[大数据] 日期：2020-12-16 热度：98
我想要排序一个大约20M行的巨大文件： 团队名称升序 然后降到最高分. 所以我可以获得每支球队最高的得分手. 我想要考虑系统的资源.所以… 有没有办法在不将所有数据放入Perl中的哈希/数组的情况下执行此操作？ 我们可以使用Unix / Linux排序实用程序执行此操[详细]
-
使用var在Perl中选择var
所属栏目：[大数据] 日期：2020-12-16 热度：64
我以为你曾经能够在“严格”模式下做到这一点,但我可能记得不正确.有可能这样的东西工作…… use strict;use warnings;package SomePackage;my $TargetPID="demo:5"; #using "our" also works,but not in strict modemy $VarName="TargetPID";print ${$VarNa[详细]
-
perl – Template Toolkit中的有效变量名称
所属栏目：[大数据] 日期：2020-12-16 热度：148
我正在使用perl和Template :: Toolkit生成一些文本.在perl程序中,我定义了一个哈希引用,例如 my $user = { "user-name" = "John" }; 并将其传递给Template :: Toolkit,以便使用模板文件生成John.在我写的模板文件中 [% user-name %] 但遗憾的是,用户名似乎被[详细]
-
如何将一个布尔条件结果赋给perl中的标量变量？
所属栏目：[大数据] 日期：2020-12-16 热度：87
我正在执行以下操作,但它无法正常工作： my $enabled = $hash $hash-{'key'} $hash-{'key'}-{'enabled'} $hash-{'key'}-{'active'}; 这是为标量变量赋予布尔值的可接受方式吗？ 我的代码以奇怪的方式行为不端,因为它是,我相信这是因为这个任务.我已经验证所[详细]
-
perl – 使用匹配正则表达式的密钥过滤哈希而不使用smartmatch
所属栏目：[大数据] 日期：2020-12-16 热度：98
我需要根据正则表达式过滤哈希值,如果正则表达式匹配则从哈希中删除键. 这是我到目前为止,不幸的是它没有做任何事情,我不知道为什么. 所以,我正在构建一个字符串数组的正则表达式,我也需要匹配子字符串,所以如果哈希键是someprefix_somestring我需要匹配some[详细]
-
perl – 在Marpa :: R2 :: Scanless中防止天真最长的令牌匹配
所属栏目：[大数据] 日期：2020-12-16 热度：55
在Marpa解析器中的 Scanless Interface(SLIF)的当前实现中,词法分析器似乎以下列方式执行最长令牌匹配(LTM)： 尝试在输入中的当前位置匹配所有终端符号. 除了最长的比赛之外的所有比赛都被丢弃. 这些最长的令牌被送到解析器,解析器可能会也可能不会接受它们.[详细]
-
perl – 按MAC地址排序
所属栏目：[大数据] 日期：2020-12-16 热度：146
我有一个由设备信息组成的长.csv文件.每一行都是一个独特的设备,其中列出了自己的信息： MACaddr,Date,"b,n",blahblahblah 我需要做的是接收文件,然后写入一个新文件,其中所有具有相同供应商MAC(即MAC地址的前3个八位字节)的线路/设备组合在一起.我可以很容[详细]
-
在perl中将数组转换为json,获取字符串数组
所属栏目：[大数据] 日期：2020-12-16 热度：196
我正在尝试将数组转换为json： $json = to_json("numbers_array" = @numbers_array); print $json; 但我得到的输出是： {"numbers_array" = ["1","2","3"] } 我正在使用push()添加元素来构建数组.如何转换为json并保留数字类型,以便输出为： {"numbers_arra[详细]
-
perl – 如何确定shell命令是否未运行或未生成输出
所属栏目：[大数据] 日期：2020-12-16 热度：132
我正在通过perl脚本执行一些 shell命令并捕获输出,如下所示, $commandOutput = `cat /path/to/file | grep "some text"`; 我还检查命令是否成功运行,如此 if(!$commandOutput){ # command not run!}else{ # further processing} 这通常有效,我得到正确的输出[详细]
-
Perl有一个类似于docopt的模块吗？
所属栏目：[大数据] 日期：2020-12-16 热度：164
是否有任何Perl模块具有与Docopt类似的功能,或者是否有为其开发的端口？ Docopt是一个模块,它通过解析使用和选项消息为命令行调用创建接口. 您可以创建标准帮助消息 Naval Fate. Usage: naval_fate ship new ... naval_fate ship move [--speed=] naval_fate[详细]
-
使用Perl Text :: CSV从数据库写入
所属栏目：[大数据] 日期：2020-12-16 热度：110
我试图使用数据库查询将查询输出打印到CSV但无法将输出打印到单独的行.怎么办？ 这是代码： use warnings;use DBI;use strict;use Text::CSV;#set up filemy $csv = Text::CSV-new ( { binary = 1 } ) # should set binary attribute. or die "Cannot use CS[详细]
-
perl – fetchall_arrayref中的foreach值
所属栏目：[大数据] 日期：2020-12-16 热度：72
我正在尝试为fetchall_arrayref中的每个值执行一个foreach循环,并且遇到了一些麻烦. 我有： my $list = $sth-fetchall_arrayref({});print Dumper($list); 这给了我： $VAR1 = [ { 'ID_NUMBER' = '123' },{ 'ID_NUMBER' = '456' },{ 'ID_NUMBER' = '5666' },[详细]
-
perl – 为什么我不能初始化new里面的成员变量？
所属栏目：[大数据] 日期：2020-12-16 热度：81
我试图在Perl中找不到OO.我做了以下琐碎课： #/usr/bin/perl package Tools::Util; use strict; use warnings; my $var; sub new { my ($class,$arg) = @_; my $small_class = { var = $arg,}; return bless $small_class; } sub print_object { print "var[详细]
-
将数组打印到文本文件(v2)
所属栏目：[大数据] 日期：2020-12-16 热度：88
昨天我问了这个问题并得到了许多有用的答复,希望今天也是如此.这是我修改过的脚本. #! /usr/bin/perluse strict;use warnings;my $line;my @array;my $print;open (OUT,"","output.txt")or die "cant open: $!"; while ($line = ){ chomp($line); push(@arra[详细]
-
regex – perl中字符串之间的字符匹配计数
所属栏目：[大数据] 日期：2020-12-16 热度：65
我有一个字符串(比如字符串1)需要与其他字符串匹配(string2) 两个字符串都具有相同的长度,并且不区分大小写. 我想打印两个字符串之间的字符匹配数. Eg: String 1: stranger String 2: strangem Match count = 7 我试过这个： $string1 = "stranger";$string2[详细]
-
跨旋转监视Perl中的文件内容
所属栏目：[大数据] 日期：2020-12-16 热度：158
下午好, 我有一个小的Perl脚本,它基本上模拟了Minecraft server.log上的tail -f功能.该脚本检查某些字符串并以各种方式执行操作. 该脚本的简化版本如下： #!/usr/bin/perluse 5.010;use warnings;use strict;my $log = "PATH TO LOG";my $curpos;open(my $LO[详细]
-
如何在嵌入式系统上安装缺少的perl模块？
所属栏目：[大数据] 日期：2020-12-16 热度：112
我在嵌入式系统上运行 Linux,特别是在Cyclone V FPGA上使用Yocto Linux.我能够以最基本的形式使用Perl,但我无法加载任何Perl模块.例如,在尝试使用GetOpt :: Long模块时,出现以下错误 root@socfpga_cyclone5:/mnt/sdcard# ./test.plCan't locate Getopt/Long.[详细]
