-
Perl6：子条款中的构造函数
所属栏目：[大数据] 日期：2020-12-16 热度：106
有没有办法从子类中的构造函数分配超类中声明的实例变量？我已经习惯使用BUILD()作为构造函数,但我想知道这是不是一个好主意.即： use v6; class File { has $!filename; } class XmlFile is File { submethod BUILD(:$!filename) { }}my XmlFile $XF = XmlF[详细]
-
容器 – 如何判断某些东西是否是Perl 6容器？
所属栏目：[大数据] 日期：2020-12-16 热度：190
我没有任何有用的理由知道这一点,但我想知道我是否有一个名字,如$x,如果这是一个标量变量(可变的东西)或仅仅是某个东西的名称(不可变的东西).我不想做任何事;这是好奇心. 我正在玩这样的事情： my @a = 'a',('b','c' );my @b = 'd','e','f',@a;my @ab = @a,@[详细]
-
使用Strawberry Perl和twig清除Windows上目录树中所有文件的xml
所属栏目：[大数据] 日期：2020-12-16 热度：90
我想清除放在 loot内的整个内容 /赃物目录树中 XML文件中的元素.我正在使用Strawberry Perl for Windows 64 bit. 例如,这个XML文件： ?xml version="1.0" encoding="UTF-8"?monster name="Dragon"/health="10000"/immunities immunity fire="1"//immunitiesl[详细]
-
perl6匹配任何一组单词的最佳方法是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：99
我试图找到一种简单的方法来匹配任何一组单词.我一直在使用for循环,但是有更简单的方法吗？ my @a=a b c d e f;my $x="a1234567";say $x ~~ m/ @a.any /; 它返回False.有没有办法让它发挥作用？谢谢. 解决方法 my @a = a b c d e f;my $x = "a1234567";say $[详细]
-
模块 – 如何找出为什么Linenoise无法安装？
所属栏目：[大数据] 日期：2020-12-16 热度：95
这是在64位 Windows 10 Pro和MSVC 2015上.这个问题有很长的一部分,因为我想提前提供完整的信息,但实际问题相当简单： 如何在安装失败后让panda保持工作目录(如cpanmdoes),以便我可以诊断出错了什么？ 从下面的日志中可以看出,linenoise.dll似乎是在正确的位[详细]
-
match – perl6如何使用副词作为变量？
所属栏目：[大数据] 日期：2020-12-16 热度：58
我试图匹配一个区分大小写或不区分大小写的字符串.有没有办法让.match方法将副词作为变量？ my $aString = "foo bar baz";my @anArray = OO AR AZ;my $anAdverb = :i;my $firstCheck = ($aString.match(/$anAdverb "@anArray[0]" /)).Bool; 在正则表达式中使[详细]
-
perl – 无法在运行时加载`Cwd`(和其他非核心模块)
所属栏目：[大数据] 日期：2020-12-16 热度：111
想象一下,我想在运行时加载一个模块.我希望这可行 use warnings;use strict;eval { require Cwd; Cwd-import;};if ($@) { die "Can't load Cwd: $@" }say "Dir: ",getcwd; 但它没有,根据Bareword“getcwd”不允许…… 默认情况下,Cwd导出getcwd.我尝试提供要[详细]
-
perl – 获取autosplit分隔符的值？
所属栏目：[大数据] 日期：2020-12-16 热度：127
如果我使用perl -Fsomething运行一个脚本,那么在Perl环境中的哪些值可以保存到脚本可以找到它的位置？我想编写一个脚本,默认情况下重用输入分隔符(如果它是一个字符串而不是正则表达式)作为输出分隔符. 解决方法 看看 source,我认为分隔符不会保存在任何地方[详细]
-
perl6’做(文件)’等价
所属栏目：[大数据] 日期：2020-12-16 热度：192
在perl5中,我曾经用’do(file)’来配置这样的配置文件： ---script.pl start ---our @conf = ();do '/path/some_conf_file';...foreach $item (@conf) { $item-{rules} ......---script.pl end ------/path/some_conf_file start ---# arbitrary code to 'fi[详细]
-
perl – Term :: Readline：encoding-question
所属栏目：[大数据] 日期：2020-12-16 热度：152
当我进入“Müller”时,屏幕上出现“M ?? ller”.我怎么能解决这个问题？ #!/usr/bin/env perluse warnings;use 5.012;use Term::ReadLine;my $term = Term::ReadLine-new( 'dummy' );my $con = $term-readline( ': ' );say $con;# On the screen:# : M??lle[详细]
-
Perl(SSH到远程主机,发出命令并关闭会话而不等待它完成…)
所属栏目：[大数据] 日期：2020-12-16 热度：140
脚本进入远程服务器并使用Net :: SSH :: Perl运行 shell脚本“snap.sh”. 这个shell脚本需要大约10分钟才能结束,我的perl程序会一直等到输出结束. 我想在远程服务器上运行shell脚本,程序应关闭SSH会话,而不必等待脚本在远程服务器上完成. my $ssh = Net::SSH[详细]
-
perl – 缓存的schwartzian变换
所属栏目：[大数据] 日期：2020-12-16 热度：122
我正在经历“中级Perl”,这很酷.我刚刚完成了关于“Schwartzian变换”的部分,在它沉入之后,我开始想知道为什么变换不使用缓存.在具有多个重复值的列表中,转换会重新计算每个值的值,因此我想为什么不使用哈希来缓存结果.这里有一些代码： # a place to keep o[详细]
-
从Perl中的文件中删除包含非ASCII字符的行
所属栏目：[大数据] 日期：2020-12-16 热度：113
我有一个文件,每6小时产生一次aprox 12,000行.在其中一些行中,有非ascii字符. 我希望能够运行Perl脚本来删除其中包含非ASCII字符的所有行. 解决方法 你可以做： perl -i.bak -ne 'print unless(/[^[:ascii:]]/)' file / [^ [：ascii：]] /的正则表达式解释：[详细]
-
Perl脚本,使用fork或线程？
所属栏目：[大数据] 日期：2020-12-16 热度：55
我正在编写一些脚本来收集来自多个服务器的数据,这个数字会增长,并且我会尝试将来证明我的脚本,但是我有点卡住了. 所以首先我有一个脚本在mysql数据库中查找IP,然后连接到每个服务器抓取一些信息,然后再次将其放入数据库. 我一直认为这是有限的时间来做这个,[详细]
-
在perl中使用’pack’函数发送数组的问题
所属栏目：[大数据] 日期：2020-12-16 热度：100
我正在使用pack函数将列表的内容发送到套接字.代码如下. $message_array = pack ("(A*)*",@ul_dcch_message); 列表内容是 @ul_dcch_message = (101101012411011,"emergency",25,"simple"); 这段代码发送列表中包含的所有字符串和数字.但如果列表中的数字超过[详细]
-
perl – 在压缩存档内的文本文件上运行`head`,无需解压缩存档
所属栏目：[大数据] 日期：2020-12-16 热度：122
问候, 我接管了之前的团队并编写了处理csv文件的ETL作业.我在ubuntu上使用了shell脚本和perl的组合. csv文件很大;他们以压缩档案的形式到达.解压缩,很多都超过30Gb – 是的,那是G 传统进程是在cron上运行的批处理作业,它完全解压缩每个文件,读取并将其第一行[详细]
-
如何检查Perl编译是否已经完成？
所属栏目：[大数据] 日期：2020-12-16 热度：151
我有一些代码要求应用程序在执行之前完全加载和编译. 有没有办法检查我的Perl程序是否仍处于编译阶段？ 我有一些有用的东西,但必须有一个更好的方法： sub check_compile { printf("checkingn"); foreach my $depth (0..10) { my ($package,$filename,$line[详细]
-
perl – 如何创建一个为用户导入许多模块的模块？
所属栏目：[大数据] 日期：2020-12-16 热度：162
我有一个相当复杂的数据结构,我已经在Perl中实现了.这已被分解为大约20个班级.基本上,只要您想使用其中一个类,就需要使用所有这些类. 现在,如果有人想要使用这种数据结构,他们需要做类似的事情： use Component::Root;use Component::Foo;use Component::Bar[详细]
-
Perl在Python中的BEGIN {}块
所属栏目：[大数据] 日期：2020-12-16 热度：174
我有使用“with”关键字的 Python代码(2.6中的新内容),我想检查解释器版本是否至少为2.6,所以我使用这段代码： import sysif sys.version '2.6': raise Exception( "python 2.6 required" ) 但是,2.4解释器会对with关键字(稍后在脚本中)进行扼流,因为它无法[详细]
-
如何从perl socket进行非blockin recv
所属栏目：[大数据] 日期：2020-12-16 热度：191
我在TCP套接字上进行了一次recv调用,即使套接字本身设置为非阻塞模式,它仍然是recv调用是阻塞调用.所以我的问题很简单：如何在perl套接字上实现非阻塞recv？提前致谢. 解决方法 在尝试从其中恢复之前,请使用 4 argument version of select 检查套接字上是否[详细]
-
perl – 在“use fields”private中,实例变量在什么情况下声明为
所属栏目：[大数据] 日期：2020-12-16 热度：77
我试图理解字段pragma的行为,我找到 poorly documented,关于以下划线为前缀的字段.这就是文档中有关它的内容： Field names that start with an underscore character are made private to the class and are not visible to subclasses. Inherited fields c[详细]
-
带警报消息的perl – scp命令
所属栏目：[大数据] 日期：2020-12-16 热度：79
我想为每次执行scp命令获取警报消息.如果有人使用scp命令访问我的文件,那么我必须收到一封邮件.我怎样才能做到这一点.请帮我. 解决方法 除非你对服务器有管理控制权,否则你的要求是不可能的 – Unix文件系统根本就不能这样工作.您可以设置文件权限,以便其他[详细]
-
如何使用Perl将输出写入新的外部文件？
所属栏目：[大数据] 日期：2020-12-16 热度：87
也许我正在使用错误的关键字进行搜索,或者这是一个非常基本的问题,但我无法找到问题的答案.我无法将我的whois命令的结果写入新的外部文件. 我的代码如下.它需要$readfilename,它是一个具有IP列表的文件名,以及$writefilename,它是输出的目标文件.两者都是用[详细]
-
如何在Perl正则表达式中替换匹配的第n次出现？
所属栏目：[大数据] 日期：2020-12-16 热度：128
从 extracting the n’th regex match的早期问题开始,我现在需要替换匹配,如果找到的话. 我认为我可以定义提取子例程并在/ e修饰符的替换中调用它.我显然是错的(诚然,我有一个XY problem). use strict;use warnings;sub extract_quoted { # à la codaddict[详细]
-
如何将哈希传递给Perl子例程？
所属栏目：[大数据] 日期：2020-12-16 热度：175
在我的一个主要(或主要)例程中,我有两个或更多个哈希.我希望子程序foo()接收这些可能的多个哈希值作为不同的哈希值.现在我没有偏好,如果他们按价值或作为参考.我在最近几个小时内一直在努力,并且会感谢帮助,所以我不必为 PHP留下perl！ (我正在使用mod_perl,[详细]
