perl 相关问题

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


如果字符串以特定的字符串结束,则写入条件

我有一个字符串 "John says hello"。我如何写一个if条件,它可以这样工作:如果字符串以 "says hello "结束,那么......?我想过用......来分隔这个字符串。

回答 1 投票 0

删除注释而不影响配置文件中的值

我有一个配置文件,我需要删除以#开头到行末的注释。但它不应该影响双引号中的值。我的输入文件: # comment1 # ..: # comment1 # ...

回答 1 投票 0

使用perl恢复目录中多个.txt中的某一行。

我有一个程序的结果,它给了我一些搜索的结果,给了我2000多个文件的txt存档。我只需要在每个文件中加入一行特定的代码,这是我用Perl尝试的:......。

回答 1 投票 0

生疏的perl。我如何读取一个数据文件,然后在该文件中找到一个特定的字符串时,替换整行。

我需要一些快速的perl帮助。以下是我想做的。1)从命令行运行我的perl脚本,并传入一个数据文件作为参数 2)搜索传入的数据文件,并寻找第一个...。

回答 1 投票 0

用Perl发送SMTP邮件的最快方法?

我们使用SMTP从我的网站发送邮件。使用Email::MIME建立,然后Email::Sender::Transport::SMTP将其传递给我们的SMTP服务器进行发送:我的$transport = Email::Sender::...。

回答 1 投票 0

如何将当前路径的目录名(带空格)作为参数传递给bash脚本?

我可以在ubuntu bash和windowscygwin bash中重现这个问题。这个问题发生在有空格的文件和目录名上。这是我的脚本,叫做pass-dir-names-with-...。

回答 2 投票 0

Perl::Critic在残酷模式下的表现。

所以我最近开始使用Perl::Critic来检查我写的代码的质量。我在残酷的模式下运行它,有一个建议,我不明白它是一个问题......。

回答 2 投票 0

如何在perl中循环浏览文件并计算特定值?

假设我有一个文件,其中的行数如下。*一些数字* :00: *somenumbers* *somenumbers* :21: *somenumbers* 对于每一个介于:之间的数字..: 我需要计算它在... ...中重复了多少次。

回答 1 投票 0

Perl - 变量的值在某一条件下不工作。

我创建了这个函数。当我打印我的变量我的$bios_current,它显示$VAR1 ='200'; 但我的条件if ( $bios_current->responseCode() ne 200) 认为它不是200。你能不能...

回答 1 投票 0

Perl删除数组元素中的空格

我有一个数组,其中包含n个元素。所以每个元素的开头或结尾都有可能有空格。所以我想一次性的删除空格。下面是我的...

回答 1 投票 0

如何构建和安装本地Perl模块

如何构建和安装一个本地Perl模块?我下载了一个模块的代码,它不能按原样编译,所以我在代码里捣鼓了一下。我想构建并安装它。我有一些...

回答 1 投票 -1

Perl regex: 为什么没有捕捉到可选的部分?

我试图捕捉最后一部分是可选的,但如果存在的话应该被捕捉的匹配。但如果使用(...)?是可选的,就不能捕获。例如,这2行:一些文本......。

回答 1 投票 0

Perl: 无法使用 Twig::XPath 语法提取兄弟姐妹的值。

最近,我开始使用XML::Twig::XPath,但该模块似乎不能识别xpath语法。在下面的XML中,我想要 "Txt "节点的值,如果PlcAndNm节点的值是 "ext_1"...。

回答 1 投票 1

包是否会部分编译?如何防止这种情况发生?

我有代码(有些行被删除): 包 MaitreD::Command::bank_statement; 使用 Mojo::Base 'Mojolicious::Command'; sub run { .... 我的 $payments = read_file( $file ); # 第 58 行 .... } ...

回答 1 投票 4

Perl不匹配多行

我想匹配。从这里开始 一些覆盖几行的示例文本。End Here 所以我做 $ perl -nle 'print $1 if (Start Here.*?)End Heres' 然后粘贴上面的文本,然后 ctr-D。它不符合从...

回答 1 投票 0

用正则表达式删除所有非键盘字符

我阅读了 "从字符串中删除非字母数字字符",但不相信它能解决我的问题。我有一个Perl脚本,其中包含一个正则表达式。这个正则表达式被设计为替换 ...

回答 3 投票 3

使用perl array_diff工具在2个数组之间的差异。

我试图在两个数组上运行array_diff. sub array_diff(\@\@) { my %e = map { $_ => undef } @{$_[1]}; return @{[ ( grep { (existence $e{$_}) ? ( delete $e{$_} ) : ( 1 ) }。@{ $_[0] }...

回答 1 投票 0

在Perl 5.8.8脚本中运行grep命令的STDOUT问题。

我正在修改一个有16年历史的Perl脚本,它在电信生产服务器上运行着为i386-linux-thread-multi构建的perl v5.8.8。当报警时,该脚本会在一些嵌套的日志文件夹中搜索...

回答 1 投票 1

Windows上的Perl将我的换行符翻译成CRLF。

print FILEHANDLE;-当在Windows系统中运行时,总是将尾部的\n转换为\rn-导致一个DOS格式的文件。DOS文件和UNIX文件的区别在于,在UNIX中,最后一个 ...

回答 1 投票 0

如何在 perl 脚本中退出 chroot?

在写一个 perl 脚本的时候,我遇到了一个小问题,也许是一个非常简单的问题,这个脚本的目的是为了完全自动化的设置虚拟机(Xen pv)。使用perl的chroot函数,我在客人文件上做了一些事情......。

回答 5 投票 4