将 perl 正则表达式捕获组存储在 bash 变量中

Question

我正在编写一个小的 bash 脚本来通过我们的 api 获取某些硬件的状态。

curl -sG ip:port/device/status -o temp.txt

我使用 curl 命令获取状态并写入临时文件

我尝试了不同的正则表达式类型，简单的 bash 正则表达式还不够，最终使用了 perl。

perl -nle 'printf("'%-15s' \t '%-15s' \t '%-15s' \t '%-15s' \n", "$1", "$2", "$3", "$4") while m{regex_to_capture_data}g' temp.txt

我的正则表达式捕获正在工作并完美打印（一些迭代将有空白捕获组，这是重要信息，并且按预期打印）

有没有办法让 arrays 填充这些捕获组并在我的 bash 脚本中进一步使用它们？

例如 $1、$2、$3、$4 是字段 device_id、uptime、status、last_error。 在我的 curl 命令中，我有 4 个设备的信息。 我想让 device_id[0] 达到 [device_id[3]，并且每个捕获组都相同。

我没有使用 perl 的经验，并且只按照一些论坛帖子的建议使用它，所以任何关于如何实现这一点的建议将不胜感激。

Answer 1

您的示例代码显然已损坏； 你不能嵌套单引号； 虽然 Perl 提供了方便的运算符q()所以你可以很容易地解决这个问题。 格式也有其他错误。 可能你的意思是

perl -nle 'print(join("\t", "$1", "$2", "$3", "$4"), "\n") while m{regex_to_capture_data}g' temp.txt

你可以 pipe 这个到

while IFS=$'\t' read -r boulders rubble stones rocks; do
    ...

尽管您可能也可以直接从 Perl 运行该循环的主体。

perl -nle 'system("geologee", "--boulders", $1, "--rubbleUrl", "$2:$3/$4") while m{regex_to_capture_data}g' temp.txt