-
perl – 有状态尾(仅显示上次执行的新行)
所属栏目：[大数据] 日期：2020-12-16 热度：55
我希望能够看到自上次查询以来没有再次读取整个文件的文件中添加了多少行. 就像是 ： ptail my_file | fgrep "[ERROR]" | wc -l 简单的Perl解决方案是首选,因为我没有轻松访问编译器. 解决方法 虽然它为了其他目的而消耗了这些行,但我之前编写的代码基本上都[详细]
-
在mod_perl下的MySQL驱动程序segfaulting – 在哪里寻找问题
所属栏目：[大数据] 日期：2020-12-16 热度：56
我有一个webapp,当数据库重新启动并尝试使用旧连接时会发生段错误.在gdb –args apache -X下运行它会导致以下输出： Program received signal SIGSEGV,Segmentation fault.[Switching to Thread -1212868928 (LWP 16098)]0xb7471c20 in mysql_send_query ()[详细]
-
在Perl中,为什么不能将__DATA__用作可搜索的文件句柄？
所属栏目：[大数据] 日期：2020-12-16 热度：137
通过典型的slurp作品从DATA读取.尝试使用DATA作为我可以进行搜索的文件句柄是行不通的.有人能够指出我必须犯的明显错误吗？ 码： #!/usr/bin/env perluse strict;use warnings;if ($ARGV[0] eq 'seek' ) { my $log_fh = *DATA; $log_fh-seek(64,0); print "[详细]
-
new-operator – 创建新运算符
所属栏目：[大数据] 日期：2020-12-16 热度：155
我正在努力使?成为一个逻辑否定运算符. ? True;multi sub prefix:? ($n) { return not $n;} 当我运行上面的程序时,它返回此错误： 06001 有谁知道原因可能是什么？ 解决方法 新运算符的声明必须在使用之前出现.将程序更改为： multi sub prefix:? ($n) { ret[详细]
-
perl6 – 我可以修改Perl 6中的文字正则表达式吗？
所属栏目：[大数据] 日期：2020-12-16 热度：199
假设我们有一个规则的屈折模式,不能分割成段.例如.它可以是中缀(在单词中添加一些字母)或元音更改(‘ablaut’).考虑德国人的一个例子. my @words = Vater Garten Nagel;my $search = "/@words.join('|')/".EVAL;"mein Vater" ~~ $search; say $/; # ?Vater?[详细]
-
如何配置Bailador通过TLS(HTTPS)提供内容？
所属栏目：[大数据] 日期：2020-12-16 热度：133
我很享受试验Bailador一段时间了.设置和使用普通HTTP请求很容易,但我想通过HTTPS提供内容. 一些Request方法似乎暗示HTTPS请求是可能的： method scheme { $.envp6w.url-scheme || 'http' }method secure { so self.scheme eq 'https' } 和标题方法： method[详细]
-
perl – 如何在foreach声明中打印出值？
所属栏目：[大数据] 日期：2020-12-16 热度：178
我非常非常喜欢perl编程. 在阅读循环时,对于foreach循环,我有两个例子. 一个例子是, foreach ('hickory','dickory','doc') { print $_; print "n";} 输出： – hickorydickorydoc $_变量包含每个项目.所以,它打印. 在另一个例子中,他们说没有在print语句中[详细]
-
参数 – perl6：如何为函数的参数指定多个要求？
所属栏目：[大数据] 日期：2020-12-16 热度：82
我有一个特殊的函数,它接受一个列表,列表的每个成员必须满足多个要求.如何在perl6函数中设置它？ sub specialFunc(List $x) {};(1) $x is a list # easy,List $x,but what about the following:(2) each member of $x is numeric(3) each member of $x is po[详细]
-
perl – 将字符串和临时数组传递到1行中的sub？
所属栏目：[大数据] 日期：2020-12-16 热度：140
我多年没有使用过Perl但是必须处理一些旧的代码. 我创建了一个子程序,我想将一个字符串和一个数组传递给： sub pass_in { my ($str,$array) = @_; for my $e (@$array) { print "I see str $str and list elem: $en"; } return 0;}my @temp_arr = qw(A B C[详细]
-
在特定示例中了解perl中的异步
所属栏目：[大数据] 日期：2020-12-16 热度：92
我必须编写一个脚本来并行获取一些URL并做一些工作.在过去,我一直使用Parallel :: ForkManager来做这些事情,但现在我想学习一些新东西并尝试使用AnyEvent(和AnyEvent :: HTTP或AnyEvent :: Curl :: Multi)进行异步编程……但是我我有问题理解AnyEvent并编写[详细]
-
perl6 – “我的$foo”有什么范围,它用于什么？
所属栏目：[大数据] 日期：2020-12-16 热度：86
使用正则表达式,标记或规则,可以像这样定义变量; token directive { :my $foo = "in command"; command subject value?} 语言文档here中没有任何内容,S05 – Regexes and Rules中的内容很少,引用; 任何语法正则表达式实际上只是一种方法,你可以使用冒号后跟[详细]
-
在NQP(Not Quite Perl)中编写模块会加速perl6程序吗？
所属栏目：[大数据] 日期：2020-12-16 热度：182
NQP主要用于引导perl6语言,但我在考虑是否可以将它用作优化.我知道rakudo尚未完美优化,但我正在寻找一种长期的方法. Perl6有一些低级数据类型和一些编译器和后端级别的想法,可以使这个想法毫无意义. 编写NQP而不是perl6是否有意义？ 解决方法 从长远来看,在N[详细]
-
perl – 为什么编码删除参数？
所属栏目：[大数据] 日期：2020-12-16 热度：124
如果CHECK设置为true值,为什么encode会删除传递的参数？ #!/usr/bin/env perluse warnings;use strict;use utf8;use Encode;my $decoded = 'h';if ( eval { encode( 'utf-8',$decoded,1 ); 1 } ) { print "|$decoded|n"; # prints ||} 解决方法 它适用于您[详细]
-
perl – 确定Moose属性和方法的继承地点？
所属栏目：[大数据] 日期：2020-12-16 热度：69
我经常在我的工作地点处理一个庞大的,没有很好记录的,面向对象的Perl回购.在维护代码的同时,我经常需要跟踪从其他类继承的内容,以便我能够理解他们正在做什么.例如,我需要弄清楚$self-神秘是什么以及它在做什么： package Foo::Bar;use Moose;use Method::Si[详细]
-
Perl Tkx,“button”和“ttk__button”有什么区别？
所属栏目：[大数据] 日期：2020-12-16 热度：182
我一直在使用Perl Tkx开发GUI,并发现可以使用两个单独的函数来创建按钮. (按钮和ttk__按钮). 到目前为止,我发现的唯一区别是按钮功能似乎居中对齐文本,而ttk__button函数似乎左对齐文本. 使用按钮的示例： #!/usr/bin/perluse strict;use warnings;use Tkx;m[详细]
-
perl按位AND和按位移位
所属栏目：[大数据] 日期：2020-12-16 热度：155
我正在阅读模块 Net::Pcap::Easy 的一些示例代码片段,我遇到了这段代码 my $l3protlen = ord substr $raw_bytes,14,1;my $l3prot = $l3protlen 0xf0 2; # the protocol partreturn unless $l3prot == 4; # return unless IPv4my $l4prot = ord substr $packe[详细]
-
regex – 使用perl表达式批量重命名文件
所属栏目：[大数据] 日期：2020-12-16 热度：178
这应该是很多人的基本问题,但我是一名没有编程背景的生物学家,所以请原谅我的问题. 我要做的是重命名大约100,000个具有代码名称的gzip压缩数据文件(例如：XG453834.fasta.gz).我想把它们命名为易于阅读和解析的东西(例如：Xanthomonas_galactus_str_453.fast[详细]
-
perl-module – 使用cpanm安装Perl模块
所属栏目：[大数据] 日期：2020-12-16 热度：197
也许这是一个愚蠢的问题？如果我安装像File这样的模块 cpanm File 它会在File下安装所有内容,比如File：Listing等吗？ 解决方法 这不是一个愚蠢的问题,我可以理解你为什么不想尝试它. 但你可以继续做下去 cpanm File 并且很少会发生,因为没有名为File的模块.[详细]
-
perl foreach循环子程序
所属栏目：[大数据] 日期：2020-12-16 热度：127
我知道perl中的子程序通过引用传递arg.但是在下面的代码中,子例程中的foreach循环不应该更改@list的值,因为my $i应该创建一个新的词法范围var $i.对$i的任何赋值都应该是词法范围,但不能更改@list值. 任何人都可以解释在foreach循环中发生的事情导致值更改为[详细]
-
perl – 如何使用调用者确定是否在eval中调用子例程？
所属栏目：[大数据] 日期：2020-12-16 热度：58
我还在学习Perl,我的任务是使用调用者来确定是否从更高级别的eval调用子例程.我应该想出一些代码来测试它并打印是的,如果它来自评估或否则如果不是.我找不到任何关于如何在网络上使用来电者的好例子,并且想知道是否有人对如何做到这一点有任何想法或建议. 解[详细]
-
你如何正确处理数组中的哈希？
所属栏目：[大数据] 日期：2020-12-16 热度：193
我有一系列哈希： my @questions = ( {"Why do you study here?" = "bla"},{"What are your hobbies?" = "blabla"}); 我尝试循环它： foreach (@questions) { my $key = (keys $_)[0]; $content .= "section{$key}nn$_{$key}nn";} 给我 Use of uniniti[详细]
-
perl – Moose是否有义务在打电话给更清楚后再打电话给建筑师？
所属栏目：[大数据] 日期：2020-12-16 热度：53
我想从存储在Moose类中的列表中获取元素.该类知道如何填充该列表本身.它有点像迭代器,除了我希望能够重置迭代器,并开始从该列表中获取相同的元素,就好像我还没有这样做.我打算如下打电话： while( my $slotlist = $class-get_next_slotlist ) { # do somethi[详细]
-
perl – 访问try块内分配的var抛出错误：未知代码引用类型给出错
所属栏目：[大数据] 日期：2020-12-16 热度：128
我试图弄清楚为什么会抛出这个错误.如果在try块内部发生错误而不打印10,它不应该只打印0吗？ #!/usr/bin/perluse 5.006;use strict;use warnings;use Try::Tiny;my $test = 0;try{ $test = 10; my $s = $test /2;}catch{ print $_;}print $test; 解决方法 你[详细]
-
perl – 在Mojolicious中使用AnyEvent run_cmd,我不断收到此错误
所属栏目：[大数据] 日期：2020-12-16 热度：110
在一个Mojolicious应用程序中,我正在尝试在单击链接时将ODT文件转换为 HTML.我使用shell命令“soffice”转换文件.转换文件需要一些时间.我向用户发送状态消息以通知他进度.我通过写入Mojo :: Log对象发送这些状态更新消息.然后,我在EventSource路由中订阅此[详细]
-
Perl xml简单用于解析具有相同名称的节点
所属栏目：[大数据] 日期：2020-12-16 热度：81
我有以下xml文件 ?xml version="1.0"?!DOCTYPE pathway SYSTEM "http://www.kegg.jp/kegg/xml/KGML_v0.7.1_.dtd"pathway name="path:ko01200" org="ko" entry id="1" graphics name="one" type="circle" / /entry entry id="7" graphics name="one" type="re[详细]
