标签[perl] - 堆栈内存溢出

[英]Perl Regular expression to read square bracket

我想在方括号内读一点，也想要方括号。棘手的部分是 class4。 sample1[1]一点也不。位仅在行尾。例子：预期结果：我使用正则表达式，但无法读取方括号。 [] = Used for set of characters. ... = Any character except new ...

用于识别关键字中字符的正则表达式

[英]Regex to identify characters in keyword

我想检查构成关键字的 1 个或多个字符。因此，如果关键字是“show”，则 s、sh、sho 或 show 都符合条件，但所有其他组合都会失败。我认为先行是解决方案，但不确定如何使它们成为可选的并仍然执行要求。就像在.. 回声“s” | perl -ne 'print if /s(?=h)? ...

现在禁止标量上的实验键

[英]Experimental keys on scalar is now forbidden

我正在尝试调试一个给我错误的 Perl 脚本现在禁止标量上的实验键这似乎是我的系统有一个较新版本 perl 的问题，但希望有人可以建议快速修复。有问题的行是语法被定义为和 groupName 来自我不太了解 perl，所以任何帮助将不胜感激我对这条线有类似的问题现在禁止对标量进行错误实验推 ...

Perl：如何复制没有文件的目录？

[英]Perl: How to copy directory without any files?

我想复制一个包含子文件夹但没有文件的文件夹。使用来自dircopy File::Copy::Recursive的 dircopy，将复制包含文件的整个结构：是否有合适的模块，或者我是否使用了模块use File::Find;中的finddepth ？并使用 rmdir？ ...

使用 Perl PDF::API2 反转 PDF colors（负）

[英]Inverting PDF colors (negative) using Perl PDF::API2

就像标题一样，我正在尝试编写一个脚本，通过使用 Perl 和 PDF::API2 来反转一堆 PDF 的 colors。我对 perl 不是很熟悉，我在 chatGPT 的帮助下修改了我在 stackoverflow 上找到的一个简短脚本，来自这篇文章如何将 PDF 中的所有颜色更改为各自的互 ...

如何检查 LVALUE 是否代表 SCALAR

[英]How to check if LVALUE represents SCALAR

多年来，我一直在使用包含以下条件的代码我总是希望有一个ARRAY或SCALAR ，但最近我将substr()传递给该参数。意想不到的事情发生了。该条件返回了一个假值。然后我想通了。 ref返回LVALUE而不是SCALAR 。由于LVALUE是一种奇怪的引用类型，我需要检查它后面是否有 ...

如何正确删除Perl中的回车？

[英]How to remove carriage return in Perl properly?

我有一个看起来像这样的代码此外，当我在子例程之外或在主 function 中使用 perl 命令时，该命令有效。但是当我创建一个单独的子例程以将 dos 转换为 unix 时，我收到一条错误消息：其中我不明白。另外，我也试过 dos2unix 但出于某种原因，它并没有像 perl 命令那样完 ...

从 Perl 中低于 1 的浮点中删除前期零

[英]Remove upfront zeros from floating point lower than 1 in Perl

我想规范化来自 ie 的变量。 00000000.1，到 0.1 使用 Perl 除了使用正则表达式之外，还有其他解决方案可以通过删除前期零来标准化低于 1 的浮点数吗？当我尝试将这些数字放入下面的示例 function 中时我得到这不是预期的。 ...

尝试在 macOS、ventura、13.2（Intel 机器）上安装 perl Image::Magick 模块时出错

[英]Errors trying to install perl Image::Magick module on macOS, ventura, 13.2 (Intel machine)

我安装了 imagemagick 和 brew 以及 opencl-headers。尝试安装在 Perl 5.36 上运行的 perl Image::Magick 模块，我在运行cpanm Image::Magick时遇到以下错误：似乎也有问题 ...

将字符串数组与 perl 中的另一个字符串数组进行比较

[英]compare an array of string with another array of strings in perl

我想将一个字符串数组与另一个字符串数组进行比较；如果匹配，打印匹配。例子：然后我需要将@var与@array进行比较；如果匹配，则打印匹配的模式。这里的整个逻辑都在一个循环中，在每次迭代中给出一个新的@array。所以每次执行这个逻辑时@array 都有不同的字符串。然后带有@var ...

