-
perl – 如何堆叠Plack身份验证处理程序？
所属栏目：[大数据] 日期：2020-12-16 热度：156
我想让我的Plack应用程序尝试几种不同的授权用户的方法.具体来说,检查用户是否已通过会话cookie授权,然后检查摘要式身份验证,然后回退到Basic. 我想我可以按照我希望它们被检查的顺序启用一堆Auth处理程序(Session,Digest,Basic).不幸的是,编写Plack::Middle[详细]
-
什么文本编辑器做最精确的语法突出显示Perl
所属栏目：[大数据] 日期：2020-12-16 热度：183
我知道我冒险提出一个推测性的问题,然而,受到这个 recent question的启发,我想知道哪个编辑器在语法高亮Perl方面做得最好.很清楚解析Perl的困难(不可能)我知道不会有一个完美的案例.我仍然怀疑在忠实代表中是否有明确的领导者. 注：我使用gedit,它工作正常,[详细]
-
perl – 用LDAP提取CN？
所属栏目：[大数据] 日期：2020-12-16 热度：191
我有这个代码 #!/usr/bin/perluse warnings;use strict;use Net::LDAP;use Data::Dumper;my $dn="CN=...";my $password="xxx";my $ldap = Net::LDAP-new('example.com') or die "$@";my $mesg = $ldap-bind($dn,password=$password);if ($mesg-code) { die "[详细]
-
perl – 将实用程序模块添加到CPAN分发的正确方法是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：166
我想将 Crypt::SSLeay的Makefile.PL中的一些内容分解为几个单独的类.这些类只能由Makefile.PL使用.因此,我确实想要它们 不要被PAUSE索引器索引 不要作为模块的一部分安装. 我应该像Module::Install一样把它们放进公司吗？我还应该注意什么？ 解决方法 PAUSE[详细]
-
有没有想要学习Perl的Ruby程序员的教程？
所属栏目：[大数据] 日期：2020-12-16 热度：102
我是一名 Ruby开发人员(生物信息学分析,几年没有完成Ruby on Rails),在我的业余时间里,我被赋予了一个非常简单的基于Perl的网站的责任. 虽然有很多资源可以教Perl,但我希望有一些针对Ruby程序员的东西,这样我就可以利用这两种语言的相似性.有没有这样的资源,[详细]
-
Perl的XSUB怎么会死？
所属栏目：[大数据] 日期：2020-12-16 热度：198
我为C库编写了一个Perl XS包装器,包含大约80个 功能.现在我的总体策略是用C代替错误 PL_sv_undef函数和调用Perl代码必须明确检查 是否退货不是undef. (对于某些C函数,它更复杂 因为我将他们的输出转换为HV / AV并使用空列表来报告错误.) 现在,当我开始使用该[详细]
-
perl – 我可以在模板中设置模板继承吗？ (模板工具包)
所属栏目：[大数据] 日期：2020-12-16 热度：153
我必须根据用户所处的状态显示不同的医疗表格.还有许多州共享的默认表格.这些医疗表格都是用Template Toolkit编写的,它们包含在较大的模板中.状态可作为标准化形式的变量使用. 我需要选择特定于状态的模板(如果存在),否则回退到默认模板.我最好怎么做呢？ IN[详细]
-
perl – 如何使用XML :: Twig的处理程序传递参数并返回值？
所属栏目：[大数据] 日期：2020-12-16 热度：94
我的问题是：如何将一些参数传递给 XML：Twig的处理程序,以及如何从处理程序返回结果. 这是我的代码,硬编码： counter name =“music”,report type =“month”,stringSet index = 4. 如何通过使用参数$counter_name,$type,$id来实现这一点？以及如何返回str[详细]
-
perl – 按位XOR在Bash中的字符串
所属栏目：[大数据] 日期：2020-12-16 热度：115
我正在尝试用 Bash脚本完成一项工作.我有一个字符串,我想用我的密钥进行异或. #!/bin/shPATH=/bin:/usr/bin:/sbin:/usr/sbin export PATHteststring="abcdefghijklmnopqr" 现在我如何XOR testtring的值并使用bash将其存储在变量中？ 任何帮助将不胜感激. 基[详细]
-
type-conversion – Perl6类属性中的类型强制
所属栏目：[大数据] 日期：2020-12-16 热度：121
与Perl5中的大多数内容一样,有许多方法可以创建支持其属性的自定义类型强制的类.这是一个简单的,从数组引用到哈希： #!/usr/bin/env perlpackage Local::Class { use Moo; use Types::Standard qw( HashRef ArrayRef ); has set = ( is = 'ro',coerce = 1,is[详细]
-
Perl自定义后缀或自定义后缀运算符的语法
所属栏目：[大数据] 日期：2020-12-16 热度：174
我想知道如何运行这样的操作 $T = 25 C;@specs = (273.15 K,23 bar,2.0 mol/s); 并让他们编译.我不会挑剔他们的结果是什么,或者它是如何实现的.我的目标是让传统后缀单元注释的物理量表达式编译为这些单元的perl表达式. 我想我需要使用自定义解析技术,但我更[详细]
-
在Perl Catalyst URL中用连字符替换下划线
所属栏目：[大数据] 日期：2020-12-16 热度：106
我们正在研究将CamelCase转换为驼峰和下划线到连字符的选项,并希望有人可以提供一些强有力的例子. (出于SEO原因使用连字符). 特别： 在Catalyst中使用MMORPG并厌倦了写这样的事情： sub travel_to ( $self,$c,$star ) : Path('travel-to') Args(1) { ... }[详细]
-
Perl6：如何查找文件名与模式匹配的所有已安装模块？
所属栏目：[大数据] 日期：2020-12-16 热度：103
在Perl6中是否可以找到文件名与模式匹配的所有已安装模块？ 在Perl5中,我会这样写： use File::Spec::Functions qw( catfile );my %installed;for my $dir ( @INC ) { my $glob_pattern = catfile $dir,'App','DBBrowser','DB','*.pm'; map { $installed{$_}[详细]
-
使用“覆盖”或只是简单地重新定义perl中的子例程
所属栏目：[大数据] 日期：2020-12-16 热度：146
有这个示例代码 – 2个包扩展了Some包并重新定义了func方法. use 5.014;use warnings;package Some { use Moose; use warnings; sub func { say 'func from Some'; }}package Over { use Moose; use warnings; extends 'Some'; override 'func' = sub { say[详细]
-
如何在perl中检查哈希密钥是否包含JSON？
所属栏目：[大数据] 日期：2020-12-16 热度：164
我正在向端点url发送请求,从那里我得到了 JSON形式成功的响应,但如果失败则返回某些文本. 发送请求： $data-{response} = $self-{_http}-send($myData); 所以在这之前： $resp = from_json($data-{response}); 我想检查响应是否是json格式.如何在Perl中处理[详细]
-
perl – Moose：如何获取一系列对象？特点？
所属栏目：[大数据] 日期：2020-12-16 热度：108
我开始意识到这适合初学者： package Bad;has 'arr' = ( is = 'rw','ArrayRef[Str]' );package main;my $bad = Bad-new(arr = [ "foo","bar" ]);print $bad-arr-[0],"n"; 输入特征.不过,我对特质API感到不知所措.我误解了什么吗？我能以某种方式获得此API吗[详细]
-
没有括号的Perl方法调用
所属栏目：[大数据] 日期：2020-12-16 热度：167
我的一个项目包含许多简单的方法调用.我想要 无括号地调用它们以避免混乱并且更容易进行频繁修改. 我做了以下测试. 括号(显然有效)： my $something = [1,2,3];my $dumper = Data::Dumper-new([$something]);$dumper-Indent(0);say $dumper-Dump(); 现在没有[详细]
-
Perl中的对称和传递自定义单位转换
所属栏目：[大数据] 日期：2020-12-16 热度：75
我已经定义了以下自定义单位(伪代码)： unix_days = unix_seconds/86400; nasa_seconds = unix_seconds - 946728000; 这让我直接将unix_seconds转换为unix_days或转换 unix_seconds到nasa_seconds. 但是,我无法直接将unix_days转换回unix_seconds 没有写另一[详细]
-
Perl pack()发送消息？
所属栏目：[大数据] 日期：2020-12-16 热度：127
背景 我有一个设备连接到我的机器上的串行端口是面向消息的,其中每个传入的命令消息恰好是8个16位字.首先接收每??个字的最高有效字节,然后接收最低有效字节.每个标题字是命令标识符(范围从0到255).格式定义如下： XXXX Header Word (Placeholder for 16-bit[详细]
-
perl – 窥探不同plack中间件之间的http标头
所属栏目：[大数据] 日期：2020-12-16 热度：79
如果我理解正确,PSGI应用程序将作为下一个： 从浏览器获得请求 请求通过顺序中的某些中间件“起泡”,因为它们是在构建器中定义的 请求来到我的应用程序 我的应用程序产生一些回应 这通过一些中间件再次响应泡沫 最后将响应发送到浏览器 当请求登陆我的$app时[详细]
-
perl – Moose属性初始化
所属栏目：[大数据] 日期：2020-12-16 热度：148
使用Moose时,某些属性的自定义初始化的典型方法是什么？ 例如,假设我将字符串格式的两个日期作为我班级的输入： has startdate = (is = 'ro',isa = 'Str',required = 1);has enddate = (is = 'ro',isa = 'Str'); 这些日期以字符串形式出现,但是我需要以特定[详细]
-
如何在运行时更改log4perl appender的过滤器？
所属栏目：[大数据] 日期：2020-12-16 热度：65
我一直试图弄清楚我是否可以在运行时更改appender的过滤器,我已经通过配置文件定义了. log4perl.filter.M1 = Log::Log4perl::Filter::LevelMatchlog4perl.filter.M2 = Log::Log4perl::Filter::LevelMatchlog4perl.filter.M1.LevelToMatch = INFOlog4perl.fil[详细]
-
perl – 限制滚动条长度
所属栏目：[大数据] 日期：2020-12-16 热度：98
我正在尝试使用Perl Tk创建一个简单的记事本,如GUI.我使用Scrolled小部件创建了一个带有两个滚动条的Text小部件 – 一个在右边,一个在底部.两个滚动条相遇的地方看起来像这样： 但是,我想让它看起来像微软在“记事本”应用程序中看到的.这就是我想要的： 正[详细]
-
regex – 使用r从字符串中提取电子邮件地址
所属栏目：[大数据] 日期：2020-12-16 热度：105
这些是5个Twitter用户描述.我们的想法是从每个字符串中提取电子邮件. 这是我试过的代码,它可以工作,但可能还有更好的东西. 我宁愿避免使用unlist()并使用正则表达式一次性完成.我已经看到了python / perl / php的其他问题但不是R. 我知道我可以使用grep(…,p[详细]
-
perl – 如何在pod2usage中指定宽度？
所属栏目：[大数据] 日期：2020-12-16 热度：200
我有一个小的perl模块,我正在使用Getopt :: Long,我想我也可以使用Pod :: Usage来获得漂亮的帮助显示. 经过一番摆弄后,我得到了相当好的工作,只有一个小例外.我无法设置输出的宽度. 我的终端是191个字符宽.使用perldoc Module.pm,它正确地将文档格式化为该宽[详细]
