主页 / unix / 问题 / 788867
Accepted
Kishan
Asked: 2024-12-30 20:54:43 +0800 CST

Bash 脚本用于取消注释具有特定模式的文件上带有前导空格的行

  • 772

我尝试使用 bash 在 oracle linux 8.6 中使用模式取消注释文件中的特定行。某些行上的前导空格未被删除。我尝试使用 sed 和 grep 取消注释注释行以匹配模式。我需要精确匹配输出中的两个数字。文件中每列（共 2 列）有一个单词，每个单词都有数字。

例如： column1:pd 19 _ORA column2:svg 38。

我需要取消注释完全匹配 19 和 38 的行，但不包含 190、1900 或 019 等，例如，

   #pd19_ORA svg37 
#pd199_ORA svg388

代码：

sed -n '/\<19\>/,+1p' cmfile|grep '38'|sed -i '/38/s/^#//g' cmfile

文件内容：

    #pd19_ORA svg38
#pd19_ORA sil38
#pd29_ORA sil37

使用 sed 和 inplace 后第一行仍然被注释，但第二行的注释被删除。

输出：

    #pd19_ORA svg38
pd19_ORA sil38
#pd29_ORA sil37

如何删除第一行带有前导空格的注释而不删除前导空格？

预期输出：

    pd19_ORA svg38
pd19_ORA sil38
#pd29_ORA sil37
shell-script

4 个回答

  1. 您可以尝试awk使用这样的命令来完成工作。如果您需要特定的字符串19和38特定位置，则应在问题中提及它：

    awk '/19/ && /38/ {sub(/#/,"")}1'

    此命令搜索带有 的行19并38删除#符号。然后打印该行（无论它是否匹配和编辑）

    awk '/19/ && /38/ {sub(/#/,"")}1' input_file
    pd19_ORA svg38
pd19_ORA sil38
#pd29_ORA sil37

    如果您想确定#该行中是否有第一个非空白符号，您可以像这样修改脚本：

     awk '/19/ && /38/ && $1 ~ "^#" {sub(/#/,"")}1' input_file

    这里是更改后的脚本，用于搜索特定字符串并匹配所需的数字：

    awk '$1~/pd19_ORA$/ && $2~/[a-z]{3}38$/ && $1 ~ "^#" {sub(/#/,"")}1'
    • 2
  2. Best Answer

    我认为您希望#从包含数字的所有行中删除前导字符19，同时保留任何前导空格

    sed -E '/[^0-9]19([^0-9]|$)/s/^([[:space:]]*)#/\1/' cmfile

    这将搜索包含19（但两侧没有数字，例如019或193）的行，因为我无法\<19\>匹配此处的任何行。

    如果您想要包含以下内容的行19，38则只需扩展初始行匹配：

    sed -E '/[^0-9]19[^0-9](.*[^0-9]|)38([^0-9]|$)/s/^([[:space:]]*)#/\1/' cmfile

    在这两种情况下，对于所有匹配的行，我们都会捕获#字符前面的任何前导空格，以便将其添加回输出中。

    最后，作为另一种变体，sed -i ...可用于更新看似到位的文件

    • 1

  3. 假设您想要取消注释包含 38 的行，并且该行位于包含单词分隔¹的行之后，19正如您的尝试建议的那样，您可能需要执行以下操作：

    perl -pi -e 's/^\s*\K#// if $flag && /38/; $flag = /\b19\b/' your-file

    在您的：

    sed -n '/\<19\>/,+1p' cmfile|grep '38'|sed -i '/38/s/^#//g' cmfile

    该sed -i '/38/s/^#//g' cmfile命令不会读取其输入，它只会在适当位置进行编辑，删除包含的任何行上的cmfile前导（顺便说一句，是多余的，因为只能有一次替换）。#38g

    因此这sed -n '/\<19\>/,+1p' cmfile|grep '38'是毫无意义的，因为没有任何东西读取它的输出。

    另请注意，所有的-i、都是非标准 GNU 扩展²，但命令可以在任何系统上运行³ +1。\<\>perl

    编辑

    根据您更新后的要求，您想要取消注释第一个字段包含 19 且第二个字段包含 38（它们本身没有被其他数字包围）的行：

    perl -api -e 's/^\s*\K#// if $F[0] =~ /(?<!\d)19(?!\d)/ &&
                             $F[1] =~ /(?<!\d)38(?!\d)/' your-file

    这里使用-awk 模式，字段在数组中可用@F，或者，如果两侧可能有空格#，导致第一个字段成为第二个字段，请使用正则表达式进行整行匹配：

    perl -pi -e 's/^\s*\K#(?=\s*\S*(?<!\d)19(?!\d)\S*\s+\S*(?<!\d)38(?!\d))//' your-file

    我们所拥有的（详情请参阅perldoc perlrun和perldoc perlop）perldoc perlre：

    • -p：sed模式，其中-e对每行输入评估 xpression。
    • -i：in 位编辑
    • s/regexp/replacement/：s用 替换正则表达式的第一个匹配项replacement。
    • \s：任何空白字符，\S用于非空白。
    • <atom>*：前一个原子重复任意次数（包括 0 次），尽可能多
    • \K：K保留左侧的内容，或者 IOW 重置最终将被替换的比赛的开始。
    • (?=...)：积极前瞻，或 IOW“只要接下来的内容匹配...”
    • (?<!...)：负面后视，或 IOW“假设前面的内容不匹配...”
    • (?!...)：负面前瞻
    • \d：任意十进制数字字符。如果没有-C（对于 Unicode 模式），则限制为 0123456789。

    ¹ 无论如何，19inpd19_ORA不是以单词分隔的，因为d和_都是单词字符；如果您想要匹配前面19和后面都没有十进制数字的，则可以使用(?<!\d)19(?!\d)而不是\b19\b（perl 中相当于ex' \<19\>）。

    ² 嗯，严格来说，\<\>起源于ex/ vi，而不是 GNUsed并且是由 GNU从和-i复制而来。sedperl,+1ed

    ³ 不过，您需要 perl 5.10.0（自 2007 版）或更新版本\K（以K保留其左侧内容）。在将使用旧版本的系统上perl，您可以将其替换s/^\s*\K#//为s/^(\s*)#/$1/。

    • 1

  4. ^#仅匹配#行首。允许注释前有空格的另一种方法是^[ \t]*#

    因此，这一行应该有效：

    sed -n '/\<19\>/,+1p' cmfile|grep '38'|sed -i '/38/s/^\([ \t]*\)#/\1/g' cmfile
    • 0

相关问题