主页 / unix / 问题 / 694570
Accepted
Ashar
Asked: 2022-03-16 22:06:05 +0800 CST

将文件中尖括号内的连字符替换为下划线

  • 772

我知道如何替换字符串；例如，将文件中的连字符替换为下划线。

但是，对于给定文件中尖括号内的所有文本，我希望用下划线替换所有连字符。

例如，下面的文件：

<charset-params> 
    <input-charset> 
        <resource-path>/*</resource-path> 
        <java-charset-name>UTF-8</java-charset-name> 
    </input-charset> 
</charset-params>

应改为：

<charset_params> 
    <input_charset> 
        <resource_path>/*</resource_path> 
        <java_charset_name>UTF-8</java_charset_name> 
    </input_charset> 
</charset_params>

请注意，UTF-8它没有改变，因为它不在尖括号内。我怎样才能做到这一点？

text-processing files

5 个回答

  1. Best Answer

    做

    sed ': loop; s/\(<[^>]*\)-\([^>]*>\)/\1_\2/g; t loop'

    s/\(<[^>]*\)-\([^>]*>\)/\1_\2/g查找 a ，<一堆（零个或多个）不是>的字符，一个连字符 ( -)，另一个是一堆不是 的字符，>最后是一个>. 它用-, 和之前的_部分和 . 之后的部分替换它-。操作员将g导致它一次执行多个替换，但它一次只能执行一个<…… >。所以，例如，

    <the-quick><brown-fox> <jumps-over> upside-down <the-lazy-dog>

    将更改为

    <the_quick><brown_fox> <jumps_over> upside-down <the-lazy_dog>

    请注意，只有包含连字符的每个<...>单词都被更改了，但有两个连字符 ( <the-lazy-dog>) 的单词只更改了第二个 -。说，如果进行了任何替换，t loop请返回并尝试找到更多。

    • 2

  2. 使用 perl 更容易：

    perl -pe 's{<.*?>}{$& =~ y/-/_/r}ge' < your-file

    或者：

    perl -i -pe 's{<.*?>}{$& =~ y/-/_/r}ge' your-file

    编辑文件in-place。

    • 2

  3. 在文件中使用您的示例：

    <charset-params>
    <input-charset>
        <resource-path>/*</resource-path>
        <java-charset-name>UTF-8</java-charset-name>
    </input-charset>
</charset-params>

    以下 awk 将以下列方式完成工作，它将“>”解释为要处理的节的结尾，并将使用“<”作为节的开头，因此在节内不考虑什么将保存在数组部分中，然后将处理节内的所有内容以使用 gsub 进行所需的替换，之后脚本必须恢复处理范围之外的分隔符和内容：

    awk ' {numrec=split($0,regs,">")
for (i=1; i<numrec; ++i){
  split(regs[i],part,"<")
  gsub("-","_",part[2])
  res = sprintf("%s%s",res, part[1] "<" part[2] ">")}
print res
res=""}' entraunder

    结果如下：

    <charset_params>
    <input_charset>
        <resource_path>/*</resource_path>
        <java_charset_name>UTF-8</java_charset_name>
    </input_charset>
</charset_params>

    高温高压

    • 1

  4. 使用 GNU awk 作为第三个参数来匹配（）和 gensub（）：

    $ awk '{
    while ( match($0,/(.*)(<[^>]*-[^>]*>)(.*)/,a) ) {
        $0 = a[1] gensub(/-/,"_","g",a[2]) a[3]
    }
    print
}' file
<charset_params>
    <input_charset>
        <resource_path>/*</resource_path>
        <java_charset_name>UTF-8</java_charset_name>
    </input_charset>
</charset_params>

    在每个 Unix 机器上的任何 shell 中使用任何 awk：

    $ awk '{
    while ( match($0,/<[^>]*-[^>]*>/) ) {
        tgt = substr($0,RSTART,RLENGTH)
        gsub(/-/,"_",tgt)
        $0 = substr($0,1,RSTART-1) tgt substr($0,RSTART+RLENGTH)
    }
    print
}' file
<charset_params>
    <input_charset>
        <resource_path>/*</resource_path>
        <java_charset_name>UTF-8</java_charset_name>
    </input_charset>
</charset_params>
    • 1

  5. 使用xqwhich 是一个命令行 XML 解析器，它是来自https://kislyuk.github.io/yq/yq的工具包的一部分（它是众所周知的 JSON 解析器的包装器）：jq

    xq -x '
    walk(
        if type == "object" then
            with_entries(.key |= gsub("-"; "_"))
        else
            .
        end
    )' file.xml

    这递归地遍历给定 XML 文件的整个结构，如果当前事物是一个对象，它会将在该对象中找到的所有键中的所有破折号替换为下划线。

    例子：

    $ cat file.xml 
<charset-params> 
    <input-charset> 
        <resource-path>/*</resource-path> 
        <java-charset-name>UTF-8</java-charset-name> 
    </input-charset> 
    <something/>
</charset-params>

    $ xq -x 'walk(if type == "object" then with_entries(.key|=gsub("-";"_")) else . end)' file.xml 
<charset_params>
  <input_charset>
    <resource_path>/*</resource_path>
    <java_charset_name>UTF-8</java_charset_name>
  </input_charset>
  <something></something>
</charset_params>

    该工具可以使用或选项xq执行就地编辑。-i--in-place

    • 0

相关问题