-
perl – 哈希的共享Hashref可能吗？
所属栏目：[大数据] 日期：2020-12-16 热度：185
我试图使用哈希的hashref存储持久字段和更改该字段的时间戳. 它需要共享,因为我有2个线程需要访问它,虽然只有一个设置值. 这是我当前的代码,其中包含几个注释掉的变体： my $status = {};share($status);sub get_status { my($raid) = @_; return $status-{$[详细]
-
perl – parallel :: forkmanager …如何在退出时传递2个变量
所属栏目：[大数据] 日期：2020-12-16 热度：53
我使用Parallel :: ForkManager将一些变量从子项传递给父项.我能通过$var …我怎么通过更多？ (再次感谢Hobbs帮助我做到这一点) use Parallel::ForkManager;my $pm=new Parallel::ForkManager(10); my(@cusips,@bad);$pm-run_on_finish(sub{my($pid,$exit_co[详细]
-
perl – 如何引入正则表达式操作以匹配Catalyst URI中的第一个元
所属栏目：[大数据] 日期：2020-12-16 热度：80
背景： 我在Catalyst中使用CRUD框架,为给定数据库中的所有表自动生成表单和列表.例如： / admin / list / person或/ admin / add / person或/ admin / edit / person / 3都会动态生成适合表’person’的页面或表单. (换句话说,Admin.pm有动作编辑,列表,添加,[详细]
-
Perl：你如何将其转换为子程序？
所属栏目：[大数据] 日期：2020-12-16 热度：78
子程序的目的是检查传入的其他标量中是否包含单词pasttense,然后执行替换并返回该替换. 原始工作代码： if ($sentences[$i] =~ /b$pasttense/i and $firstword[1] =~ /b$pasttense/i) { $subsentences[$i] =~ s/$pasttense/ **$pasttense** /ig; } elsif ([详细]
-
perl – 重写对象属性 – 使用Moose的最佳方法吗？
所属栏目：[大数据] 日期：2020-12-16 热度：119
让我们看看SO问题输入机器人预测,显然是基于问题标题发布的,是否会实现： The question you’re asking appears subjective and is likely to be closed. 使用Perl / Moose,我想弥合商家文章代表的两种方式之间的不匹配.让文章有名称,数量和价格.表示的第一[详细]
-
解析perl中的xml文件后,获取特殊字符
所属栏目：[大数据] 日期：2020-12-16 热度：95
我正在解析一个xml文件将其存储在数据库中[使用perl].在解析时我得到特殊字符,如 – [amp; lt; gt;]. 这些特殊字符的含义是什么？ 解决方法 见 here on wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references[详细]
-
perl在两个不同的平台上做不同的事情
所属栏目：[大数据] 日期：2020-12-16 热度：176
在Mac OSX上,这适用于perl perl -vThis is perl,v5.8.9 built for darwin-2levelperl -e 'sub test {}' 但在Solaris上 perl -vThis is perl,v5.8.8 built for i86pc-solaris-thread-multiperl -e 'sub test {}'Illegal declaration of anonymous subroutine[详细]
-
使用SWIG将二进制数据移入/移出Perl
所属栏目：[大数据] 日期：2020-12-16 热度：61
我试图让我很容易在Perl和我的C库之间移动二进制数据. 我创建了一个c结构来处理binary_data： struct binary_data { unsigned long length; unsigned char *data;}; 在我的SWIG界面文件中,我有以下内容： %typemap(in) binary_data * (binary_data temp) { S[详细]
-
perl – 如何在Moose强制中访问我的对象的属性？
所属栏目：[大数据] 日期：2020-12-16 热度：103
我想将一个Str强制转换为我的Moose类中的属性的DBIx :: Class :: Row对象.为此,我需要在DBIC模式上执行查找以查找行.如果查找失败,我想将错误推送到ArrayRef属性. 我目前将模式作为属性传递给我的类. 有了强制,我似乎无法访问该对象,因此我无法推送错误的arr[详细]
-
perl信号INT的问题
所属栏目：[大数据] 日期：2020-12-16 热度：61
我在 windows activestate perl 5.8上有以下perl代码 $SIG{INT}=clean; ... sub clean { print 'cleaning...'; ... ... exit 0; } 但是当我尝试通过Ctrl ^ c关闭我的程序时它根本没有进入子清洁可能有人帮助我为什么会错过什么？ 解决方法 似乎Windows不像U[详细]
-
如何在Perl 6中控制循环的嵌套？
所属栏目：[大数据] 日期：2020-12-16 热度：88
这个程序应该写出三元组总和小于或等于7的三元组： for ((1..7) X (1..7)) X (1..7) { .say if [+] $_ = 7;} 我认为它只会循环遍历列表的顶层(然后代码会在循环体中出现错误,但它不是重点),但它只是循环遍历各个数字,这很令人沮丧:(有没有避免它的巧妙技巧？[详细]
-
Perl – 汇总文件中的数据
所属栏目：[大数据] 日期：2020-12-16 热度：132
什么是从Perl中有大约200万条记录的文件中汇总数据的最佳方法？ 例如：这样的文件, ABC | XYZ | DEF | EGH | 100 ABC | XYZ | DEF | FGH | 200 SDF | GHT | WWW | RTY | 1000 SDF | GHT | WWW | TYU | 2000 需要在前3列中总结如下, ABC | XYZ | DEF | 300 SD[详细]
-
perl – 如何让DBD :: Pg可靠地超时？
所属栏目：[大数据] 日期：2020-12-16 热度：133
为什么在$sth-执行完成之后,此代码才执行信号处理程序？更重要的是,我该如何解决？ #!/usr/bin/perluse strict;use warnings;use DBI;use Sys::SigAction qw( set_sig_handler );my $dbh = DBI-connect('dbi:Pg:dbname=dc');eval { my $h = set_sig_handler([详细]
-
如何使用Perl通过Lotus Notes API打开收件箱？
所属栏目：[大数据] 日期：2020-12-16 热度：174
我可以使用Perl打开Lotus notes api,没有错误,我也可以获得包含Inbox的视图列表,但是当我尝试从该视图中读取消息时它看起来是空的？我可能做错了什么？ (事实上??,这些代码之前的工作似乎可能会在注释方面发生变化) 代码结果如下： View的名称是：($Inbox)的[详细]
-
设置Perl模块结构
所属栏目：[大数据] 日期：2020-12-16 热度：157
我无法弄清楚如何以面向对象的方式构造Perl模块,因此我可以让一个父模块具有多个子模块,并且只有所需的特定子模块才会被调用脚本加载.例如,我希望能够像这样进行方法调用： use Example::API; my $api = Example::API-new();my $user = {};$user-{'id'} = '1[详细]
-
ctags支持MooseX :: Declare？ (Perl的)
所属栏目：[大数据] 日期：2020-12-16 热度：70
如何获取ctags为MooseX :: Declare方法,类,属性等生成标签？ 解决方法 以下是可以添加到ctags语法文件/命令的正则表达式列表： http://www.abstractwankery.com/2010/02/moosexdeclare-textmate-and-tmcod/94[详细]
-
perl – 如何读取文件并用名称替换值
所属栏目：[大数据] 日期：2020-12-16 热度：97
我有一个文件,我将称之为源ID.我想读取该文件,并根据源ID为其添加名称,例如15431 = MyTV8.我有一个列出源ID和名称的文件,但我不知道如何读取原始ID并将通道映射文件中的名称添加到包含源ID的文件中. 我查询的源ID的一小部分示例 134310411241291141200120550[详细]
-
perl – 如何在PPI中找到注释,然后在其前面插入代码？
所属栏目：[大数据] 日期：2020-12-16 热度：197
我试图在perl源文件中找到注释#VERSION.然后我想在评论之前插入版本(或代替无关紧要).有人能用 PPI告诉我正确的方法吗？ 之前 use strict;use warnings;package My::Package;# VERSION... 后 use strict;use warnings;package My::Package;our $VERSION = 0.[详细]
-
使用Perl和SOAP Lite消耗.Net Web服务
所属栏目：[大数据] 日期：2020-12-16 热度：196
我正在尝试使用perl和SOAP Lite来使用.Net Web服务. 当我在.Net客户端中使用Web服务时 – 它会将以下内容发布到.asmx端点： ?xml version="1.0" encoding="utf-8"?soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"xmlns:soapenc="http:[详细]
-
Perl Treebuilder HTML解析,似乎无法解析为DIV,得到错误“在模式
所属栏目：[大数据] 日期：2020-12-16 热度：114
我是新手使用Perl treebuilder模块进行 HTML解析,无法弄清楚这个问题是什么..我花了几个小时试图让它工作并看了几个教程但我仍然得到这个错误：“在模式匹配中使用未初始化的值”,在我的代码中引用此行： sub{ $_[0]- tag() eq 'div' and ($_[0]-attr('class[详细]
-
评估perl中的期望
所属栏目：[大数据] 日期：2020-12-16 热度：120
我在perl中使用Expect来连接远程机器并执行某些功能.示例代码就像 $outfile="ls -lrt";$outfile1="output";$exp-expect(30,-re,".*bash-.*" = sub{$exp-send("$outfile2 $outfile r")});$exp-expect(60,".*bash-.*" = sub{$exp-send("$shayam $Ram r")});[详细]
-
是否有可以将一个主Pod文件拆分为多个视图的Perl模块？
所属栏目：[大数据] 日期：2020-12-16 热度：82
我想为perlop和perlopref写一个Pod文件.我的直觉就是这样说 =head1 PRECEDENCEblah=head1 OPERATORS=head2 "X"=for shortThe double quote circumflex operator surrounds an interpolating string.See Lperlop/"X".=for long-head3 Descriptionblah blah bl[详细]
-
如何摆脱Perl的GD :: Graph中的饼图轮廓？
所属栏目：[大数据] 日期：2020-12-16 热度：104
我正在尝试使用 GD::Graph创建一个没有轮廓的饼图.令人沮丧的是我可以控制轮廓的颜色： accentclr = 'black', 所以我希望通过这样做可以完全摆脱轮廓： accentclr = undef, 然而,当我这样做时,轮廓确实消失了,但饼图的其余部分也是如此,只剩下标签！ 这是我[详细]
-
如何用我的Perl for Windows应用程序打包sqlite？
所属栏目：[大数据] 日期：2020-12-16 热度：185
我需要在 Windows机器上为Perl设置sqllite.但是 – Perl可能是从中央服务器在网络上运行的,我不知道在我的脚本初始运行时可用的模块. 我可以保证Perl 5.8(activestate)或Perl 5.10(草莓). 因此,我需要打包sqlite项目目录中关联的Perl模块本身.有了Goggled,我[详细]
-
在perl中打开文件时,如果文件名为“ – ”,如何自动使用STDIN /
所属栏目：[大数据] 日期：2020-12-16 热度：182
我有一个带有输入和输出文件参数的perl程序,我想支持使用“ – ”指定标准输入/输出的约定.问题是我不能只打开文件名,因为open(我的$input,’',' - ')打开一个名为 - 的文件,而不是标准输入.所以我必须做这样的事情： my $input_fh;if ($input_filename eq '[详细]
