主页 / ubuntu / 问题 / 1129567
Accepted
Liso
Asked: 2019-03-29 19:24:36 +0800 CST

如何将字符串添加到只有数字的文本行

  • 772

假设我有 6 行文本。

Series
Of
Word
73914
Again
Word

我需要在仅包含数字的行的开头添加一个字符串。说我插入number-

Series
Of
Word
number-73914
Again
Word

目前我运行两个命令来达到预期的结果。我想知道是否有更有效的方法。

注意：有 1000 多行，所以最好适用于所有行（我已经说明过）。

command-line sed text-processing awk

4 个回答

  1. Best Answer

    sed可以这样做：

    $ sed 's/^[[:digit:]]*$/number-&/' input.txt
Series
Of
Word
number-73914
Again
Word

    如果我们想考虑空行，我们将使用+and-r选项：

    $ sed -r 's/^[[:digit:]]+$/number-&/' input.txt
Series
Of
Word
number-73914
Again
Word
line below is empty

line above is empty

    验证一切正常后，您可以使用-i选项来编辑文件本身，即sed -i .... 否则，您始终可以使用 sed 's/^[[:digit:]]*$/number-&/' input.txt > output.txt

    请注意，这假定文件格式一致，每行没有前导空格或尾随空格。

    这是额外的Python：

    $ python3 -c 'import sys; print("\n".join([ "number-" + i.strip() if i.strip().isnumeric() else i.strip() for i in sys.stdin]))' < input.txt
Series
Of
Word
number-73914
Again
Word
line below is empty

line above is empty
    • 9

  2. 使用 awk 的一种方法：

    awk '/^[0-9]+$/{$0="number-"$0;}1'  file
    • 4

  3. 仅包含数字的行

    目前尚不清楚您是指数字还是仅 0-9。这是一个 Perl 单行代码，它挑选出 123、3.14 和 1e-12 之类的值，同时忽略了无穷大和非数字的各种表示：

    $ perl -MScalar::Util -ne 'chomp; if (!(m/^\s/ || m/^[\+-]?inf(?:inity)?$/i || m/^nan$/i) && Scalar::Util::looks_like_number($_)) { print("N:"); } print("$_\n");' <x
a
N:123
N:+1
N:-1
 1
b

1a
N:3.14
c
3.1415926 is an approximation of pi
N:1e-12
inf
Inf
Infinity
Infinity +1 sword
+Infinity
-infinity
NaN
1/2

    我将前缀更改为“N:”只是因为“number--1”看起来有点垃圾。请注意，例如，这会将“1”视为非数字。如果这是不受欢迎的行为，请不要对前导空格进行“m/^\s/”测试。

    如果您的意思是“0-9”，那么上面 Sergiy 的 sed 解决方案就可以了。

    • 3

  4. 你可以试试这个

    $cat input.txt
Series
Of
Word
73914
Again
Word

$awk '{ if($1 ~/[0-9]/) printf "number - %s\n",$1; else print $1 }' input.txt
Series
Of
Word
number - 73914
Again
Word
    • 2

相关问题