-
我怎样才能在Perl中使用大字符？
所属栏目：[大数据] 日期：2020-12-16 热度：196
在 Windows 32位平台上,我必须阅读一些数字,这是意料之外的,可以有99,999,999的值,但不多.试图sprintf(“？1d”,$myNum)他们输出溢出：-2147483648. 我无法使用BigInt模块,因为在这种情况下我应该深入更改代码.我无法将格式管理为字符串,sprintf(“？1s”,$n[详细]
-
perl – 如何将函数返回值从引用转换为数组？
所属栏目：[大数据] 日期：2020-12-16 热度：119
我在Perl中有这个代码： sub f { return [1,2,3]}print f; 函数f返回对数组的引用,如何在没有附加变量的情况下将返回值转换为数组,就像这里一样？ sub f { return [1,3]}$a = f;print @$a; 解决方法 你只是想这样做吗？ print @{ f() }; 您可以取消引用任何[详细]
-
Perl monkey-patching是否允许您查看修补程序包的范围？
所属栏目：[大数据] 日期：2020-12-16 热度：157
我正在使用 “How can I monkey-patch an instance method in Perl?”开头给出的技术修补程序包.我遇到的问题是原始子程序使用了一个包级别的变量,修补的子程序似乎无法访问,完整路径规范或隐式使用. 有没有办法以这种方式获取用于修补子例程的数据范围？ 解[详细]
-
如何在Perl中获取当前登录用户的主要组和其他组？
所属栏目：[大数据] 日期：2020-12-16 热度：179
根据 this site我可以简单地写 $user = getlogin(); 但是组处理函数似乎无法接受用户名/ userid作为参数.我是否应该遍历所有/ etc / group文件行并从中解析组名？ 解决方法 不需要解析系统文件,在类UNIX操作系统上,我会使用内置接口来访问getpwuid和getgrgid[详细]
-
如何将会话管理添加到简单的Perl CGI网页？
所属栏目：[大数据] 日期：2020-12-16 热度：190
我有一个简单的网页,到现在为止不需要任何登录.它是用Perl CGI编程的. 我想知道添加会话支持的步骤,以便获得登录信息. 我不想要非常复杂的方法,因为网页非常简单. 另外,我想要一些关于支持Perl会话所需的技术/库的建议. 解决方法 我使用CGI :: Session很多很[详细]
-
在Perl中清理策略模式的实现
所属栏目：[大数据] 日期：2020-12-16 热度：118
如何在Perl中编写策略模式的干净实现？我希望以一种利用Perl功能的方式来实现. 解决方法 这实际上取决于你所说的“干净实施”.与任何其他语言一样,您可以使用具有多态性的Perl对象系统为您执行此操作.但是,由于Perl具有第一类函数,因此通常不会显式编码此模[详细]
-
regex – Perl程序,可以有效地处理目录中的500,000个小文件
所属栏目：[大数据] 日期：2020-12-16 热度：53
我每晚都在处理一个大目录.它每晚累积大约100万个文件,其中一半是我需要根据内容移动到不同目录的.txt文件. 每个.txt文件都是以管道分隔的,只包含20条记录.记录6是包含确定将文件移动到哪个目录所需的信息的记录. 记录示例： A|CHNL_ID|4 在这种情况下,文件[详细]
-
具有Undef的Perl三元运算符
所属栏目：[大数据] 日期：2020-12-16 热度：172
我遇到了让三元运算符使用undef工作的问题. 我的原始代码有效： my $qr = [ {IP='x.x.x.51',Testnet='bos-portal-legacy',Owner='Amund',Email = 'bosemail'},{IP='x.x.x.52',Testnet='bos-portal-2',Email = 'boemail2'},{IP='x.x.x.53',{IP='x.x.x.54',Tes[详细]
-
perl6 – 如何在Ctrl D输入上退出Perl 6脚本？
所属栏目：[大数据] 日期：2020-12-16 热度：117
loop { my $word = prompt ' ' ; say $word;} 什么是正确的方法让它退出if / when而不是打印一个单词我按Ctrl D？ 解决方法 我对Perl 6的熟悉程度不如Perl 5,但Perl 5方法似乎有效： loop { my $word = prompt ' ' ; last if not defined $word; say $word;}[详细]
-
为什么CPAN上还提供了一些核心Perl模块？
所属栏目：[大数据] 日期：2020-12-16 热度：70
例如,我认为Encode模块被认为是一个核心模块,随每个Perl副本一起提供.它在Perldoc上有自己的页面： https://perldoc.perl.org/Encode.html …但它也可以在CPAN上使用： http://search.cpan.org/~dankogai/Encode-2.92/Encode.pm 从浏览这两个文档开始,它们似[详细]
-
perl – 确定是否已从基类重写基类子例程
所属栏目：[大数据] 日期：2020-12-16 热度：129
这个问题困扰了我,但我已经解决了问题,并将发布我的答案. 我有一个名为Parent的基类 亲 package Parent;sub new { my $c = shift; my $s = {},bless $s,$c; return $s;}sub who { return "parent";}1; 这个父类暴露了一个方法;谁. 我写了两个孩子课：Child和[详细]
-
在另一个脚本中重用perl脚本中的sub
所属栏目：[大数据] 日期：2020-12-16 热度：148
我有两个perl脚本.两者都没有“包”关键字或任何东西.我有一个sub(以及一些自由浮动代码)我想在另一个脚本中使用,而不需要在进程中运行自由浮动代码. A.plsub my_sub { # do something}# do something elsemy_sub();# do something else B.plrequire A.pl; #[详细]
-
是否可以在Perl中启用/禁用基于ARGV的使用严格/警告？
所属栏目：[大数据] 日期：2020-12-16 热度：196
是否可以在Perl中启用/禁用基于ARGV的使用严格/警告？ 我尝试了这段代码,但它不起作用.我认为它应该在’$x = 2’的行中产生警告错误; # Do this at the beginning of the script BEGIN { if ( $ARGV[0] =~ /^Y$/i ) { use strict; use warnings; } else { no[详细]
-
对perl数组使用grep和sed等unix命令
所属栏目：[大数据] 日期：2020-12-16 热度：198
我如何grep perl数组中的某些模式并使用sed命令并将输出保存为另一个数组,如下所示 my @modifiedfiles=`echo @files | grep -E '(DataFiles|Pfgas|Startups)' | sed -e 's/.*something//g; s/#.*$//g;'` 解决方法 你没有 – 这没有意义:) Perl有grep和map内[详细]
-
perl – Mojolicious – 无法解析RESTful中的JSON
所属栏目：[大数据] 日期：2020-12-16 热度：163
我不可能在Mojolicious中解析 JSON.我更新了Mojolicious并在使用之前使用了代码,但不推荐使用JSON- new. my $json = Mojo::JSON-new;my $user_request = $json-decode($c-req-body);my $err = $json-error; 从教程中,我发现已经添加了$self- req- json,但所[详细]
-
如何将文件名传递给perl中的子程序？
所属栏目：[大数据] 日期：2020-12-16 热度：188
我正在写一个perl脚本,我想将输出文件的文件名传递给子程序. 我试过这样的事情： use strict;use warnings;test("Output.dat");sub test { my $name = @_; open(B,"$name") or die "Failure n"; print B "This is a test! n"; close(B); } 我将多次使用子[详细]
-
perl – 来自对象的HASH元素在单个字符串中返回
所属栏目：[大数据] 日期：2020-12-16 热度：67
我有一个带有函数getHash()的模块Module.pm,正如您所猜测的那样,返回数据的散列)).我们都知道如何使用标准模型获取哈希的元素形式： use Module;my $m = new Module;my %hash = $m-getHash();print $hash{needed_element's_key}; 一切都好. 但是,如果你需要[详细]
-
数组 – 旧版本的Perl是否有不同的数组索引规则？
所属栏目：[大数据] 日期：2020-12-16 热度：89
我目前正在努力将1996/8年编写的一些Perl代码翻译成 Python. 我是在想.当前的Perl似乎对数组有基于0的索引(即第一个元素是： Array1[0] 例如,最后一个元素是 Array1[$#Array1-1] (我认为……更好地理解Perl而不是写它) 只是想知道在早期版本中他们是否有第一[详细]
-
为什么简单的XOR不能在Perl中运行？
所属栏目：[大数据] 日期：2020-12-16 热度：63
my $list = "1 3";my @arr = split " ",$list;my $c = $arr[0] ^ $arr[1];print $c,"n"; 以上是一个异常的角色. 应该给出答案为2,因为1 XOR 3是2. 解决方法 ^考虑其操作数的内部存储格式以确定要执行的操作. perl -E"say( 1^3 )"2perl -E"say( '1'^'3' )"?[详细]
-
perl – 如何对if条件中的值求和？
所属栏目：[大数据] 日期：2020-12-16 热度：187
我的输出有很多值.但总结特定的价值观. 我从这个脚本的答案 # $ans 3.8015.38116.263.80118.33.805.1515.6366.732...my $sum;if($ans = 8){ $sum += $ans; print "$ansnnn";}print "Total value below (8) : $sum"; 如何在if条件之外的8以下求答？我该怎[详细]
-
是否有可能在perl中使用散列哈希(而不是hashrefs)？
所属栏目：[大数据] 日期：2020-12-16 热度：83
在perl中,可以使用哈希,例如我的％a =(2,“两个”);以及hashrefs,例如我的$b = {2 = “二”}; 每当我创建一个多维哈希时,顶级哈希的值总是hashrefs,即在它们上调用ref()会返回“HASH”.是否有可能只有哈希的散列,没有额外的间接水平？ 另外,当使用哈希散列时[详细]
-
Perl-如何根据不同的字符长度分割一行
所属栏目：[大数据] 日期：2020-12-16 热度：55
我想根据多个字符长度拆分一行,并将它们存储在单独的变量中. 例如：$myString =“米奇24美国活着 这里前12个字符是用户名,接下来2个是年龄,接下来23个字符是国家,接下来7个是状态. 那么有没有办法保存它们使用split()或s ///单独存储它们？ 谢谢, 解决方法[详细]
-
arrays – Perl按散列数组中哈希值或散列哈希值排序
所属栏目：[大数据] 日期：2020-12-16 热度：147
谁能告诉我这里我做错了什么？我已经尝试了几乎所有可能的数组/散列类型和排序查询的组合,我能想到并且似乎无法使其工作. 我试图通过value1对哈希引用进行排序： my $test = { '1' = { 'value1' = '0.001000','value2' = 'red'},'2' = { 'value1' = '0.00500[详细]
-
perl – 如何在使用“require”时导入变量？
所属栏目：[大数据] 日期：2020-12-16 热度：107
这不起作用(下面的错误消息).我怎么能做这个工作？ #!/usr/bin/env perluse warnings;use strict;use 5.10.1;sub routine { require FindBin; FindBin::-import( '$RealBin' ); say $RealBin;}routine(); 给出这个输出 Global symbol "$RealBin" requires ex[详细]
-
perl6 – 创建任意分组的子列表
所属栏目：[大数据] 日期：2020-12-16 热度：104
我正在尝试根据每个字符串的第一部分(即,如果有选项卡,则在第一个选项卡之前的部分或如果没有选项卡的整个字符串)对字符串列表中的多个项目进行分组. 这有效： use Test;my @lines = "AtFoo","AtBar","B","AtBaz","B" ;my @expected = ["AtFoo","AtBar"[详细]