如何检查数组是否有不是 integer 的元素？

[英]How to check if an array has an element that is not integer?

首先，我有一个 hash: $hWriteHash{'Identifier'}{'number'}包含 = 1#2#12#A24#48 然后我用“#”分割它，然后把它放在@arr_of_tenors变量中。这是代码： output 是1 2 12 A24 48 现在，我的目标是如果数组中有一个 ...

Perl - 从 xlsx 转换为 perl 时如何根据列 header 设置键 hash

[英]Perl - How to set key based on column header when converting from xlsx to perl hash

我有一个 xlsx，我正在转换成 perl hash 姓名类型象征颜色约翰越野车 X R 抢商务车是乙詹姆士 4X4 是 G 目前，我只能根据列数组将 hash 超级键设置为想要的列。我似乎无法根据列 header 弄清楚如何选择。我得到的结果是，我想拥有; ` ...

perl 正则表达式替换如果不是这个字符串也不是那个字符

[英]perl regex substitution if NOT this string NOR that character

当我浏览文本页面时，我正在使用 Perl 通过浏览器突出显示错误。此时，我想确保文本Seq前面有马耳他十字和空格✠ ，否则突出显示它。我也想忽略n>Seq 。附言。如果它更容易，我想忽略>但它总是n> 。事实上，它总是</span> - 以最容易检查的为准。 ...

使用Perl hash表删除字符串中的元音，但output始终为空

[英]Using Perl hash table to delete vowels in string, but output is always empty

我试图通过用户提供的字符串数组在 Perl 到 go 中编写一个简短的脚本，检查 hash 表以查看字符串中是否有元音，然后返回减去元音的字符串。我知道使用正则表达式会更容易完成，但是必须使用 hash 表、 exists()和split()问题 state 的参数。这是我到目前为止的脚本：输 ...

无法在 Mac Perlbrew 环境上构建 Perl libgd

[英]Cannot build Perl libgd on Mac Perlbrew environment

我在 Perl 5.36 中使用 Mac OS 12 和 Perlbrew。当我使用CPAN或cpanm安装GD时，出现以下错误：以上是build.log的内容。我不确定如何进一步调查或修复它。以前，我使用系统 Perl 安装和构建 Perl 的GD 。我还从 Homebrew 安装了 l ...

将数组转换为列表

[英]Cast array into list

我有一个文件需要读入列表，以便在Template Toolkit中使用它。我可以用数组轻松做到这一点，但我对列表有点吃力。有没有办法将数组转换为列表？有什么想法吗？ ...

获取 function 返回的列表的第一项

[英]Get the first item of the list returned by function

问题的简单模拟：在使用“strict refs”时不能使用字符串（“3”）作为 ARRAY ref ...

Perl JSON arrays 在父键中

[英]Perl JSON arrays within a parent key

我创建了一个脚本来从各种外部来源获取一些信息，结果应该是json格式。有很多数据，我循环将所有内容推送到一个数组，然后在所有内容完成后打印json数组，脚本的循环部分的摘录：这给出了 output 的：和截图：然而，我试图通过设置一个关键元素并将附加数据作为设备名称的子元素来做到这一点，即 ...

perl 匹配连续的换行符：`echo "aaa\n\n\nbbb" | perl-pe "s/\\n\\n/z/gm"`

[英]perl match consecutive newlines: `echo "aaa\n\n\nbbb" | perl -pe "s/\\n\\n/z/gm"`

这有效：echo "aaa\n\n\nbbb" | perl -pe "s/\\n/z/gm" aaazzzbbbz 这不匹配任何东西：echo "aaa\n\n\nbbb" | perl -pe "s/\\n\\n/z/gm" aaa bbb 我该如何修复，以便正则表达式匹配两个连续 ...

Perl 正则表达式替换 - 同时捕获和执行 $1

[英]Perl Regex substitution - capturing and executing at same time $1

使用 Perl 吐出 HTML 文本，如果中间没有空格，我想用黄色突出显示星号和前导/尾随字母。否则，如果星号周围有空格，我想用青色突出显示星号。就输入/输出而言，这是我想要的。我正在使用以下内容，但丢失了前导/尾随字母和星号，因为$1用于执行而不是捕获。有没有办法做到这两点？ ...