Início / unix / Perguntas / 777194
Accepted
Pound Hash
Asked: 2024-05-27 03:37:12 +0800 CST

Como editar palavras selecionadas preservando espaços em branco e novas linhas

  • 772

Por palavra quero dizer "uma sequência de caracteres separados por qualquer número de espaços em branco ou novas linhas".

Dados de amostra

on a rabbit's burrowing in the forest:
    a short tale

Resultados esperados

On a Rabbit's Burrowing in the Forest:
    A Short Tale

Nota: Para maiúsculas e minúsculas do título, a primeira letra de cada palavra de cada frase/frase deve ser maiúscula. Cada palavra depois disso deve começar com maiúscula, exceto as palavras minúsculas a , in , the . Também quero que os espaços em branco e as novas linhas sejam preservados.

Caso de teste reduzido

declare -a input
declare -a output

shopt -s extglob

IFS=

read -r -d '' input

for w in "${input[@]}"; do
    if [[ $w = "@(a|in|the)" ]]; then
        output+=( "$w" )
    else
        output+=( "${w@u}" )
    fi
done

echo "${output[@]}"

Isso preserva espaços em branco e novas linhas, mas transforma apenas a primeira "palavra", enquanto eu gostaria que todas as palavras, exceto a , in e transformadas .

bash

2 respostas

  1. Best Answer

    Para processamento de texto, use um utilitário de processamento de texto, não um loop bash . Para colocar o título na primeira sequência de espaços não em branco em uma linha e em todos aqueles que não sejam a, thee in, você pode usar perl:

    perl -pe '
  my $count;
  s{\S+}{
    my $word = $&;
    $count++ && $word =~ /^(?:in|a|the)\z/ ? $word : ucfirst($word)
  }ge'

    Se a entrada puder conter caracteres não ASCII e eles forem codificados em UTF-8, adicione a -Copção.

    Por exemplo:

    $ cat file
on a rabbit's burrowing in the forest:
    a fine short tale

    (observe o caractere fi( U+FB01 LATIN SMALL LIGATURE FI ) acima, que não é fseguido por i)

    $ perl -C -pe '...code above...' file
On a Rabbit's Burrowing in the Forest:
    A Fine Short Tale

    O que mostra como fazer o correto ucfirstnão é a mesma coisa que converter o primeiro caractere para maiúsculo.

    Se eu tivesse que usar um shell, preferiria usar o zsh:

    set -o extendedglob
keep=(in the a)
while IFS= read -r line; do
  line=${line//(#m)[^[:space:]]##/${keep[(re)$MATCH]-$MATCH[1]:u$MATCH[2,-1]}}
  print -r -- ${line/(#m)[^[:space:]]/$MATCH:u}
done

    Acho que é cerca de 14 vezes mais lento que o perl no meu sistema e não lida com isso ficorretamente. No entanto, ele respeita a localidade ao decodificar a entrada em texto e convertê-la para maiúsculas.

    Observe que zsh tem um operador de maiúsculas e minúsculas ( ${(C)var}), mas ele não se transformaria apenas foo-BAR-bazem Foo-Bar-Bazletras maiúsculas no primeiro caractere de sequências de caracteres que não são espaços em branco ( Foo-BAR-bazaqui).

    • 4

  2. Premissas:

    • Você deseja pegar um texto genérico, com várias linhas e colocar todas as palavras, exceto as especificadas, em maiúsculas. Mantendo as novas linhas e espaçamento. Assumindo espaços singulares entre palavras.
    • Como você não pode ter entrada multilinha para leitura da entrada do usuário, presumo que você realmente a lerá de alguma outra maneira.
    • Presumo também que você tenha espaços singulares entre as palavras.

    De qualquer forma, você precisa atualizar sua pergunta para esclarecer, mas isso pode ajudá-lo a conseguir o que deseja.

    #!/bin/bash

shopt -s extglob

# Define the multiline input variable
input="Hello this is the question for a specific person
Another line with a and the multiple spaces"

# Initialize output variable
output=""

# Read the input variable line by line
while IFS= read -r line
do
    # Split line into words and spaces
    IFS=' ' read -r -a words <<< "$line"

    for word in "${words[@]}"
    do
        if [[ "$word" == @(a|the) ]]
        then
            output+="$word "
        else
            output+="${word^^} "
        fi
    done
    # Add a newline character at the end of each line
    output+=$'\n'
done <<< "$input"

# Print the final output
echo -n "$output"
    • 2

relate perguntas