-
即使在删除时,perl内存也会在哈希中膨胀？
所属栏目：[大数据] 日期：2020-12-16 热度：61
我有一个很长的perl脚本来缓存文件中的一些信息 在哈希中,每隔一段时间(这里,每100000个位置), 它打印该窗口的哈希值,然后尝试 删除散列中的大部分内容,小缓冲区除外 用于下一次迭代. 我说它试图删除内容,因为我的脚本爆炸了 在内存使用中,直到它使用所有内[详细]
-
perl – 在Marpa语法中制作0长度列表的简明方法？
所属栏目：[大数据] 日期：2020-12-16 热度：183
我是Marpa的新手.我已经尝试了几种方法来描述我的语法中的0个或更多个术语的列表,我想避免使用多个解析树. 我的语言将只有1个组件,后跟0个子组件： package = component-rule [subcomponent-rule ...] 我首先尝试的是这样的： { lhs = 'Package',rhs = [qw/c[详细]
-
perl – 为什么NET :: FTP上传文件的速度很慢
所属栏目：[大数据] 日期：2020-12-16 热度：184
我的问题是使用perl将本地文件ftp到ftp服务器.问题是上传速度如此之慢的原因.这是代码： use strict;use warning;use NET::FTP;my $ftpserver = "10.110.143.9";my $usr = "John";my $passwd = "John";sub main { my $ftp = Net::FTP-new( $ftpserver,Timeou[详细]
-
perl – 将文件的所有单独段落放在一个单独的行中
所属栏目：[大数据] 日期：2020-12-16 热度：81
我有一个包含序列数据的文件,其中每个新段落(由两个空行分隔)包含一个新序列： #exampleASDHJDJJDMFFMFAKAKJSJSJSL---SMSM-....SKSKK....SKSKJHDDSNLDJSCCAK..SJSJSL--HGAHSM---..SKSKK-.-GHH 我想得到一个文件看起来像： ASDHJDJJDMFFMFAKAKJSJSJSL---SMSM-[详细]
-
加载本地infile不允许perl mysql
所属栏目：[大数据] 日期：2020-12-16 热度：194
谁知道如何在Ubuntu上的最新 MySQL中打开加载本地infile设置？我编辑了/etc/mysql/my.cnf文件并添加了 local-infile=1 并在Perl代码中 dbConnectString=dbi:mysql:orthomcl:mysqllocalinfile=1 但仍然得到 DBD::mysql::st execute failed: The used command[详细]
-
arrays – Perl – 将数组元素句子与变量进行比较
所属栏目：[大数据] 日期：2020-12-16 热度：179
我使用grep在temporaryF文件和arrayWarning之间返回不匹配的数组 my @c =grep!${{map{$_,1}@temporaryF}{$_},@arrayWarning; 在@c里面有很多行例如： Sun Sep 30 00:05:55 fibre channel DENY foreverSun Sep 30 00:06:55 fibre channel ROOT causeSun Sep 3[详细]
-
perl – mojolicious morbo服务器默认是缓存？
所属栏目：[大数据] 日期：2020-12-16 热度：133
我从命令控制台生成了一个完整的应用程序： mojo generate app MyApp 之后我启动了开发服务器： morbo myapp 我更改了一些代码,甚至更改了默认控制器的名称,但是我看不到浏览器中的任何更改,只有重新启动morbo服务器才能工作. 这对于开发来说非常烦人. 如何[详细]
-
wget与Perl的lwp有何不同？
所属栏目：[大数据] 日期：2020-12-16 热度：79
我需要使用wget才能像爬虫一样为我的项目开发一个.但是在谷歌搜索中我看到人们建议使用LWP代替Wget.你们能告诉我为什么会这样吗？ 解决方法 如果您正在编写Perl,请使用LWP.发出HTTP请求是愚蠢的.[详细]
-
在Perl中构建XML文件：createAttribute和addChild之间的关系
所属栏目：[大数据] 日期：2020-12-16 热度：64
我正在学习使用 XML：Lib XML用于Perl中的项目,我看到了 this example. 目标是构建此XML文件： ?xml version="1.0" encoding="utf-8"?assets xmlns="http://bricolage.sourceforge.net/assets.xsd" story id="1234" type="story" nameCatch as Catch Can/nam[详细]
-
用于文本比较的Perl模块
所属栏目：[大数据] 日期：2020-12-16 热度：157
任何人都可以建议一个Perl模块,它可以比较两个字符串并返回它们匹配的程度吗？我广泛搜索CPAN,虽然有像String :: Approx和Data :: Compare这样的类似模块,但它们并不是我想要的.假设我有两个字符串：我爱你,我爱你.我想要比较这两个字符串的功能,考虑到许多[详细]
-
perl – 基于其他单元格值的Spreadsheet :: WriteExcel条件格式
所属栏目：[大数据] 日期：2020-12-16 热度：78
我正在尝试在Excel工作表中添加条件格式. 不幸的是,Spreadsheet :: WriteExcel页面上的示例太简单了,我不知道该怎么做. 我想通过RC10单元格值更改行背景颜色. 在excel中,我将添加格式化公式 =IF(RC10="xxxx";1;0) 我试过在Spreadsheet :: WriteExcel中做类似[详细]
-
在Perl中,如何将函数作为另一个函数的参数传递？
所属栏目：[大数据] 日期：2020-12-16 热度：182
我写了以下Perl类： package Menu;use strict;my @MENU_ITEMS;my $HEADER = "Pick one of the options belown";my $INPUT_REQUEST = "Type your selection: ";sub new { my $self = {}; $self-{ITEM} = undef; $self-{HEADER} = undef; $self-{INPUT_REQUES[详细]
-
perl – 如何在使用DBIx :: Class :: ResultSet的find_or_create
所属栏目：[大数据] 日期：2020-12-16 热度：76
从 find_or_create 的文档： Note: Because find_or_create() reads from the database and then possibly inserts based on the result,this method is subject to a race condition. Another process could create a record in the table after the find h[详细]
-
Perl继承 – 谁是父类的调用者
所属栏目：[大数据] 日期：2020-12-16 热度：199
我有一种情况,我需要找到一个包的调用者,我的代码看起来像： Inherited.pm： package Inherited;our @ISA = qw(BaseClass);sub new { SUPER::new();} BaseClass.pm package BaseClass;sub new { $a = caller(0); print $a} 现在我有另一个类(MyClass.pm),它[详细]
-
我应该使用哪个Perl模块来生成验证CRUD网络表单？
所属栏目：[大数据] 日期：2020-12-16 热度：76
有没有人成功使用像 DBIx::Class::WebForm或 CatalystX-CRUD这样的东西从数据库表中自动构建自我验证的webform？ 我正在想象一个模块,它读取数据库表模式,读取每列的约束,生成一些webform的抽象表示,带有错误消息的字段等.我正在使用Catalyst和Plack,它有一[详细]
-
perl – Mojolicious中的Globals和Threads用于处理不同的路径
所属栏目：[大数据] 日期：2020-12-16 热度：115
在我的Mojolicious perl代码中,我处理从远程客户端创建和监视的作业. 我将作业保存在一个哈希数组中,这是一个全局变量. 然后在PUT’/ job / create’和GET’/ job / status’的处理程序中使用它. 使用PUT’/ job / create’添加新作业时,数组会获得 在子程序[详细]
-
perl – 检查机器中安装的模块列表
所属栏目：[大数据] 日期：2020-12-16 热度：97
我已经制作了一个脚本来管理管理员需要在机器上安装的模块列表. 我试图通过下面的代码检查安装的模块.奇怪的是,它显示了未安装的机器中安装的模块 #!/usr/bin/perl -w my @module_list =('Smart::Comments','HTML::Parse'); foreach (@module_list) { eval {[详细]
-
如何使用Perl从使用AJAX的网站收集数据？
所属栏目：[大数据] 日期：2020-12-16 热度：138
这可能看起来有点倒退,但我想使用Perl(如果可能的话,使用Curl)从使用Ajax的站点获取数据以填充带有信息的 HTML shell.如何进行这些 Javascript调用以获取我需要的数据？ 该网站在这里：http://www.jigsaw.com/showContactUpdateTab.xhtml?companyId=224230[详细]
-
perl – 当有多个键时,按值对哈希进行排序
所属栏目：[大数据] 日期：2020-12-16 热度：103
我相信你通常会按值对哈希进行排序： foreach my $key (sort { $hash{$a} = $hash{$b} } (keys %hash) ) { print "$key=$hash{$key}";} 这将打印出从最小到最大的值. 现在,如果我有这样的哈希怎么办： $hash{$somekey}{$somekey2}{$thirdkey} 我怎样才能按值[详细]
-
Perl / regex日期格式转换
所属栏目：[大数据] 日期：2020-12-16 热度：182
我试图将日期格式中的字符串(例如’Aug 12/11’…)转换为’YYYY-MM-DD’,在此示例中为’2011-08-12′. 用于此转换的最佳perl / regex是什么？我能够通过解析每个并手动转换它来做到这一点..但我猜有一个更快的方法来做perl /正则表达式.谢谢. 解决方法 我建[详细]
-
找到perl污点模式错误的来源
所属栏目：[大数据] 日期：2020-12-16 热度：184
在污点模式下运行perl CGI脚本时,我收到表单错误… Insecure dependency in some_function while running with -T switch at (eval some_line) line some_other_line.Compilation failed in require at my-script.cgi line 39.BEGIN failed--compilation abo[详细]
-
perl – 为什么要提高plackup(或starman)的内存使用率？
所属栏目：[大数据] 日期：2020-12-16 热度：86
我有这个简单的PSGI应用程序(app.psgi). use strict;use warnings;my $app = sub { my $mem = `ps -o rss= -p $$`; $mem =~ s/^s*|s*$//gs; return [ 200,[ 'Content-Type' = 'text/text' ],[ $mem ]];}; 我被要求上述1000次并增加了内存使用量.根据启动服[详细]
-
Perl预编译正则表达式 – utf8
所属栏目：[大数据] 日期：2020-12-16 热度：63
当我做： use strict; use warnings;my $regex = qr/[[:upper:]]/;my $line = MyModule::get_my_line_from_external_source(); #file,db,etc...print "upper heren" if( $line =~ $regex ); perl如何知道何时必须匹配ascii大写和utf8大写？ 它是一个预编译[详细]
-
perl6 / rakudo：无法解析postcircumfix：sym <()>
所属栏目：[大数据] 日期：2020-12-16 热度：100
为什么我收到此错误消息？ #!perl6use v6;my @a = 1..3;my @b = 7..10;my @c = 'a'..'d';for zip(@a;@b;@c) - $nth_a,$nth_b,$nth_c { ... };# Output:# ===SORRY!===# Unable to parse postcircumfix:sym( ),couldn't find final ')' at line 9 解决方法 Ra[详细]
-
perl – 更常用的数据结构引用
所属栏目：[大数据] 日期：2020-12-16 热度：65
我一直在阅读一些perl513 * delta文件,我看到了Perl 5.14的一些新功能.从Perl 5.13.7开始,许多数组/哈希函数都可以工作 on array/hash refs as well.虽然这可能主要被视为语法糖,或Perl正在做你期望的事情,我想,这/是否应该改变在Perl中声明数据结构的范式？[详细]
