^M 即使在 chop/chomp 之后仍然在我的字符串的末尾
[英]^M still at the end of my string even after chop/chomp
我想在 ssh 命令中传递一个字符串变量。 您可以在下面的代码中看到我 ssh 到服务器，然后 cd 到我将变量传递到的目录。 (cd $orig) 该变量是从我读入并放入数组的文件中提取的。 我认为这就是我的错误所在，因为在我使用 split 命令从文件中读入后可能会有不需要的隐藏字符。 这是我 ...
使用 perl 脚本将多个 pdf 文件合并为一个 pdf 时出现错误“无法在未定义的值上调用方法 appendPDF”
[英]Error "Can't call method appendPDF on an undefined value" in merging multiple pdf files into one pdf using perl script
我想使用 perl 脚本将多个 pdf 文件合并为一个 pdf。 我是 perl 脚本中的新手，使用 CAM::PDF 模块合并 PDF，但遇到以下错误：无法在未定义的值上调用方法“appendPDF”。 你能帮我在我缺少赋值或做错的地方吗？ 代码： ...
Perl Win32::GuidGen 格式
[英]Perl Win32::GuidGen format
我有以下代码 生成这样的 GUID {77C71DCC-8825-4B37-A8D3-C0400C885DBB} 我想知道是否可以选择以这种格式返回 guid 77c71dcc-8825-4b37-a8d3-c0400c885dbb 而不是添加以下代码 ...
为什么 Perl 正则表达式不匹配“\n”后面的字符？
[英]Why Perl regex doesn't match "\n" with a following character?
这是我的文件foo.txt ： 这就是我正在做的： 文件没有任何变化，而我希望它变成： 为什么？ 它是 Perl v5.34.0。 ...
Perl Devel::REPL re.pl 命令未找到
[英]Perl Devel::REPL re.pl command not found
有安装 Devel::Repl 的说明吗？ 我使用 cpan Devel::REPL 命令安装它，但我无法使用 re.pl 命令启动它（如建议的https://metacpan.org/pod/Devel::REPL ） 我的 cpan 命令来自从自制软件安装的 perl v5.36。 为了能够运行 ...
使用先行正则表达式替换文本
[英]replace text using lookahead regex
我正在尝试修改文本文件的几行。 如果“测试”一词后没有跟“ed”或“s”，则将其更改为“工作”一词。 以下表达式按预期工作： 但它在 sed 中不起作用，就像这样...... 预期的 output 是： 我猜 sed 不支持前瞻或回顾。 还有其他简单的 linux 命令吗？ ...
我如何使用“perl”中的“map”返回一个 hash 引用，其键是从一个数组引用中查找的，而该数组引用的值是从另一个数组中查找的？
[英]How can I use "map" in "perl" to return a hash reference whose key is looked up from an array reference whose value is looked up from another array?
我已经在 map 上搜索了其他许多 Stack 问题，但是这个要求很特殊，所以我可能无法完全找到我正在寻找的解决方案，或者我认为它确实存在。 这个问题只是关于性能。 作为有限的背景，此代码段用于解码传入令牌，因此它用于每个 web 请求，因此性能至关重要，我知道可以使用“地图”所以想使用它。 这是 ...
移动排序 function 到 package 时的未初始化值
[英]Uninitialized value when moving sorting function to package
假设我有一个文件 main.pl 和一个 package package.pm 在 main.pl 我得到了 function 被调用 用作排序 function 并通过调用sort { DATESORT('ASC') } @tran_dates_to_load 当函数和 function 调用在同 ...
lwp 相当于 curl 带 --data-raw $ 符号
[英]lwp equivalent to curl with --data-raw $ sign
Curl 完美运行的命令curl 'https://someurl/graphql'\ -H 'authority: someurl' \ -H 'accept: application/json, text/plain, */*' \ -H 'accept-language: en-US,en; ...
Perl sprintf 格式数字，前导零和两位小数
[英]Perl sprintf format number with leading zeros and 2 decimals
在 Perl 中，我想用 2 个前导零和两位小数来格式化一个值。 例如 使用这样的东西不起作用： 正确的格式是什么？ ...
如何使用 perl 删除与正则表达式匹配的文件
[英]How can I use perl to delete files matching a regex
由于Makefile错误，我的 git 存储库中有一些假文件......$ ls =0.1.1 =4.8.0 LICENSE =0.5.3 =5.2.0 Makef ...
Perl 用变量替换文件内容
[英]Perl replace content of a file with variable
我有一个a.md文件： update.sh中的脚本用于更新上面的文件：#!/bin/sh t=$(pwd) echo $t perl -i -p0e 's/(?<=```shell\n)[\s\S]*(?=\n```)/$t/s' a.md 它适用于字符串，但我不能用$(pwd)等变量替 ...
如何从 Bash shell 脚本向 Perl 模块传递参数，并检索值？
[英]How to pass parameters to Perl module from Bash shell script, and retrieve values?
Perl模块中的一个function需要3个参数。 第一个参数的值将决定其他参数的值并将它们返回给调用者。 它是这样定义的： 从 bash shell 脚本中调用这个 function： 问题：VAL 仅存储最后一个变量或 $var_2 的值。 问题：如何从 $var_1 和 $var_2 中检 ...
如何格式化bash SED/AWK/Per output做进一步处理
[英]How to format bash SED/AWK/Per output for further processing
我有一些文本文件数据，我正在使用 SED、AWK 和 Perl 进行解析。 从“客户”部分，我试图获得类似于以下内容的 output： 使用： sed -n -e "/customers {/,/}/{/customers {/d;/}/d;p;}" $file' 这是 output： 如何将“bo ...
Perl 正则表达式匹配 ip 和来自 /etc/hosts 的主机
[英]Perl Regular Expression match ip and host from /etc/hosts
在 /etc/hosts 中搜索匹配 ip 和给定 ip 的所有主机的正则表达式示例主机文件： 使用正则表达式： 预计 output： 示例代码： ...
Perl 正则表达式命名组数组
[英]Perl regular expression named groups array
我正在尝试捕获数组中的命名组。 output 是 但我期望或实际上希望任何事件都会出现在数组中。 有机会把所有的组都放在一个阵列中吗？ ...
如何使用 REGEX 排除特定字符串？ (Perl)
[英]How to exclude a specific string with REGEX? (Perl)
例如，我有这些字符串APPLEJUCE1A APPLETREE2B APPLECAKE3C APPLETEA1B APPLEWINE3B APPLEWINE1C 我想要所有这些字符串，但其中包含TEA或WINE1C的字符串除外。APPLEJUCE1A APPLETREE2B APPLECAKE3 ...
强制 Time::Piece strftime 使用特定的语言环境
[英]Force Time::Piece strftime to use a specific locale
Time::Piece->strftime如何根据特定区域设置而不是根据当前区域设置强制为 output 星期和月份的名称？ 将$ENV{LC_ALL}设置为特定语言环境（例如C.UTF-8 ）似乎不起作用。 下面的测试脚本#!/usr/bin/env perl $ENV{LC_ALL} ...
如何在不打开命令 windows 的情况下从 Perl 执行 Windows 命令？
[英]How can I execute Windows commands from Perl without leaving command windows open?
我在 Win10 上有一个 Perl 脚本，它使用 system() 命令运行几个不同的命令行进程，包括： 使用指定的 .mp3 文件启动 Windows Media Player。 my $cmd = "开始调用 wmplayer.exe myRadoShow.mp3"; 系统（$cmd）； ...