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)? ...

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

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

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

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

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

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

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 弄清楚如何选择。 我得到的结果是， 我想拥有; ` ...

如何检查数组是否有不是 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中的回车？

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

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

如何检查 LVALUE 是否代表 SCALAR

[英]How to check if LVALUE represents SCALAR

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

现在禁止标量上的实验键

[英]Experimental keys on scalar is now forbidden

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

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

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

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

Perl 网络服务::博客

[英]Perl WebService::Blogger

我一直在尝试使用 Perl 模块 WebService::Blogger（来自 CPAN）连接到我的博客帐户，但是我在创建 WebService::Blogger class 的新 object 时遇到问题。当我调用新的构造函数时文档中给出的示例： 我收到一条错误消息： 属性（密码）是必需的。 但是 ...

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

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

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

Perlbrew 无法安装新的 perl 版本

[英]Perlbrew fails to install new perl version

我正在尝试使用 perlbrew 安装新的 perl 版本： 但这会产生错误： 我在谷歌搜索中找不到。 我知道没有任何错别字，因为当我故意写错一些东西时，我会得到一个不同的错误。 我不知道为什么会这样，也不知道如何解决。 编辑： 命令 产出 如何使用 perlbrew 安装 perl 版本？ ...

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

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

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

尝试在 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时遇到以下错误： 似乎也有问题 ...

使用 Mojolicious::Plugin::SecureCORS 允许 CORS

[英]Allow CORS with Mojolicious::Plugin::SecureCORS

我是 Mojolicious 的新手，使用插件尤其是SecureCORS 。 如何在 POST 请求中允许 CORS？ 我设法允许 CORS 使用以下行进行 GET：use Mojolicious::Lite; app->plugin('SecureCORS'); app->rout ...

无法在 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 ...

@INC 包含“.”

[英]@INC contains "."

当我今天拿到我的电脑时，我发现了一个不愉快的惊喜。 每天，我运行的第一个 Perl 程序都是一个非常简单的程序，用于确保一切正常运行： 然而今天，事情并没有按计划进行 go 。 尝试运行该程序时出现以下错误： Can't locate strict.pm in @INC (@INC contain ...

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

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

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

如何检测 Perl 中的符号链接已损坏？

[英]How can I detect that a symlink is broken in Perl?

我想使用 Perl 删除目录中损坏的符号链接。 在我看来，我只需要列出一个目录的文件并测试这是一个符号链接（-l），如果它返回 false 就取消链接。 但似乎在使用 readir 列出所有文件时，我损坏的符号链接没有被重新识别为文件。 因为我的链接没有指向任何内容，所以我明白为什么。 然后：如何 ...