-
Perl：解码“乱码”unicode字符串
所属栏目：[大数据] 日期：2020-12-16 热度：141
我正在研究一个从一个软件调用的CGI脚本(我无法改变).软件提交的变量给我带来了问题,因为如果它们包含非ascii字符,它们看起来像这样： ?FFFFDEettaertextime?FFFFF0?FFFFEDslenskum?FFFFF6fum 代替 Tettaertextimeeíslenskumst?fum. 我已经尝试过使用Encode[详细]
-
perl – 大型数组上的grep或splice
所属栏目：[大数据] 日期：2020-12-16 热度：106
我有一大堆哈希值,大约0.5Gb,存储在内存中,我需要从中删除一些元素,大约10％遍布整个数组. 什么是最有效的工作,做grep,或识别需要删除的元素,并将它们拼接出去？ 谢谢, 西蒙娜 解决方法 splice可以在你描述的条件下(当它移动数组内容时)转到O(n ^ 2),而grep[详细]
-
perl to python …我该怎么办？
所属栏目：[大数据] 日期：2020-12-16 热度：156
我正在尝试学习 python,但不太了解语法.相当于： my $string='this one this that this here ';while($string=~/thiss+(.*?)s+/g){ print $1."n"; } 打印： onethathere 解决方法 试试re模块.我认为这是等效的,模拟了字符串的一些副作用： import restrin[详细]
-
在MacOSX 10.6上为perl安装GD库
所属栏目：[大数据] 日期：2020-12-16 热度：184
我一直试图为perl安装GD库,但是很久没有用了.我尝试过在互联网上找到的所有小东西,但没有.我想要获得需要GD包的Circos图. 当我尝试通过CPAN安装它时,它给了我这个错误： Running make testPERL_DL_NONLAZY=1 /usr/bin/perl/perl "-MExtUtils::Command::MM" "[详细]
-
perl – OOP /程序设计问题
所属栏目：[大数据] 日期：2020-12-16 热度：116
我们有一些第三方Perl库用于传输文件,以及使用PGP加密/解密文件等.目前,这些库使用冗余代码,并使用system()和命令行二进制文件执行上述方法. 我想重新编写这些库,在必要时使用更多模块和OOP.我目前正在讨论如何设置主库,Perl脚本将包括使用Net :: SFTP来放置[详细]
-
perl – Moose：将参数注入施工中
所属栏目：[大数据] 日期：2020-12-16 热度：144
我有一个附加验证的文件名属性.现在,在构造期间未指定文件名时,我想从配置文件中读取它. subtype 'filename' = as 'Str' = where { -r $_ } = message { "$_ is not a readable file" };has 'students_file' = ( is = 'rw',isa = 'filename',default = '' );[详细]
-
perl – 使用Getopt :: Long检测不明确的选项
所属栏目：[大数据] 日期：2020-12-16 热度：71
有没有一种简单的方法来检测Perl模块Getopt :: Long的模糊选项？ 例如： #!/usr/bin/env perl# test ambiguous optionsuse Getopt::Long;my $hostname = 'localhost';GetOptions( help = sub { print "call usage sub heren"; exit },'hostname=s' = $host[详细]
-
perl – 如何加载DynaLoader的c库？
所属栏目：[大数据] 日期：2020-12-16 热度：64
我们知道这个模块的功能是动态地将C库加载到Perl代码中. 但是它首先如何将自己的c库加载到Perl中？ 我判断它应该有自己的c库,因为我没有在DynaLoader.pm中找到函数dl_load_file,所以它必须在某个c库中…… 解决方法 Dynaloader静态链接到Perl(由Configure管[详细]
-
在perl中解码UTF-8 JSON的问题
所属栏目：[大数据] 日期：2020-12-16 热度：137
使用 JSON库处理时会破坏UTF-8字符(可能这类似于 Problem with decoding unicode JSON in perl,但设置binmode只会产生另一个问题). 我已将问题减少到以下示例： (hlovdal) localhost:/tmp/my_testcat my_test.pl#!/usr/bin/perl -wuse strict;use warnings;u[详细]
-
使用Perl和MySql,如何检查空结果？
所属栏目：[大数据] 日期：2020-12-16 热度：191
方式过于简单的例子： # Get Some data$query = $db-prepare(qq{ select * from my_table where id = "Some Value"});$query-execute;# Iterate through the resultsif ( *THE QUERY HAS RETURNED A RESULT* ) { print "Here is list of IDs "; while ($quer[详细]
-
perl – List :: MoreUtils’perg_ray()和each_arrayref()中的内
所属栏目：[大数据] 日期：2020-12-16 热度：172
我刚刚使用List :: MoreUtils中的each_array()和each_arrayref()发现了一个讨厌的内存泄漏. 这三行代码是每次运行执行四千次子程序的一部分. 我的目标是为散列中已有的值提供适当的格式.我有一个固定数量的散列键和每个散列键的格式字符串. my %hash = ();#[详细]
-
Perl：分配[]或{}贵吗？如何快速重置数字/关联数组？
所属栏目：[大数据] 日期：2020-12-16 热度：102
我有 a card game – 用Perl编写并且只有很少的对象,比如这个： package PlayingTable;our (%Games,$Num);sub new { my $pkg = shift; my $game = { ID = ++$Num,PHASE = WAITING,KIBITZERS = [],PLAYERS = [],INFO = '',RED5 = '',TALON = [],TABLE = {},RO[详细]
-
LWP与libwww-perl相同？
所属栏目：[大数据] 日期：2020-12-16 热度：120
我使用 CPAN工具安装 LWP,但失败了.然后我使用了PPM工具.我在PPM中找不到LWP,但只能找到libwww-perl(LWP).它们的名称是否相同？ 我正在使用Strawberry Perl. 解决方法 是的,它们或多或少都是一样的. libwww-perl 是分发的名称, LWP 是该分发中的主模块的名称[详细]
-
如何在Perl中捕获并重新抛出错误？
所属栏目：[大数据] 日期：2020-12-16 热度：50
假设我有一个模块Bar,它是模块Foo的子类包装器.我希望调用Bar的方法来模仿Foo – 甚至是致命的错误.到目前为止,很容易;我只是称之为SUPER方法. sub stuff { # Do stuff here SUPER::stuff(@_); # Do more stuff here} 但是,让我们说我想抓住,记录并重新抛出S[详细]
-
perl – Shell脚本和自动化指南
所属栏目：[大数据] 日期：2020-12-16 热度：180
我目前正在研究一些脚本,这些脚本可以自动化很多东西并且中等大小.我已经开始关注某些事情,使我的脚本具有通用性和可移植性,如： 管理员登录以安排脚本 使用绝对路径 使用配置文件 在开发时使用write-host并在部署(调试)时切换到日志记录 我最感兴趣的是知道[详细]
-
perl – CPAN模块的问题
所属栏目：[大数据] 日期：2020-12-16 热度：86
我试过安装WWW :: Mechanize模块 'cpan WWW::Mechanize' 我在’使用WWW :: Mechanize’行中没有出现任何错误,这意味着它找到了文件,但在尝试使用以下方法实例化它时： $m = WWW::Mechanize-new(); 我遇到以下问题： 无法在@INC中找到HTTP / Config.pm(@INC包[详细]
-
perl – 我可以避免引用解除引用地图操作返回的哈希吗？
所属栏目：[大数据] 日期：2020-12-16 热度：142
我有一系列哈希.我想要根据另一个键的唯一性在这些哈希的键中列出值. my @obs = ({ value = 'three',id = 3},{ value = 'one-2',id = 1},{ value = 'one',id = 1});# This works,prints "onenthree"say for values %{{ map { $_-{id} = $_-{value} } @obs }[详细]
-
perl – 为什么DBIx :: Class不能创建多对多访问器？
所属栏目：[大数据] 日期：2020-12-16 热度：155
虽然不创建表之间的 creating a schema from a database多对多关系. 这是一个主要问题吗？ 是否有可能从表结构中检测到存在多对多关系并自动在模式类中创建相应的代码？ 解决方法 开发此类代码的问题在于,包含多个引用的许多表不是多对多表,并且由于其他原因[详细]
-
perl – 剥离自定义HTTP标头字段
所属栏目：[大数据] 日期：2020-12-16 热度：199
我的公司销售一个基于LAMP(其中P = Perl,而不是 PHP)应用程序作为设备部署.客户正在尝试将他们的SiteMinder SSO与我们的应用程序集成,以便我们的设备位于运行SiteMinder Apache插件的代理后面,该插件充当网守.对于我们的应用程序通过SSO对用户进行身份验证,[详细]
-
perl – 如何在选项的子中访问Getopt :: Long选项的值？
所属栏目：[大数据] 日期：2020-12-16 热度：75
我的目标是使用–override = f选项来操纵其他两个选项的值.诀窍是弄清楚如何在GetOptions检测到命令行上存在选项时执行的子中引用选项的值(与= f指示符中的f匹配的部分). 我是这样做的： $cat t.pl#!/usr/bin/perluse strict;use warnings;use Getopt::Long;[详细]
-
perl -p -i -w -e
所属栏目：[大数据] 日期：2020-12-16 热度：121
1 cat 1 .txt 2 22222222222222222222222222222222222 3 kllk 4 nciuwbufcbew`````` // .]];s[[..; 5 klklkl 6 7 x,dsncdk,;l,ex 8 xw,eocxmcmck 9 22222222222222222222222222222222222 10 11 perl -p -i.bak - w -e ‘ s/1/k/g ‘ 1 .txt 12 13 cat 1 .txt[详细]
-
Perl Dancer – JSON序列化程序和JSON数组
所属栏目：[大数据] 日期：2020-12-16 热度：177
我在使用内置的用于 JSON和 JSON数组的Perl Dancer序列化程序时遇到问题. 我在app.pl文件中激活了序列化程序： #!/usr/bin/env perluse Dancer;use main;set serializer = 'JSON';dance; 在模块本身中,我测试了JSON解析,如下所示： post '/test/' = sub { my[详细]
-
Perl grepping类似的单词
所属栏目：[大数据] 日期：2020-12-16 热度：195
我的perl脚本中的某个变量的输出低于输出 – 输出实际上来自一些可执行文件,我在这种情况下存储在变量$retval中 – 下面的示例 my $retval=`imp_vol -u 110.5 -s 110.9 -p 0.005 -t 0.041 -c 1` Black Scholes NVol = 1.19711Black Scholes NDelta = 0.04945[详细]
-
为什么Perl中的反引号运算符在Windows上没有引号时无效？
所属栏目：[大数据] 日期：2020-12-16 热度：198
我对Perl很新,所以请原谅我这个问题是微不足道的. 在工作中,我有一个创建脚本的任务,当其他开发人员错过任务的截止日期时,该脚本将发送电子邮件.整个事情必须在Windows上工作,使用Strawberry Perl,我使用windows命令date / T来执行日期检查.我使用反引号运算[详细]
-
Perl获取每个对象的函数
所属栏目：[大数据] 日期：2020-12-16 热度：136
我是Perl的新手,所以我不知道它是否可行. 我有兴趣创建一个可以捕获所有调用的模块. 它的用法如下： $object = new Foo;$object-blah; 函数名称(所以在这种情况下“blah”会被Foo咳嗽并作为字符串返回到屏幕). 我不知道怎么做的是将被调用的函数名称作为字符[详细]
