主页 / unix / 问题 / 458906
Accepted
Bjorn
Asked: 2018-07-28 09:09:00 +0800 CST

如果该行上有多个句点，则 sed 删除所有内容，直到并包括第一个句点，并对整个文件执行此操作

  • 772

sed如果该行上有多个句点，则删除直到并包括第一个句点的所有内容，并对整个文件执行此操作。

在 sed 之前：

akamai.com
cdnjs.cloudflare.com
com.cdn.cloudflare.net

sed 后：

akamai.com
cloudflare.com
cdn.cloudflare.net
awk sed

2 个回答

  1. Best Answer
    $ sed '/\..*\./s/^[^.]*\.//' file
akamai.com
cloudflare.com
cdn.cloudflare.net

    该sed脚本首先使用正则表达式匹配至少包含两个点的行\..*\.（也可以写成[.].*[.]）。对于与此匹配的行，将执行删除所有内容的替换，包括第一个点。

    与上述相比，使用awk, 有点冗长：

    $ awk -F '.' -vOFS='.' 'NF > 2 { n=split($0, a); $0=""; for (i=2;i<=n;++i) $(NF+1)=a[i] } 1' file
akamai.com
cloudflare.com
cdn.cloudflare.net

    在这里，只要有两个以上的点分隔字段，我们就将当前行拆分为点，然后从中重新创建当前记录，跳过第一个字段。末尾的尾随1导致打印每一行（修改或未修改）。

    awk以与解决方案相同的方式缩短sed：

    $ awk -F '.' 'NF > 2 { sub("^[^.]*\.", "") } 1' file
akamai.com
cloudflare.com
cdn.cloudflare.net
    • 13

  2. 您可以使用以下方法来解决此问题：

    perl -lpe '$_ = $1 if /\.(.*\..*)/' input-file.txt

    其中，我们依赖于regex一个点.字符，它可以看到另一个点，它是正确的。然后，右侧的任何内容都会被捕获，并在当前行中可用$1并填充到当前行中。然后-p选项将Perl其带到stdout不匹配的那个以及不匹配的那个。

    perl -F\\. -pale '$_ = join ".", splice @F, 1 if @F > 2' input.txt

    • 通过该选项逐行读取输入文件，-p也通过该选项打开自动打印。

    • 每条记录都在点上拆分，.并且存储在数组中的各个字段从@F选项开始索引。0-a

    • -l选项使RS = ORS = "\n"

    • 只有当数组中的元素超过 2 个时@F，即当前记录中至少有 2 个点时，我们才会选择这样的记录进行修改。

    • 对于这样的记录，splice @F, 1函数从第 2 次开始剥离元素并将它们呈现给join函数，然后使用点字符将它们连接起来，然后将其填充到$_当前记录中。

    • 然后该-p选项将此修改后的当前记录带到标准输出。无论如何，没有修改的那个会被默默地带到标准输出。

    使用GNU sed我们也可以在不使用捕获括号的情况下完成任务：

    sed -e 
    s/\./\n/2;T
    y/\n./.\n/
    s/\n/./2g
    s/.*\n//
' input.file

    输出：

    akamai.com
cloudflare.com
cdn.cloudflare.net
    • 1

相关问题