perl 相关问题

Perl是一种过程的,高级的,通用的动态编程语言,以其对正则表达式和字符串解析功能的本机支持而闻名。有关Perl的问题,请使用此标记。对于与新(但相关)语言“Perl 6”相关的内容,请使用perl6标记。对于其他语言的Perl样式正则表达式,请使用regex标记,如果它们基于PCRE库,则使用pcre标记。

如何获取Perl程序的执行时间?

如果我停止它怎么能获得执行时间?示例我运行我的perl脚本,然后按终端快捷键CTRL + C或CTRL + Z来停止它,然后发布执行时间。这是有效的吗?

回答 2 投票 0

如何使用shell删除文件中的前两列(awk,sed,whatever)

我有一个文件,每行有很多行,有很多列(字段)用空格分隔“”每行的列数不同我想删除前两列怎么样?

回答 10 投票 65

Test :: MockModule声称“方法不存在”

我尝试在Net :: Twitter中模拟一个函数:use strict;使用警告;使用Test :: MockModule;我的$ mock = Test :: MockModule-> new('Net :: Twitter'); $ mock-> redefine('update',sub {#...});但......

回答 1 投票 2

强制YAML :: Tiny值为数字

假设我有以下YAML文件:--- task:1:command:' 'desc:' '2:命令:' 'desc:'

回答 2 投票 2

如何处理:由于循环导入,Moo :: Role的`before`修饰符被静默跳过?

使用Moo :: Role,我发现循环导入会无声地阻止执行my方法的修饰符。我在MyRole.pm中有一个Moo :: Role:package MyRole;使用Moo :: Role;使用MyB; ...

回答 1 投票 6

使用Sed将新角色添加到Chef .json文件中

我有一个典型的.json文件,例如Chef servername.json {“name”:“myserver123”,“chef_environment”:“test”,“run_list”:[“role [base-pkg]”,“role [interesting_stuff]”,“role [...

回答 2 投票 0

在Perl中,为什么我在perl模块中获得“未定义的子例程”但不在main中?

我在下面的代码中为sub2获取了一个“未定义的子例程”,但是没有为sub1。这是perl脚本(try.pl)...#!/ usr / bin / env perl use strict;使用IO :: CaptureOutput qw(capture_exec_combined)......

回答 4 投票 0

有没有办法忽略perl中的非线程安全模块?

我试图找到一种方法来忽略代码的某一部分内的模块,以便我可以使用线程模块与非线程安全模块Win32 :: OLE。用严格;使用警告;使用Win32 :: OLE; ...

回答 1 投票 0

perl中支持Unicode的字边界

我在perl-5.24上,我偶然发现\ b不是unicode意识到:$ echo'“”test“”“”тест“”'| perl -pe's /“”\ b /“/ g'”test“”“”тест“”我预期它在哪里“test”“”тест“”。然后我学会了......

回答 1 投票 0

将ASCII TEXT转换为二进制

我必须将ASCII文件转换为二进制文件。 ASCII文件包含ASCII格式的十二位十六进制数字。对于输入字符串123456789ABC,我需要一个六字节输出0x12 \ 0x34 \ 0x56 \ 0x78 \ 0x9a \ ...

回答 1 投票 -1

将一条线分成它的组件

我需要将输入文件的行拆分为其列。 ATOM 0 HB3 ALA C 999 28.811 -7.680 12.279 1.00 57.53 H ATOM 7637 N PRO C1000 27.299 -5.667 10.647 ...

回答 1 投票 0

如何用空行替换两个模式之间的代码块?

我正在尝试用空行替换两个模式之间的代码块尝试使用下面的命令sed'/ PATTERN-1 /,/ PATTERN-2 / d'input.pl但它只删除模式之间的线...

回答 4 投票 -1

如何使用sed在字符串匹配后附加带有美元符号的变量?

我有一个带有美元符号的变量:ipvar_definitions =“var SSH_SERVERS \ $ HOME_NET var FTP_SERVERS \ $ HOME_NET var SIP_SERVERS \ $ HOME_NET”我想在...之后附加此变量的值

回答 2 投票 2

如何修改Smith和Waterman perl脚本以加快速度?

我找到了这个perl脚本,但我有太多的序列需要分析。我想知道是否可以对其进行优化?我在它上面推出了NYTProf,看到了部分“计算匹配分数”,“计算差距...

回答 2 投票 0

perl中的高效子字符串匹配

我正在寻找一个有效的解决方案,找到一个字符串中最长的子字符串,容忍主字符串中的n个不匹配例如:主字符串AGACGTACTACTCTACTAGATGCA * TACTCTAC * ...

回答 2 投票 7

在Linux上,如何卸载从源代码构建的Perl版本?

我需要卸载从源代码构建的Perl版本。它的构建目录存在。但是我没有找到一个名为'uninstall'的make目标。我的Perl版本是5 ....

回答 4 投票 5

Python - 重复的文本块

我是Python的新手,但我已经使用Perl一段时间了。在Perl中,为了将文件的搜索限制为特定的文本块,我会写如下所示:if(/ start_line / ... / end_line / ...

回答 4 投票 0

如何在Perl中获得Yahoo实时股票报价?

有一种相当简单的方法可以从雅虎中检索15分钟的延迟报价!财务网站(“quotes.csv”API)。但是,到目前为止,我无法找到有关如何访问实时报价的任何信息。 ...

回答 4 投票 0

如何在Perl正则表达式中使用操作?

例如,假设我有这样的事情:$ _ = 23; $ a = 2;打印/ $ a $ a + 1 / x;应该打印1.基本上,是否可以在正则表达式字符串中使用函数?

回答 2 投票 0

在perl中,我如何将输出发送到stdout和system()的文件返回val?

我成功地使用IO :: Tee将消息打印到stdout和日志文件。我还希望能够从系统()命令捕获和发送stdout和stderr到同一个文件。我试过了 ...

回答 3 投票 1

© www.soinside.com 2019 - 2024. All rights reserved.