perl 相关问题

Perl是一种过程的,高级的,通用的动态编程语言,以其对正则表达式和字符串解析功能的本机支持而闻名。有关Perl的问题,请使用此标记。对于与新(但相关)语言“Perl 6”相关的内容,请使用perl6标记。对于其他语言的Perl样式正则表达式,请使用regex标记,如果它们基于PCRE库,则使用pcre标记。

我想打开一个文件并替换perl中字符串的最后出现模式

到目前为止我已经做到了这一点,但它仍然不起作用。 打开(GOOD_FILE,“<$pre.XXX.XXX$post") or die "Cannot open XXX"; # temporarily undefine the input line separator to read the entire file a...

回答 1 投票 0

Perl:将数据文件读取为地图

我的配置文件如下: 名称=测试 密码=测试 我需要读取数据文件并将其设置为地图,以便我可以设置数据。现在,我已经尝试过这种方式: $path_to_file="C:\...

回答 2 投票 0

稳定且优雅地使用`qr`的表达方式

在某些代码中,我创建了一个常量正则表达式,其中正则表达式包含 Perl 表达式(“代码”),我想知道是否有稳定的(即:非实验性的)和 m...

回答 1 投票 0

为什么 $_ =~ “正则表达式”在 Perl 中有效?

我知道在Perl中,最常见的有效正则表达式是这样的: $_ =~ m/正则表达式/; # 和“m”可以省略 $_ =~ /正则表达式/; 我可以使用 qr 创建正则表达式

回答 3 投票 0

如何使用 Perl 提取字符串中 = 之后的值?

我有一个像这样的字符串 字段1=1 字段2=2 字段3=abc 我想将其输出为 2,1,abc 关于我该如何解决这个问题有什么想法吗?我可以编写一个小型 C 或 Java 程序来执行此操作,尝试...

回答 12 投票 0

在 Perl 中,如何匹配数字 N 和接下来的 N 个字符?

我想做的事情看起来看似简单,但我找不到让它发挥作用的方法。 我想匹配一个数字,捕获它,然后匹配字符串中后面的N个字符。天真地说,我...

回答 2 投票 0

Perl v5.36.0 的 Multipart S3 API 中的 PartNumber 正在转换为字符串

我正在尝试使用 perl 脚本通过命令行执行 aws S3 多部分 api 调用,下面是我的相关代码片段: 我的 $part_no = 1; 我的%final_upload_file; 我的@multi_part_...

回答 1 投票 0

访问 XML 字符串值

我正在使用链接的 API 来访问用户个人资料。 我的 $profile_xml = $li->请求( request_url => 'http://api.linkedin.com/v1/people/~:(id)', 访问令牌 => $

回答 1 投票 0

解析 ps 进程命令的输出

我正在 Perl 中的 Linux 机器上循环处理进程。我想显示特定进程的 CPU 总量,但我想显示该进程的每个实例的总使用情况。在示例中: 用户 P...

回答 2 投票 0

通过字符串从子函数添加 html 代码

我有 2 个函数可以生成简单的 HTML 输出 子数据{} 子生成页面{} generate_page 是生成所有内容的“重要部分”,但是 one_da...

回答 2 投票 0

Perl 的日期时间未返回正确的时间差异

受https://perlmaven.com/datetime的启发,我试图找到2024-01-03T19:00:00和2024-01-07T16:00:00(93小时)之间的差异小时数。 #!/usr/bin/env perl 使用 5.03...

回答 1 投票 0

CGI.pm 的问题 - 无法使用“define(@array)”

我们有一个 Perl 应用程序,当我们尝试运行它时出现以下错误: [root@simfed01 Tier7]# ./smallT.pl 无法在 /usr/share/

回答 1 投票 0

如何在模板工具包中连接两个变量值

我正在模板工具包中进行concat,但目前我遇到了问题。在我的程序中,我定义了一个具有 switch case 的宏,并且我有从多个变量中获取的 case 值。 ...

回答 1 投票 0

处理 Win32::API 返回的宽字符值

wide char 和 win32::api 中提供的答案适用于将 utf-16 传递给 Win API。但是如何转换 Win API 返回的 utf16 字符串呢? (我正在尝试使用 GetCommandLineW)。 我试过了

回答 1 投票 0

在 GitHub Action 中的新作业中使用上一作业的输出

出于(主要)教学原因,我尝试在 GitHub 操作中运行此工作流程: 名称:“我们🎔 Perl” 在: 问题: 类型:[打开、编辑、里程碑] 工作: 季节性问候: 奔跑-...

回答 6 投票 0

如何比较代码中的几个二进制字节?

我读取了一个二进制文件,并想确保某些特定字节具有特定值。这样做最perl的方法是什么? 我的 $blob = File::Slurp::read_file( 'blob.bin', {binmode=>'ra...

回答 1 投票 0

Perl:为什么 \@_ 为传入的数组提供别名?

这是此处发布的问题的后续内容:How do I take a reference to an array slice in Perl? 子 getArrayRef { 返回 \@_ } 我的 @arr = (0, 1, 2, 3, 4); 我的 $sub_arr = getArrayRef(@arr[1..2]...

回答 1 投票 0

perl 单行将 : 更改为 / 和 / 到 : 单行

是否有 Perl 单行代码可以将文件的每一行中的“:”更改为“/”和“/”更改为“:”。 例如: fffc002/fffc002:9090 fffc003/fffc003:9090 fffc004/fffc...

回答 2 投票 0

Image Magick 和混合模式 SoftLight 不会将透明部分覆盖为透明 (Perl)

有什么方法可以解决混合模式 SoftLight 不保持覆盖 png 透明部分透明的问题吗?屏幕仅保留徽标,SoftLight 将整个覆盖层保持为纯色或...

回答 1 投票 0

Perl:测试文件是否实际上可写,而不是检查文件权限

假设我有一个文件/var/tmp/filename。 在 Perl 中,我编写了以下代码片段: #!/usr/bin/env perl 使用严格; 使用警告; if (-W /var/tmp/文件名) { ... } 出口; -W 和 -w 函数 (h...

回答 4 投票 0

© www.soinside.com 2019 - 2024. All rights reserved.