正则表达式匹配包含 n 个非重复字符的子字符串
[英]Regex to match substrings containing n non-repeated characters
我正面临正则表达式的（幼稚）问题。 我需要找到由固定数量 (n) 的不同字符组成的任何子字符串。 因此，对于“aaabcddd”，如果 n=3，我希望找到的子字符串是：“abc”和“bcd”。 我的想法是使用 n-1 捕获组和 '[^' 来排除已经匹配的字符。 因此，我编写了以下 Perl 正则表达 ...
Perl 用于查找单词并在第一次搜索时删除所有字符/单词的脚本
[英]Perl script to find a word and remove all char/word on the first search
这是我的输入 在这里，我试图从上面的路径中找到一个数值，我想在找到数值后删除所有数据/路径。 预计 output 你能告诉我我应该如何写一个 perl 脚本吗？ ...
美元符号应围绕实体和值 - Perl
[英]Dollar symbol should be around entities and values- Perl
我对删除数字（多值）内的美元并在值周围插入美元符号的代码感到困惑。 当然我有点困惑。 例如： 10$x$10$x$10$x$10应该是$10x10x10x10$ #might 是 'n' 无限编号。 我的代码： 输入： ...
复合打印语句覆盖部分变量
[英]Compound print statement overwrites part of variable
我编写并使用了多年的脚本中有一些非常奇怪的行为，但由于某种原因，无法在一个特定文件上运行。 认识到脚本无法识别应该在 hash 中的密钥，我添加了一些测试打印语句来读取密钥。 我的常规策略是在变量前后放置星号以检测潜在的隐藏字符。 显然，密钥已损坏。 相关代码块： 这会产生以下 output： 通常 ...
如何正确处理 Perl 数组？
[英]How to handle a Perl array the correct way?
我是编写 Perl 代码的新手，所以我希望能在这里得到一些帮助。 我正在查询一个数据库，只要我只选择一行并将查询的变量写入另一个数据库中的一些变量，它就可以工作。 一旦我想创建一个数组并处理多个变量，我可以用一个变量做的事情，我的代码就不起作用了。 你发现错误了吗？ ` 我已经尝试将“fetch ...
我怎样才能在 Perl 调试器中死掉？
[英]How can I throw die in Perl debugger?
我想用 die 调试我的 Perl 代码。 我写了这段代码。 *当然这个代码是一个抽象的示例。 我想在调试器中运行“if”路由而不更改任何代码。 我想在调试器中运行此代码的“if”路由。 ...
Perl 文件路径中的通配符
[英]Perl wildcards in the file paths
我正在开发我的项目，其中 GNU Makefile 应该使用不同的输入文件自动测试我的 Perl 程序。 我有这段代码，它只从inputs目录中读取一个文件，搜索停用词并输出带有非停用词频率表的out.txt文件。 我的目标是使用单独的case.sh脚本测试许多文件，其中输入文件在每种情况下都应该不 ...
perl中\*STDIN和STDIN一样吗？
[英]In perl is \*STDIN the same as STDIN?
我是Pythonizer的作者，我正在尝试将 CGI.pm 的代码从标准 perl 库转换为 Python。我在read_from_client中遇到了这段代码： \*STDIN与STDIN是一回事吗？ 我不明白他们为什么这样使用它。 谢谢你的帮助！ 该模块还引用\*main::STDIN - ...
有没有办法重新格式化 w/零填充正则表达式匹配组？
[英]Is there a way to reformat w/ zero-fill a regex match group?
假设我有一个包含9% 、 22% 、 100%等的文件。 是否有 Perl（或其他）正则表达式方法将数字分别转换为“009”、“ 022 ”和“ 100 ”？ 正确返回width_9 、 width_22和width_100 ，这没关系，但如果有一种巧妙而简单的方法来获取\1匹配组并添加格式，那就 ...
Append Perl 中的最后一个数组元素
[英]Append last array element in Perl
我想在我试过的数组的最后一个元素中添加一个换行符： 但我收到以下错误消息： 我也尝试了其他一些方法（没有.= ），但没有成功。 我应该尝试splice吗？ 我想要的例子： ...
哪个是默认证书位置 Perl LWP 模块引用 SSL 证书？
[英]Which is the default certificate location Perl LWP module refer for SSL certificate?
check_wmi_plus是一款基于Perl的Windows监控工具。 为了监控，它必须通过 WMIC 服务器（一个 web 应用程序）进行通信。 当 WMIC 服务器托管在 HTTP 上时，它工作正常......，但不是在 HTTPS 上在check_wmi_plus.conf中，有一个输入 ...
用 Perl 排序大写和小写
[英]Sorting upper case and lower case with Perl
我试图用 perl 语言对大写和小写进行排序。 在.txt文件中保存了一堆文本为“electricity.txt”： 今天的科学问题是：电到底是什么，它离开烤面包机后到哪里去了？ go 这是一个简单的实验，可以教给您重要的电气课程：在凉爽干燥的日子里，在地毯上磨擦脚，然后将手伸入朋友的嘴里并触摸他的 ...
如何访问 Perl Object 结构上的数据
[英]How to access data on Perl Object structures
我有以下 perl 代码，其中我有一个 perl 结构如下：` 让状态字段有效，但是如果我尝试这样的事情： my $resp = $data{'response'} 我得到的响应是 HASH(0x8b6640) 所以我想知道是否有一种方法可以像提取“状态”一样提取“响应”字段的所有数据，而无需获取 ...
用于查找和替换模式的 perl 代码
[英]perl code to find and substitute a pattern
将其替换为 我在打开文件并将其存储在 var 中后尝试了这段代码。 但我无法像上面那样过滤它 //我正在尝试添加：也在列的中间 ...
排序 function 随机 output
[英]Sort function random output
我正在尝试在 Perl 中编写一个排序 function。我需要“name_iwant_last”成为排序的 hash 中的最后一个。 但是，当我运行这段代码时，打印顺序是随机的。 预期的： 结果：随机。 ...
Perl grep-like one-liner with regex match condition and assignment?
[英]Perl grep-like one-liner with regex match condition and assignment?
说我有这个文件：cat > testfile.txt <<'EOF' test1line test23line test456line EOF 现在，我想以“类似 grep”的方式使用perl （带有文件参数的单行表达式/命令，它将 output 转储到终端/标准输出），这样我 ...
使用 libperl.so 与 libperl.a 编译 perlbrew
[英]Compile perlbrew with libperl.so versus libperl.a
我一直致力于将一些软件从 RHEL 7 转移到 Ubuntu 22.04。 我使用 Perlbrew。 当我构建新的 5.36.0 时，一切似乎都很正常，直到我开始为我的 apache 服务器编译 mod_perl。 我用这个构建了 perlbrew： 然后我尝试编译 mod_perl。 它在尝试 ...
如何打印出我在 perl 中匹配的多个相似模式？
[英]How can I print out multiple similar patterns I have matched in perl?
所以我得到了一个 fasta 格式的 uniprot 平面文件（ https://www.uniprot.org/uniprot/P30988.txt这是链接，但它应该能够与任何 uniprot 平面文件一起使用）我想基本上采取序列中的跨膜部分并打印出来。 这是我到目前为止所做的： 我遇到的问题是 ...
使用 perl 客户端和 ejabberd/ecs 容器的 XMPP 连接失败
[英]XMPP connection fails using perl client and ejabberd/ecs container
我正在使用 docker-ejabberd/ecs 容器作为 XMPP 服务器和Net::XMPP perl 客户端我的 ejabberd.yml 如下所示： 我的 ejabberd 客户端 perl 代码如下所示： 我可以为我的主机成功获得 ACME 证书，然后将 ca 根证书添加到客户端 ssl ...