-
perl – 给定输入的真值表生成
所属栏目：[大数据] 日期：2020-12-16 热度：181
我想为给定的input生成一个真值表.如果我给输入2输出将是假设的 10 01 11 00 如果输入为3,则输出为 111 000 110 101 011 100 001 010 我有一个代码片段 #!/usr/bin/perl#print "a|b|cn";for $a (1,0){ for $b (1,0){ for $c (1,0) { for $d ( 1,0) { print[详细]
-
为什么()的Perl不能遍历我的数组中的所有元素？
所属栏目：[大数据] 日期：2020-12-16 热度：64
有一个perl脑筋急转弯： my @l = ('a','b','c');for (@l) { my $n = 1; print shift @l while (@l and $n -- 0); print "n";} 什么是印刷品？应该是a,b和c,对吗？但哦等等,实际上某处有一个错误,它只打印a和b.可能只是一些愚蠢的一个一个,应该很容易解决,对[详细]
-
如何用tr或Perl将0123更改为ACTG？
所属栏目：[大数据] 日期：2020-12-16 热度：159
我有一个这样的列表文件： 100101102103 我想要做的是将每个0替换为A,将1替换为C,将2替换为G,将3替换为T. 因此,我们希望得到 CAACACCAGCAT 解决方法 你自己实际上已经找到了答案.只是： tr 0123 ACGT input_file output_file 要么： echo 2033010 | tr 0123[详细]
-
在Perl中,如何在用户输入无效输入时要求用户重新输入输入？
所属栏目：[大数据] 日期：2020-12-16 热度：119
我有一个Perl子程序,它要求用户输入.无论输入的输入是否为有效输入,我都会在子程序内部执行检查. 如果不是,我想再次调用子程序让用户输入有效输入. 我的子程序如下： sub some_routine { print "Enter a number to select (1) Apple (2) Mango (3) grapes:"[详细]
-
为什么我不能在Perl中设置$LIST_SEPARATOR？
所属栏目：[大数据] 日期：2020-12-16 热度：180
我想在perl中设置LIST_SEPARATOR,但我得到的就是这个警告： Name "main::LIST_SEPARATOR" used only once: possible typo at ldapflip.pl line 7. 这是我的计划： #!/usr/bin/perl -w@vals;push @vals,"a";push @vals,"b";$LIST_SEPARATOR='|';print "@vals[详细]
-
regex – 使用Perl从多行字符串中提取文本
所属栏目：[大数据] 日期：2020-12-16 热度：199
我有一个涵盖几行的字符串.我需要在两个字符串之间提取文本.例如： Start Here Some exampletext covering a fewlines. End Here 我需要提取字符串,Start Here Some示例文本覆盖几行. 我该怎么做？ 解决方法 print $1 if /(Start Here.*?)End Here/s;[详细]
-
如何开始使用Perl进行网页抓取？
所属栏目：[大数据] 日期：2020-12-16 热度：184
我有兴趣学习Perl.我正在使用Learning Perl书籍和cpan的网站作为参考. 我期待使用Perl做一些web /文本抓取应用程序来应用我学到的任何内容. 请建议我一些好的选择. (这不是作业.想在Perl中做一些可以帮助我利用基本Perl功能的东西) 解决方法 如果您要抓取的[详细]
-
如何在Perl中使用sprintf将填充填充为可变长度？
所属栏目：[大数据] 日期：2020-12-16 热度：187
我想使用Perl的 sprintf来对变量进行零填充. sprintf("%08d",$var); 但我想动态确定zerofill有多少位数. 如何使用名为$zerofill的变量替换sprintf中的“8”(“？d”,$var)？ 解决方法 sprintf的第一个参数只是一个字符串： my $zerofill = 9; my $number = 1[详细]
-
如何使用Perl计算大型CSV文件中的行数？
所属栏目：[大数据] 日期：2020-12-16 热度：124
我必须在工作的 Windows环境中使用Perl,并且我需要能够找出大型csv文件包含的行数(大约1.4Gb). 知道如何以最少的资源浪费做到这一点吗？ 谢谢 PS这必须在Perl脚本中完成,我们不允许在系统上安装任何新模块. 解决方法 你的意思是行或行？单元格可能包含换行符[详细]
-
perl – 如何删除文件的最后N行？
所属栏目：[大数据] 日期：2020-12-16 热度：126
有人可以给出一些如何从Perl文件中删除最后n行的提示吗？我有一个大约400 MB的非常大的文件,我想从中删除大约125,000个最后一行. 解决方法 您可以使用 Tie::File将文件作为数组处理. use Tie::File;tie (@File,'Tie::File',$Filename);splice (@File,-125000[详细]
-
安装Perl模块,假设是非交互式给定选项
所属栏目：[大数据] 日期：2020-12-16 热度：186
通常在 linux Debian中我们这样做是非交互式安装包,例如 sudo apt-get install -y Package_x_z #[-y --assume-yes] 安装perl模块时我们如何做同样的事情,例如 sudo perl -MCPAN -e 'install DBI' 解决方法 要防止CPAN客户端询问是否安装先决条件,请以交互模[详细]
-
在服务器上安装其他Perl模块时应该注意什么？
所属栏目：[大数据] 日期：2020-12-16 热度：64
我想请我的系统管理员安装各种Perl模块,如Moose和Data :: Alias.该系统是Red Hat Enterprise Linux 5,运行Perl 5.8.8.我能想到的唯一问题是一些已安装的模块可能需要升级,因此存在破坏某些东西的风险.还有什么我应该关注的？ 解决方法 我不知道贵公司的政策,[详细]
-
我应该使用$_ [0]还是复制Perl中的参数列表？
所属栏目：[大数据] 日期：2020-12-16 热度：52
如果我将哈希传递给子： parse(%data); 我应该首先使用变量$_ [0]还是可以在我想从哈希中获取元素时继续访问$_ [0]？澄清： sub parse{ $var1 = $_[0]-{'elem1'}; $var2 = $_[0]-{'elem2'}; $var3 = $_[0]-{'elem3'}; $var4 = $_[0]-{'elem4'}; $var5 = $_[[详细]
-
如何将现有数组用作Perl中哈希值？
所属栏目：[大数据] 日期：2020-12-16 热度：165
我有一个现有的数组,我希望在哈希中添加一个值.我知道你可以使用数组作为值,但是看不到分配现有数组的方法.我基本上想去： $hash{fieldName} = @myArray; 只有这显然不起作用！帮助赞赏！ 解决方法 您只能在散列/数组中存储标量值.你需要使用： $hash{fieldN[详细]
-
为什么看起来Perl正则表达式中的*不是贪婪的？
所属栏目：[大数据] 日期：2020-12-16 热度：119
我希望这打[详细]
-
在Perl中用空格连接字符串.任何内置插件？
所属栏目：[大数据] 日期：2020-12-16 热度：76
在Perl中,我可以使用它们之间的空格连接多个字符串,如下所示： my $long_string = $one_string . " " . $another_string . " " . $yet_another_string . " " . $and_another_string . " " $the_lastr_string 但是,输入这个有点麻烦. 是否有内置功能可以使这[详细]
-
数组 – $#vvv–;做Perl中的哈希？
所属栏目：[大数据] 日期：2020-12-16 热度：134
这是整个剧本,对于某些神秘的我来说输出“642” #!usr/bin/perl %vvv = (1,2,3,4,5,6);$#vvv--;%vvv = reverse %vvv;print keys %vvv,"n"; 还有最后一个语句中的“键”是做什么的？谢谢你的时间.我很着急,没有足够的时间做我的研究.所以我再次感谢你的投入.[详细]
-
perl表达式中有任何副作用$a = $a;
所属栏目：[大数据] 日期：2020-12-16 热度：170
将有人请解释下一个： 在“Programming Perl”一书中,postfix autoincrement operator被描述为 when placed after,they ( $a-- , $a++ ) increment or decrement the variable after returning the value. 所以,据我所知,$a从未在虚空环境中使用过,因为有人[详细]
-
perl – 启用全局警告
所属栏目：[大数据] 日期：2020-12-16 热度：146
我必须优化用Perl编写的Intranet(大约3000个文件).我想做的第一件事是启用警告“-w”或“使用警告”;所以我可以摆脱所有这些错误,然后尝试实现“use strict;”. 有没有办法告诉Perl一直使用警告(比如PHP的php.ini中的设置),而无需修改每个脚本以将“-w”添加[详细]
-
如何验证Perl中的网站URL？
所属栏目：[大数据] 日期：2020-12-16 热度：51
我需要一个正则表达式来使用Perl验证网站URL. 解决方法 Regexp::Common::URI::http[详细]
-
在Perl中编写多线程TCP服务器守护程序是一个坏主意吗？
所属栏目：[大数据] 日期：2020-12-16 热度：173
在Perl中编写多线程程序(特别是TCP服务器守护程序)是不是一个坏主意？ 解决方法 Perl是服务器的优秀语言.如果你来到解释代码困扰应用程序的任何区域,你可以用C编写扩展代码来处理它. 您还可以查看非阻塞I / O以避免线程开销. IO :: Lambda是一个很好的模块,[详细]
-
为什么Perl模块区分大小写？
所属栏目：[大数据] 日期：2020-12-16 热度：74
虽然我没有看到任何具有相同名称但具有不同情况的模块,但仅仅是为了好奇,我试图安装 Log::Log4perl并且在安装期间我错误拼写它’Perl’代替’perl’： % cpan -i Log::Log4Perl Cannot install Log::Log4Perl,don't know what it is. 当我使用正确的名字时,[详细]
-
Perl Classes,Blessing Hashes是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：161
我不明白为什么Perl构造函数需要所有这些祝福,以及为什么它总是用散列完成(显然可以使用其他变量类型). 当我创建一个类的新实例时,构造函数如何返回对哈希的祝福引用有什么意义呢？我能理解“回归(这个);”或者沿着那些方向的东西,但返回一些其他随机变量只[详细]
-
Perl中的表示法 – || =运算符是做什么的？
所属栏目：[大数据] 日期：2020-12-16 热度：174
我碰巧遇到了一个带有以下语法的perl代码. sub new{my ($class,$value)=@_;$lobby ||= bless{e=undef;},$class} 语法|| =是什么意思？ 我没有把它作为一个关键词,我在perldoc中找不到类似的语法. 解决方法 你会在 perlop找到操作符的意思. 它的作用是什么：$[详细]
-
将Perl哈希从最大到最小排序
所属栏目：[大数据] 日期：2020-12-16 热度：90
我在这里找到一个例子： http://perlmeme.org/tutorials/sort_function.html 它给出了这段代码,根据每个键的值对哈希进行排序： # Using = instead of cmp because of the numbers foreach my $fruit (sort {$data{$a} = $data{$b}} keys %data) { print $fr[详细]
