AWK - SED - 如果以数字开头，则在每列的开头添加一个字符

您可以使用sed一次修改每一列：

sed -E 's/(^| )([[:digit:]])/\1c\2/g' input

(^| )如果您的字段分隔符不是空格，请将正则表达式这部分中的空格替换为您的字段分隔符。

• -E指定使用扩展正则表达式 (ERE) 而不是基本正则表达式 (BRE)
• s：s/regexp/replacement/
• (^| )匹配捕获组中行的开头或空格
• ([[:digit:]])匹配捕获组中的数字
• \1c\2第一个捕获组的内容 ( \1)、字符c、第二个捕获组的内容 ( \2)
• g全球

一旦结果令您满意并且您的sed实现支持它，您可以添加-i（-i ''在 FreeBSD 或诸如 macos 等衍生版本上）来就地修改文件。（-i.bak如果您想备份原始文件）

我会使用awk这样的 -oneliner：

• echo '4 r4 8 8 4' | awk '{ for (i=1; i<=NF; i++) if ($i ~ /^[0-9]/) $i = "c" $i }1'

希望有帮助:)

一种方法是使用正则表达式来测试每个字段是否以数字开头：

echo '4 r4 8 8 4' | awk '
{
  for (i=1; i<=NF; i++)
    if ($i ~ /^[0-9]+/) 
      printf "c%s%s", $i, i == NF ? ORS : OFS
    else
      printf "%s%s", $i, i == NF ? ORS : OFS
}'

输出：

c4 r4 c8 c8 c4

使用gawk：

$ awk '{$0=gensub(/(^|\s+)([0-9]+)/,"\\1c\\2", "g")}1' 

# The command for numbers instead of digits only
$ awk -v var="c" '{for(i=1;i<=NF;i++){ $i = ($i==$i+0 ? var : "") $i}}1'

使用Raku（以前称为 Perl_6）

~$ raku -pe 's:g / <(^ | \s+)> \d  /{$/}c/;'  file

#OR

~$ raku -pe 's:g /  (^ | \s+) (\d) /$0c$1/;'  file

以下是用 Raku（Perl 编程语言家族的成员）编写的答案。上面，使用逐行自动打印标志读取文件-pe。替换将是:g全局的，并表示：“如果遇到行首^或\s+空格，后跟\d数字，则替换。”

在第一个示例中，使用 Raku 的捕获标记删除空格后的匹配<(…)>。生成的$/匹配对象在替换中输出，后跟字母c。在第二个示例中，整个匹配包含在两个捕获 ($0和$1) 中，并在替换中输出为$0c$1。

输入示例：

4 r4 8 8 4

示例输出：

c4 r4 c8 c8 c4

或者（更明确地），下面将“规范”列之间的空白：

~$ raku -ne 'put .split(/ \s+ /).map: *.subst(/^ \d /, {"c$/" // ""});'  file

#OR

~$ raku -ne 'put .split(/ \s+ /).map: *.subst(/^ (\d) /, {"c$0" // ""});'   file

首先，输入行.split位于变量空白 ( \s+) 上，然后将每一列map放入其中，以便对以 a 开头的subst任何列进行 ituute ，并在匹配之前添加 a （此处使用match-object 或）。如果匹配未定义（使用 Raku 的“定义-OR”运算符），则不插入任何内容。返回的列之间有一个空格。^\dc$/$0//""

https://docs.raku.org/language/regexes#Regexes
https://raku.org

    echo "4 r4 8 8 4" | sed -E 's/\<([[:digit:]])/c\1/g'

使用 Miller ( mlr) 应用一个函数，将字符添加c到字段值（如果该值是数字）：

$ mlr --nidx put '$* = apply($*, func(k,v) { ch = (is_numeric(v) ? "c" : ""); return { k: ch . v } })' file
c4 r4 c8 c8 c4

这使用 Miller 将数据读取为 Unix 工具箱格式的数据集（换行符分隔的记录和空格分隔的字段），并对put每个记录应用一个表达式。

该put表达式用于apply()将匿名函数应用于每个字段。该函数测试字段的值，如果它是数字，则会在该值前面添加c，否则不会对其进行修改。

该is_numeric()测试适用于数字，而不仅仅是数字。这就是这个问题具体要求的：

$ cat file
4 r4 8.8 8e7 -4 9hello
$ mlr --nidx put '$* = apply($*, func(k,v) { ch = (is_numeric(v) ? "c" : ""); return { k: ch . v } })' file
c4 r4 c8.8 c8e7 c-4 9hello

您想测试初始数字，只需将is_numeric()测试替换为初始数字的测试：

$ cat file
4 r4 8.8 8e7 -4 9hello
$ mlr --nidx put '$* = apply($*, func(k,v) { ch = (v =~ "^[[:digit:]]" ? "c" : ""); return { k: ch . v } })' file
c4 r4 c8.8 c8e7 -4 c9hello