Início / unix / Perguntas / 763622
Accepted
nath
Asked: 2023-12-12 16:07:47 +0800 CST

AWK - SED - adicione um caractere ao início de cada coluna se ela começar com um número

  • 772

Como posso adicionar um caractere ao início de cada coluna que começa com um número:

Exemplo adicionando um ca:
4 r4 8 8 4

Então eu recebo esta saída:
c4 r4 c8 c8 c4

Deve funcionar para um número variável de colunas.

text-processing

7 respostas

  1. Você pode usar para modificar todas as colunas de uma vez:

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

    Se o seu separador de campos for diferente de um espaço, substitua o espaço (^| )nesta parte da expressão regular pelo seu separador de campos.

    • -Eespecifique para usar Expressão Regular Estendida (ERE) em vez de Expressão Regular Básica (BRE)
    • s:s/regexp/replacement/
    • (^| )corresponder ao início de uma linha ou espaço em um grupo de captura
    • ([[:digit:]])corresponder a um dígito em um grupo de captura
    • \1c\2o conteúdo do primeiro grupo de captura ( \1), o caractere c, o conteúdo do segundo grupo de captura ( \2)
    • gglobalmente

    Uma vez que o resultado o satisfaça e se sua sedimplementação o suportar, você poderá adicionar -i( -i ''no FreeBSD ou derivados como macos) para modificar o arquivo no local. ( -i.bakse você quiser fazer um backup do seu arquivo original)

    • 9
  2. Best Answer

    Eu usaria um awk-oneliner assim:

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

    Espero que tenha ajudado :)

    • 4

  3. Uma maneira seria usar uma expressão regular para testar se cada campo começa com um número:

    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
}'

    saída:

    c4 r4 c8 c8 c4
    • 1

  4. Usando 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'
    • 1

  5. Usando Raku (anteriormente conhecido como Perl_6)

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

#OR

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

    Aqui estão as respostas codificadas em Raku, um membro da família Perl de linguagens de programação. Acima, o arquivo é lido com os -pesinalizadores de impressão automática linear. A substituição será :gglobal e diz: " Se for encontrado o início da linha ^ou espaço em branco seguido de um dígito, substitua."\s+\d

    No primeiro exemplo, a correspondência após o espaço em branco é eliminada usando os <(…)>marcadores de captura de Raku. O $/match-object resultante é exibido na substituição, seguido pela letra c. No segundo exemplo, a correspondência inteira está contida em duas capturas ( $0e $1) e é gerada na substituição como $0c$1.

    Entrada de amostra:

    4 r4 8 8 4

    Saída de amostra:

    c4 r4 c8 c8 c4

    Alternativamente (e muito mais explicitamente), abaixo irá "regularizar" os espaços em branco entre as colunas:

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

#OR

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

    Primeiro, a linha de entrada está .splitno espaço em branco da variável ( \s+), então cada coluna é mapinserida para substituar quaisquer colunas ^começando com a \d, adicionando a cantes da correspondência (aqui usando $/match-object ou $0). //Se a correspondência for indefinida (usando o operador "OR definido" do Raku ), não insira ""nada. As colunas são retornadas com um único espaço em branco entre elas.

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

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

  7. Usando Miller ( mlr) para aplicar uma função que precede o caractere cao valor de um campo, se for um número:

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

    Isso usa Miller para ler os dados como um conjunto de dados formatado em caixa de ferramentas Unix (registros delimitados por nova linha com campos delimitados por espaço) e aplica uma putexpressão a cada registro.

    A putexpressão usa apply()para aplicar uma função anônima a cada campo. A função testa o valor do campo e, se for numérico, precede o valor com c, caso contrário, o deixa inalterado.

    O is_numeric()teste é verdadeiro para números , não apenas para dígitos. Isto é o que a pergunta pede especificamente:

    $ 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

    Você gostaria de testar um dígito inicial , basta substituir o is_numeric()teste por um teste para um dígito inicial:

    $ 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
    • 1

relate perguntas