-
Perl sub优化使用split将字符串推入csv
所属栏目：[大数据] 日期：2020-12-16 热度：98
我想优化这个Perl子： push_csv($字符串,$前页,$位置); 用于将字符串放在CSV字符串中. 例如if $string =“one,two,four”; $前页= “三包”; $位置= 2; 然后push_csv($string,$addthis,$position)将改变$string =“one,three,four”的值; sub push_csv { my[详细]
-
在哪里可以找到一本关于使用perl编写curses应用程序的好书？
所属栏目：[大数据] 日期：2020-12-16 热度：84
我一直在寻找一种编写curses应用程序的好方法.到目前为止,我已经找到了Curses :: UI和Curses :: Toolkit,但它们都没有像我希望的那样具有马力.现在我想用Curses本身编写我的应用程序,并在此过程中了解它！有没有好书/教程/等等.那会教会我用Curses和Perl编写[详细]
-
什么是用于创建和发送电子邮件的良好Perl OO界面？
所属栏目：[大数据] 日期：2020-12-16 热度：94
我正在寻找一种简单的(OO？)方法来创建和发送电子邮件. 就像是 $e = Email-new(to = "test test@test.com",from = "from from@from.com");$e-plain_text($plain_version);$e-html($html_version);$e-attach_file($some_file_object); 我发现Email :: MIME ::[详细]
-
perl – 如何让WWW-Mechanize登录Wells Fargo的网站？
所属栏目：[大数据] 日期：2020-12-16 热度：153
我正在尝试使用Perl的 WWW::Mechanize登录我的银行并提取交易信息.通过浏览器登录我的银行(富国银行)后,它会短暂显示一个临时网页,上面写着“请等待我们验证您的身份”.几秒钟后,它会进入银行的网页,我可以在那里获取我的银行数据.唯一的区别是URL包含多个附[详细]
-
Perl的Data :: Dumper中的DumpXS有什么作用？
所属栏目：[大数据] 日期：2020-12-16 热度：115
我已经浏览了 Data::Dumper的源代码.在这个包中我不明白DumpXS发生了什么.这个DumpXS有什么用？ 我已经搜索了这个,我读到它,它等于转储功能,它比转储更快.但我不明白. 解决方法 XS language是普通Perl和C之间的粘合剂.当人们想要从操作中挤出最后一点性能时,[详细]
-
如何从Perl调用PHP脚本？
所属栏目：[大数据] 日期：2020-12-16 热度：145
如何从Perl脚本调用 PHP脚本并将其输出作为变量？ 解决方法 使用 backtick operator： my $phpOutput = `/usr/bin/php-cli your-script.php`; 请注意,您可能必须编辑指向php可执行文件的路径. 如果您想将输出作为流,您也可以使用管道打开(Perl 3)： open PHP[详细]
-
如何在Perl中将int打包为32位大端？
所属栏目：[大数据] 日期：2020-12-16 热度：60
请考虑以下代码段： use strict;use warnings;my $data = "1";my $packed = pack("I",$data);open(my $file,"","test.bin") || die "error $!n";binmode $file;print $file $packed; 问题是,试图从另一种语言中读取它,这似乎是小端.是否有任何模板参数允许[详细]
-
使用带Perl的SOAP调用带参数的函数
所属栏目：[大数据] 日期：2020-12-16 热度：130
我试图通过Perl使用SOAP访问Web服务,并且在调用需要参数的服务函数时遇到问题.决定SOAP调用的XSD说, xs:complexType name="getVersion" xs:sequence/ /xs:complexType xs:complexType name="getVersionResponse" xs:sequence xs:element minOccurs="0" name=[详细]
-
如何在不在Perl中嵌套foreach语句的情况下处理嵌套循环？
所属栏目：[大数据] 日期：2020-12-16 热度：66
我有一个Perl脚本,它嵌套foreach循环,如下所示.这需要很长时间： #! /usr/bin/perluse strict;use warnings;my @sites = ('a','b','c');my @servers = ('A','B');my @data_type = ("X","Y","Z");foreach my $site (@sites) { foreach my $server_type (@serv[详细]
-
如何在Perl中操作Sybase日期时间字符串？
所属栏目：[大数据] 日期：2020-12-16 热度：136
我在Sybase表中有一个datetime字段,需要在Perl中使用它来进行一些计算(差异以确保我获取至少相距’n’分钟的记录).现在,如果我只是执行select datetime字段,Sybase将返回一个对我无用的人类可读字段.我正在寻找某种方式将其转换为基于时代的时间,这将允许我[详细]
-
perl – 为什么HMAC SHA-1会使用相同的输入返回不同的摘要？
所属栏目：[大数据] 日期：2020-12-16 热度：199
我正在尝试为Amazon S3 Web服务构建一个可用的加密签名,使用Objective C编写连接库. 我已经遇到了使用ObjC代码的HMAC SHA-1摘要问题,因此我将其放在一边,查看现有的,正在运行的Perl代码,以尝试解决摘要创建问题. 我正在测试Net :: Amazon :: S3软件包的s3ls[详细]
-
如何在内存使用量较大的Perl守护程序中处理多个套接字？
所属栏目：[大数据] 日期：2020-12-16 热度：130
我使用IO :: Socket :: INET使用Perl创建了一个客户端 – 服务器程序.我通过基于CGI的站点访问服务器.我的服务器程序将作为守护程序运行,并将接受多个同时连接.我的服务器进程占用大约100MB的内存空间(9个大型阵列,许多阵列……).我希望这些哈希驻留在内存中[详细]
-
如何使用自编译的Perl和mod_perl的供应商Apache？
所属栏目：[大数据] 日期：2020-12-16 热度：84
我想使用Apple或RedHat的内置Apache,但我想使用Perl 5.10和mod_perl.什么是最不干扰的方式来实现这一目标？我希望为供应商的Apache,dav,php等提供免费安全补丁的优势,但我非常关心我使用的Perl版本以及@INC路径中的内容.我不介意编译我自己的mod_perl. 解决[详细]
-
Rakudo x86 32位预编译安装程序/二进制文件在哪里？
所属栏目：[大数据] 日期：2020-12-16 热度：127
我想用Perl6 / Rakudo编写我的程序,它必须在32位和64位操作系统( Windows和 Linux)上运行. 但32位Rakudo安装程序将不再发布. 如何才能使用32位Rakudo Star安装程序？ 解决方法 But 32-bit Rakudo will not released any more. Rakudo本身不仅仅是64位,它在发[详细]
-
mixins – 将角色混合成可调用角色
所属栏目：[大数据] 日期：2020-12-16 热度：190
从理论上讲,你可以 mix in a role into an object in runtime.所以我试着用一个函数做到这一点： my random-f = - $arg { "Just $arg" };say random-f("boo");role Argable { method argh() { self.CALL-ME( "argh" ); }}random-f does Argable;say random-f[详细]
-
跨功能共享签名约束
所属栏目：[大数据] 日期：2020-12-16 热度：157
给定一个简单的程序来转换为基数： #!perl6my @alphabet = ('0' .. '9','A' .. 'Z','a' .. 'z').flat;sub to-digits(Int $n is copy,Int $b where 2 = * = 62 -- Str) { my @digits; while $n 0 { @digits.push(@alphabet[$n % $b]); $n = $n div $b; } @dig[详细]
-
perl – Test :: Mojo证明会导致重复记录
所属栏目：[大数据] 日期：2020-12-16 热度：197
我有以下测试脚本,它使用Test :: Mojo.当我使用perl从命令行运行它时,它输出正确.但是,当我通过“prove -v”运行它时,Mojo日志记录会被复制,其中一个不会通过“on message”进行管道传输. #!/usr/bin/env perluse strict;use warnings;use Test::More tests[详细]
-
合并数组以在perl中创建新数组
所属栏目：[大数据] 日期：2020-12-16 热度：172
将两个数组(逐列)合并到perl中的新复合数组中的方法是什么？ @数组1 carscootertruck @数组2 fourtwosix 我尝试使用以下内容： my @merged = (@array1,@array2); print @merged; 但它将两个数组合并在一列中,如下所示： carscootertruckfourtwosix 但我想要[详细]
-
perl – 如何配置Dancer2和Template Toolkit以使用不同的Stash模
所属栏目：[大数据] 日期：2020-12-16 热度：158
如何在Dancer2站点中修改Template Toolkit的默认配置以使用 Template::Stash::AutoEscaping？ 解决方法 显然,您不能编写在配置文件中创建新对象的Perl代码.相反,我会继承Dancer2 :: Template :: TemplateToolkit类,在那里进行修改,然后使用它. 如果您查看代[详细]
-
在Perl中使用带有while循环的continue块是否有优势？
所属栏目：[大数据] 日期：2020-12-16 热度：79
语法1： while {#some code }continue {#some other code } 语法2： while {#some code #some other code} SYNTAX 1是否比SYNTAX 2有任何优势？假设“某些代码”和“其他代码”在两种语法中保持相同的行集.或者它只有两种不同的样式没有编码优势. 解决方法[详细]
-
perl6 – 我可以将Perl 6程序限制为在特定实现下运行吗？
所属栏目：[大数据] 日期：2020-12-16 热度：63
dd例程是一个Rakudo特有的功能,但这是我的问题的附带.在程序中是否有办法检查实现并挽救它是否是正确的？我必须自己做吗？ die "Unsupported VM" unless $*VM ~~ m/^ 'moar' /; 也许我们需要类似Perl 5的Devel::AssertOS. 我根本不想创建特定于实现的程序,但[详细]
-
perl6 – 为什么我不能在Routine :: WrapHandle上调用meta方法？
所属栏目：[大数据] 日期：2020-12-16 热度：68
这是我之前的一个 Why is Perl 6’s unwrap method a method of Routine?的一个持续的问题,但大多是无关的. 记录wrap方法返回“一个名为WrapHandle的私有类的实例.除了泄漏一个私有类的奇怪之外,它实际上并不是返回的东西的名称.该类实际上是Routine :: Wrap[详细]
-
perl – 有没有办法告诉模块从哪个@INC路径加载？
所属栏目：[大数据] 日期：2020-12-16 热度：99
用例 我的系统管理员刚刚通过rpm安装了一个Perl模块,尽管我可以在单行中成功使用它,但我想知道模块的安装位置. 我可以明显梳理@INC中的每个路径位置,但Perl有没有办法告诉我它从哪里成功加载模块？ 解决方法 这就是％INC哈希的用途.它显示了加载模块的位置.[详细]
-
perl – 如何在不影响主包的情况下对长包名称进行别名？
所属栏目：[大数据] 日期：2020-12-16 热度：103
如果我有一个非常长的包名,我可以通过在符号表中创建一个条目来对该包进行别名： BEGIN { # Make "Alias" be an alias for "Some::Really::Long::Package"; *Alias:: = *Some::Really::Long::Package::; # Equivalent to: # *main::Alias:: = *Some::Reall[详细]
-
Promise对象内外的分号
所属栏目：[大数据] 日期：2020-12-16 热度：111
当我运行以下代码时： my $timer = Promise.in(2);my $after = $timer.then({ say "2 seconds are over!"; 'result' });say $after.result; # 2 seconds are over # result 我明白了 2 seconds are over!result 有什么作用;在那里,为什么如果我写 say "2 sec[详细]
