-
在这个perl代码中,$_被修改在哪里？
所属栏目：[大数据] 日期：2020-12-16 热度：146
以下perl代码在PerlCritic中生成警告(由Activestate生成)： sub natural_sort { my @sorted; @sorted = grep {s/(^|D)0+(d)/$1$2/g,1} sort grep {s/(d+)/sprintf"%06.6d",$1/ge,1} @_;} 生成的警告是： Don’t modify $_ in list functions More info ab[详细]
-
如何从perl将regexp转换为python
所属栏目：[大数据] 日期：2020-12-16 热度：69
在Perl中： if ($test =~ /^id:(.*)$/ ) { print $1; } 解决方法 在Python中： import retest = 'id:foo'match = re.search(r'^id:(.*)$',test)if match: print match.group(1) 在Python中,正则表达式可通过 re library获得. 字符串前面的r表示它是raw stri[详细]
-
为什么Perl不能打开我的文件？
所属栏目：[大数据] 日期：2020-12-16 热度：100
我是Perl编码的新手. 我在执行一个小脚本时遇到问题： open无法找到我作为参数提供的文件. 该文件可用： ls -l DLmissing_months.sql-rwxr-xr-x 1 tlmwrk61 aimsys 2842 May 16 09:44 DLmissing_months.sql 我的Perl脚本： #!/usr/local/bin/perluse strict;[详细]
-
如何在Perl中的for循环中重命名文件
所属栏目：[大数据] 日期：2020-12-16 热度：84
我正在运行Perl脚本并尝试重命名文件,如下所示. 我有一个包含其他非相关文件的文件夹中的* .ru.jp文件列表.我想用一个我作为计数器变量获得的数字重命名. 在Bash中,我会这样做…… for i in $(ls *.ru.jp); do x=${i%%.*}; mv $i "$x"t"$counter".ru.jp ;don[详细]
-
如何从Perl bignum中获取数字？
所属栏目：[大数据] 日期：2020-12-16 热度：166
我在Perl中有一个非常大的数字.我用“bignum”.如何从这个大数字中提取单个数字.例如,如果我有一个这样的数字以及从最后得到第三个数字的内容： 1029384710985234058763045203948520945862986209845729034856 - 8 解决方法 bignums是透明可用的,所以这将工作[详细]
-
如何从Perl访问Intranet网页？
所属栏目：[大数据] 日期：2020-12-16 热度：87
我正在编写一个Perl脚本来访问具有身份验证的Intranet页面. 是否有任何Perl模块可以访问Intranet网页？ 解决方法 一般来说,处理它的方法是使用WWW :: Mechanize.首先,安装WWW :: Mechanize :: Shell,然后运行： perl -e 'use WWW::Mechanize::Shell; shell'[详细]
-
是否有Perl的全国电话号码验证器？
所属栏目：[大数据] 日期：2020-12-16 热度：87
我正在使用Perl进行Web开发.我需要为所有国家/地区进行电话号码验证.是否有开源Perl模块可以执行以下操作？ 例如：country = Malaysia,如果用户输入的电话号码= 60127008007,验证后返回,这是马来西亚的有效手机号码,其中： 在马来西亚当地,我们直接致电：012[详细]
-
如何从Perl脚本中捕获系统命令的stdin和stdout？
所属栏目：[大数据] 日期：2020-12-16 热度：54
在Perl脚本的中间,有一个我想要执行的系统命令.我有一个字符串,其中包含需要输入stdin的数据(该命令只接受来自stdin的输入),我需要捕获写入stdout的输出.我已经看过在Perl中执行系统命令的各种方法,open函数似乎是我需要的,除了它看起来我只能捕获stdin或std[详细]
-
构造函数 – Perl 6：如何检查`new`是否存在无效参数？
所属栏目：[大数据] 日期：2020-12-16 热度：103
检查是否将无效参数传递给构造函数方法new的最简单方法是什么？ use v6;unit class Abc;has Int $.a;my $new = Abc.new( :b(4) ); 解决方法 ClassX::StrictConstructor module应该有所帮助.使用zef install ClassX :: StrictConstructor安装它并像这样使用它[详细]
-
perl – ％s是唯一允许printf正确显示大整数的格式吗？
所属栏目：[大数据] 日期：2020-12-16 热度：194
我只花了一个时间来确定我的大整数是好的,并且 printf ％d /％u不能胜任显示它的任务： use strict;use warnings;use bigint;use List::Gen;*factorial = do {use bigint; [..*] 1,1..-code};my $value = factorial(32);printf "%dn",$value; # -1printf "%[详细]
-
perl – 点击“打印”声明的开头？
所属栏目：[大数据] 日期：2020-12-16 热度：165
我在使用Perl脚本时遇到了一些奇怪的事情.这是关于使用一个点给出不同的结果. perlop 没有任何改变,或者我只是吹过它.我在看 Operator Precedence and Associativity print "I'd expect to see 11x twice,but I only see it once.n";print (1 . 1) . "3";pr[详细]
-
数组 – perl中的|| = []是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：122
以下数组@ {$violated {$desc} || = []}在下面的子程序中意味着什么？ 据我所知,@ {$violated {$desc}}是$violated {$desc}引用的匿名数组. sub not_in_file_ok { my ($filename,%regex) = @_; open( my $fh,'',$filename ) or die "couldn't open $filename[详细]
-
perl – 字符串的分割标题
所属栏目：[大数据] 日期：2020-12-16 热度：158
我想重新格式化下面的行.请参阅输入示例和所需输出.我一直在使用awk而没有找到正确的解决方案 输入： 1-672762TGAGGTAGTAGGTTGTATGGTT2-240457TGAGGTAGTAGGTTGTGTGGTT3-130231TAGCAGCACGTAAATATTGGCG4-116485TGAGGTAGTAGGTTGTATAGTT 输出(需要以制表符分隔)[详细]
-
perl – 这是数组,哈希还是标量？
所属栏目：[大数据] 日期：2020-12-16 热度：151
我是Perl的新手.我知道$是标量,@数组和％哈希. 我见过类似的代码(我用内存写的)： $var = { ???????????key =值, ???????????anotherkey = anothervalue } 这是什么？ 解决方法 这声明了一个标量变量$var,其中包含对匿名哈希的引用. 引用(有点像指针)总是标[详细]
-
如何在Perl的Test :: More中声明后使用参数`tests`？
所属栏目：[大数据] 日期：2020-12-16 热度：111
来自perldoc -f使用 函数的语法用法： use Module VERSION LIST use Module VERSION use Module LIST use Module use VERSION 但在这种情况下： use Test::More tests = 5; (它将测试次数设置为5) 什么是表达式测试的数据类型= 5？ 是LIST还是其他什么？ 如[详细]
-
如何使用Perl在后续订单中获取所有可能的相邻项组合？
所属栏目：[大数据] 日期：2020-12-16 热度：87
例如,我有一个数组 my @arr = qw(0 1 2 3 4); 如何获得以下组合： 00101201230123411212312342232343344 如果有的话,这种组合(或排列)的名称是什么？ 永远感谢！ 解决方法 使用数组切片： #! /usr/bin/perluse warnings;use strict;my @arr = qw(0 1 2 3 4);[详细]
-
perl – 这句话的作用是什么:();
所属栏目：[大数据] 日期：2020-12-16 热度：111
我见过perl语句看起来像这样： () unless $some_var; 那打算实现什么目标？ 解决方法 这里有几件事情,但最重要的是这种线通常会显示为执行块的最后一行[1].在该上下文中,块的值是最后执行的语句的值[2].现在一个语句包含除非右侧的值为左侧的值,否则为右侧的[详细]
-
在这个Perl脚本中,“无效使用void上下文中的变量”是什么意思？
所属栏目：[大数据] 日期：2020-12-16 热度：101
下面的脚本给了我我想要的东西,但Perl也向我发出警告说“在void上下文中无用的使用变量”.这是什么意思？ use strict;use warnings;my $example = 'httpu003a//mainu002egslbu002eku6u002ecom/c0/q7LmJPfV4DfXeTYf/1260269522170/93456c39545857a1524497[详细]
-
Perl中的这个陈述有什么问题？
所属栏目：[大数据] 日期：2020-12-16 热度：53
print "$_",join(',',sort keys %$h),"n"; 它给我一个错误如下： Use of uninitialized value in string at missing_months.pl line 36.1,10,11,12 这个print语句出现在for循环中,如下所示： foreach my $num ( sort keys %hash ){ my $h = $hash{$num}; pr[详细]
-
Perl Tk模块有哪些缺点？
所属栏目：[大数据] 日期：2020-12-16 热度：94
与其他在Perl中创建GUI的解决方案相比,Tk模块有哪些缺点？ 解决方法 我最近参观了Perl的各种gui模块,这是我的总结(免责声明：最终我发现现有模块都没有满足我的需求,所以我开始编写自己的gui工具包). Tk – 体面的使用和界面是非常perlish. gui本身看起来有[详细]
-
为什么我的Perl反引号抱怨“sh：第1行：任何：命令未找到”？
所属栏目：[大数据] 日期：2020-12-16 热度：186
我以前从未编程,但需要编写一个非常简单的webapp来工作. 我正试图让这个挖掘查询工作： dig @8.8.8.8 +nocomments +nostats +noquestion +nocmd google.com any 有了这个perl： $dig = `/usr/bin/dig @8.8.8.8 +nocomments +nostats +noquestion +nocmd $qu[详细]
-
我可以使用y运算符在Perl中进行非一对一的音译吗？
所属栏目：[大数据] 日期：2020-12-16 热度：67
Perl中的y运算符执行逐个字符的音译.例如,如果我们对字符串“foobar”执行y / abc / dfg,则会得到“foofdr”.但是,如果我想将“[详细]
-
perl – 是Tie ::文件懒惰加载文件？
所属栏目：[大数据] 日期：2020-12-16 热度：68
我打算编写一个简单的文本查看器,我希望能够处理非常大的文件.我正在考虑为此使用Tie :: File,并对这些行进行分页.这是懒惰加载线条,还是一次加载所有线条？ 解决方法 它不会加载整个文件.从 documentation： The file is not loaded into memory,so this wi[详细]
-
我的Perl脚本如何知道它在Win64下运行？
所属栏目：[大数据] 日期：2020-12-16 热度：197
如何让我的Perl脚本检测到它在64位 Windows机器上运行,即使它是32位perl？ 解决方法 请参见 this question.您检查％PROCESSOR_ARCHITECTURE％环境变量.[详细]
-
informatica powercenter vs custom perl ETL的工作？
所属栏目：[大数据] 日期：2020-12-16 热度：102
我的大多数公司都使用powercenter informatica来提取数据库之间的Extract-Transform-Load类型数据移动作业. 但是,我所参与的项目有一个很大的自定义Perl作业,其中有一些Java用于移动数据并触发其他一些更新. 有人说改写使用powercenter的东西,人们在这个项目[详细]
