perl

-3热度

2回答

例如， $ test =“abc”; $ test =〜s/b // g; 通常测试将交流。我如何操纵字符串“abc”，以便它将通过此测试并仍然返回abc。我想做一个命令注入，所以我不能改变$测试=〜s/b // g;但可以改变输入。希望这是有道理的。

0热度

2回答

替换/添加值作为PERL字符串写入HTML

所以，我有一个写入perl字符串的HTML。这个html表示一个模板，我需要在运行时添加字段。例如： $templateHTML.= '<span > %{name} </span> 我想用所需的值替换％{name}。我已经试过正则表达式是： $htmlTemplate.=~ s/%{name}/akhil; 这没有工作，也有办法，我可以使用JavaScript的替换功能，即，可我Pe

0热度

3回答

如何使用正则表达式在Perl中打印1到10位数的偶数

我想重复输入一个可以是至少1位数和最多10位数的数字。只有在偶数和1到10位数字的情况下，它才会在屏幕上显示该数字，否则应该退出循环。我试过我的代码，但无法拿出确切的解决方案。我正在尝试使用正则表达式。这只是为了练习，没有其他意义。 #!/usr/bin/perl/ while(<> =~ /^\d{1,10}$/) { my $num = <STDIN>; if(

1热度

2回答

Perl：使用Parallel :: ForkManager存储许多文件内容

我有三个文件（两个制表符分隔的字段，文件间没有冗余）。我想要并行读取它们并将它们的内容存储在一个散列中。这是我的尝试： use warnings; use strict; use Parallel::ForkManager; use Data::Dumper; my @files = ('aa', 'ab', 'ac'); my %content; my $max_process

1热度

1回答

Minilla或Milla（Dist :: Milla） - 添加到Build.PL

我想用Minilla或Milla发布我的dist。我想在Build.PL中创建Build脚本之前检查一些条件。但Minilla和Milla每次运行Minilla或Milla build时都会重写Build.PL。我该怎么做？在此先感谢。

-6热度

1回答

如何替换二进制文件中的字节？

我的二进制文件test.bin包含 11 22 33 44 55 66 ... 我想修改的第三位置AA和我的文件应该像 11 22 33 AA 55 66 ....

0热度

1回答

计算Perl中两个日期之间的天数

我正在使用Perl创建一个将发送密码到期通知的脚本。我有两个日期：的用户设置密码，该用户的密码将过期（在设置密码后180天）的日期 use DateTime::Format::Strptime; my $dt_pattern = DateTime::Format::Strptime->new(pattern => '%F',); my $displayName = $entry->g

1热度

1回答

我们可以在Perl中获得严格的refs违规堆栈跟踪吗？

我在我的Perl程序中使用了use strict，但这些错误并没有像他们所能提供的那样有用，因为他们只列出了单一的违规行。当严格使用失败时，有没有办法获得回溯？

0热度

1回答

捕获一行中的所有单词并使用Perl正则表达式计算它们的出现

我想知道段落中有多少单词，然后找到每个单词出现次数。我可以做到这一点，但是有没有其他方法可以只使用正则表达式？ my $string = "John is a good boy. John goes to school with his brother Johnny. When John is hungry, he eats his tiffin."; my @list =(); while

-1热度

1回答

如何在Perl中使用正则表达式重复每个小写字母？

我想要这些映射：ABcD - > ABccD，xyzK - > xxyyzzK等我可以写一个循环来做到这一点。但是有没有办法用正则表达式来实现呢？我可以找到所有带小写字母[a-z]的小写字母。我如何编写替换部分？ $string =~ s/[a-z]/....../g; # How do I fill in for the ...... ?