将识别包含 | 的文本的正则表达式但前提是它不在 ' 文本中的其他任何地方
[英]regex which will identify text containing a | but only if it is not within ' anywhere else in the text
我正在尝试将 devise 和 Perl 正则表达式作为标识 | 的if条件但如果 | 会失败包含在带引号的字符串中的任何位置，例如 'It went >| CRASH |< 当它掉在地板上时' 示例输入如下这应该匹配： 这应该无法匹配： 我已经尝试了如下的负面回顾正则表达式并且广泛地 ...
如何缩短这个 Perl 表达式
[英]How to shorten this Perl expression
我写了下面的代码来欺骗 Wordle（我不擅长）。 有没有办法将以下部分组合成单个正则表达式语句： 即找出包含所有三个字母'c','a','o'的单词，顺序不限。 ...
Perl in Intellij IDEA: Global symbol "%Config" requires explicit package name (did you forget to declare "my %Config"?) lib.pm
[英]Perl in Intellij IDEA: Global symbol "%Config" requires explicit package name (did you forget to declare "my %Config"?) lib.pm
我正在开发一个大的 perl 模块，从终端运行时它就像一个魅力。 用Intellij IDEA CE运行i时，弹出如下错误。 这发生在软件的所有主要版本中。 我的程序开始： Perls自带的lib.pm是这样启动的 在 Intellij IDEA 中，这导致 我不知道 perl 可执行文件的这些 ...
如何提取Perl中以substring开头的字符串的rest？
[英]How to extract the rest of a string starting with a substring in Perl?
数据是这样的 我想在连字符 (-) 之后提取字符串的 rest，所以 output 将是 如果我可以传入一个变量 substring 并且程序可以提取它后面的字符串的 rest ，那就太棒了。 所以在这个例子中，输入substring是"MWF-" 你在perl是怎么做到的？ 谢谢 ...
结合类别与代号 [DS 代码格式]
[英]Combine category with code name [DS code format]
某些 DS 代码系统不支持类别。 这个表达式是以编程方式将类别与代号组合起来的最有效方法吗？ 示例 1 - melonDS, Mario Kart DS (USA).mch Output： Regex 无法捕获 CAT 并将其添加到 CODE 之前。 这是我能想到的最好的表达方式： 为了搜索和 ...
如果我将连续的两个 DBI 连接分配给一个变量会怎样？
[英]What happens if I assign two DBI connections in a row to a variable?
如果我将连续的两个DBI连接分配给一个变量，第一个连接会发生什么情况？ 感觉上没有隐含的disconnect （没有滞后）。 ...
不支持 WSL2 Debian 套接字操作
[英]WSL2 Debian socket Operation not supported
我试图在 WSL2 中的 Debian 上从 Perl 打开一个套接字，它给了我一个不受支持的操作，而在 VMWare VM 中它在 Debian 上很好。 我的应用程序的诊断如下： 在 5.15.79.1-microsoft-standard-WSL2 #1 SMP Wed Nov 23 01:0 ...
在调试脚本中，禁用“use strict”和“use warnings”是否安全？
[英]In a debugged script, is it safe to disable `use strict` and `use warnings`?
考虑一个理想的情况，其中编写了一个脚本use strict; use warnings FATAL => 'all'; 并经过彻底审查、测试和调试，您会对它的工作方式感到满意。 脚本中没有动态生成的代码或其他花哨的东西，代码整体简单且技术含量低。 对于关键应用程序，这样的脚本是否与注释掉的 ...
如何在 CSV 和 perl 脚本中连接和添加值？
[英]How to concat and add value in a CSV wih perl script?
我的 csv 文件有两列：名字，姓氏： 我想添加另外两列，其中一列包含前两列，名称为 perl 脚本，另一列添加性别： 我在导入之前使用其他方法（如 zapier）来转换 csv，但它不起作用。 ...
DBD::DB2：为什么 `$dbh->disconnect` 会导致自动增量列中出现间隙？
[英]DBD::DB2: why does a `$dbh->disconnect` cause gaps in an autoincrement column?
为什么$dbh->disconnect会导致自动增量列中出现间隙？ 在不断开disconnect的情况下，创建的自动增量列没有间隙： ...
perl Curses 和 unicode：为什么 addstr 打印正常而 addstring 打印垃圾？
[英]perl Curses and unicode: why addstr prints fine whereas addstring prints garbage?
addstr代码，output： 添加字符串——代码， addstring ： 为什么观察到这种行为？ 反之亦然，因为addstr是遗留的，而addstring是为了支持 unicode 吗？ https://metacpan.org/pod/Curses#Wide-Character-Awa ...
如何计算 Perl 中蛋白质的几何中心？
[英]How can I calculate the geometric center of a protein in Perl?
我有一个 PDB 文件，其中包含有关特定蛋白质的信息。 它持有的信息之一是不同原子的位置（xyz 坐标）。 该文件如下https://files.rcsb.org/view/6U9D.pdb 。 使用此文件，我想计算原子的几何中心。 理论上我知道我需要做什么，但我写的脚本似乎不起作用。 程序的第一 ...
在没有 readlink 实用程序的情况下解析符号链接
[英]Resolving a symlink without readlink utility
我正在尝试使用 perl 一个衬里在 unix 命令行管道中使用正则表达式匹配来打印字符串。 ls -l /APPL 给出 output lrwxrwxrwx 1 root system 4 Nov 27 12:07 /APPL -\> /PRD 我的目标是打印'PRD' 我正在使用的命令ls ...
使用 GetOptions 定义一个参数，该参数在指定和输入丢失时出错，但如果根本未指定参数则不会出错？
[英]Using GetOptions to define a parameter that errors out when specified and input is missing but doesn't error out if parameter not specified at all?
我们如何定义一个 CLI 参数，如果我们不提供输入就会出错，但如果我们根本不使用该参数就不会出错？ 示例：我通过以下方式调用程序： 这应该是一个错误： 但这应该继续执行： 不给--param1应该继续执行。 在 GetOptions 中定义param1=s或param1:s不区分在没有输入的情况下 ...
谁能在 Perl 中发现我的 for 循环中的问题？
[英]Can anyone spot the problem in my for loop in Perl?
我有一个文本文件，其中包含FASTA 格式的蛋白质序列。 FASTA 文件的第一行是 header，rest 是感兴趣的序列。 每个字母是一个氨基酸。 我想编写一个程序来找到基序 VSEX（X 是任何氨基酸，其他氨基酸是特定氨基酸）并打印出基序本身和找到的 position。 这是我的代码： 我 ...
如何将此 shell 命令包装在 Perl 中？
[英]How do I wrap this shell command in Perl?
有没有办法将下面的linux命令包装到Perl系统function中？ 我尝试了以下但找不到有效的组合： ...
为什么它返回数组的最后一个元素？
[英]Why it returns last element of array?
Perl 的新手，我发现 Perl 标量和列表非常混乱。 在下面的代码中， 结果将是“c” 但是如果我给数组命名 结果为3，即元素个数我认为第二个是规范，但我不明白为什么它在第一个上返回“c”的逻辑。 ...
将文本文件处理为块
[英]Processing text file as blocks
我的代码有什么问题？ 我的数据有 4 个块，但我的代码只打印前三个块的结果。 当我从文件中读取数据时获得相同的结果。#!/usr/bin/perl use 5.30.3; use warnings; my $sum=0; my $block=1; while(<DATA>){ ...
在 Perl 中将字节从设备转换为十进制
[英]Converting bytes from device to decimal in Perl
我正在尝试按照本教程进行操作： https://cylab.be/blog/92/measure-ambient-temperature-with-temper-and-linux让 TEMPer USB 传感器测量环境温度，以便我可以将其纳入一个 Perl 脚本，提醒我房间的环境温度。 在本教程的 ...