如何按顺序编辑多个文件的相同两行？

Question

我有一组元数据，需要

• 在每个字段上编辑带有序列号第 2 行的字段： <前><代码>“名称”：“#1”
• 每行第 5 行： <前><代码>“版本”：1，

我需要用 580 个文件中的连续数字替换每行上的 1。

这就是我想要完成的任务：

1.json

{
  "name": "#1",
  "description": "description",
  "image": "imagelink",
  "edition": 1,

2.json

{
  "name": "#2",
  "description": "description",
  "image": "imagelink",
  "edition": 2,

3.json

{
  "name": "#3",
  "description": "description",
  "image": "imagelink",
  "edition": 3,

等

我正在尝试修改此处的代码以适合我的场景：

https://unix.stackexchange.com/ questions/508423/add-a-sequential-number-in-a-pspecial-line-for-multiple-files

我尝试过

perl -pi -e '$_ = sprintf("name": %01d %s", ++$n, $_) if $. == 1; close ARGV if eof' *.json 

当我尝试这个时，我没有在任何文件中得到任何更改。

Answer 1

在处理格式时，使用真正理解 JSON 的方法总是更容易、更可靠。以下使用了几个非核心模块， Path::Tiny 和 JSON::MaybeXS （如果您使用 Homebrew 进行 Mac 包管理，我看不到它们可用的但您可以安装 cpanminus 然后执行 cpanm Path::Tiny JSON::MaybeXS 安装它们。）

#!/usr/bin/env perl                                                                                                                                                                                                                               
use warnings;
use strict;
use feature qw/say/;
use Path::Tiny;
use JSON::MaybeXS;

my $json = JSON::MaybeXS->new->utf8->pretty;
# For each file matching the RE in the current directory
foreach my $file (path(".")->children(qr/^\d+\.json$/)) {
  say "File $file";
  # Calculate the number based on the filename and update the JSON
  # object in-place
  $file->edit_raw(sub {
                    my $num = $file->basename(".json");
                    my $obj = $json->decode($_);
                    $obj->{name} = "#$num";
                    $obj->{edition} = $num + 0;
                    $_ = $json->encode($obj);
                  });
}

Answer 2

以下代码片段解决了我的问题：

perl -pi -e 's/#1/sprintf("#". ++$n)/e' *.json(n)

第一个解决了将 #1 替换为 #(序号) 的问题

perl -pi -e 's/: 1/sprintf(": ".++$n)/e' *.json(n)

第二个解决了将 : 1 (在第 5 行中找到) 替换为 :(序号) 的问题