Dividindo palavras em caracteres separados por espaço [duplicado]

Aqui está uma solução Perl que também pode lidar com caracteres Unicode:

perl -C -pe 's/\S/$& /g'

Estou usando este arquivo um pouco mais complicado como entrada:

$ cat file
wat Blinns
allens witter
kemen na
se is goot
µëóþäéß©®·

Que dá:

$ perl -C -pe 's/\S/$& /g' file
w a t  B l i n n s 
a l l e n s  w i t t e r 
k e m e n  n a 
s e  i s  g o o t 
µ ë ó þ ä é ß © ® · 

O -pmeio significa "ler o arquivo de entrada linha por linha, aplicar o script fornecido por -ea cada linha e depois imprimir a linha resultante". O -Cpermite suporte unicode para que possamos lidar com caracteres semelhantes öe outros caracteres multibyte não-ASCII. Sem ele, você obteria:

$ perl  -pe 's/\S/$& /g' file
w a t  B l i n n s 
a l l e n s  w i t t e r 
k e m e n  n a 
s e  i s  g o o t 
� � � � � � � � � � � � � � � � � � � � 

Então, estamos usando o operador de substituição ( s/old/new/) com o gsinalizador lobal para substituir todas as ocorrências do padrão. O padrão \Ssignifica "qualquer caractere que não seja espaço em branco" e o substituímos por ele mesmo ( $&, no lado direito do operador de substituição, significa "o que quer que tenha correspondido") mais um espaço.

sed 's/[^ ]/& /g' /path/to/file

Adicione o parâmetro -i para fazer alterações no arquivo.

Usando Raku (anteriormente conhecido como Perl_6)

~$ raku -ne 'print m:g/\S/ ~ "\n";'     file

#OR:

~$ raku -pe 's:g/\s//; s:g/\S/$/ /;'    file

#OR:

~$ raku -pe 's:g/\s//; s:g/(\S)/$0 /;'  file

Alternativamente, usando a nova rotina do Raku comb(), ou de forma mais convencional com split():

~$ raku -ne '.comb(/\S/).put;'  file

#OR:

~$ raku -ne '.trans(" " => "").split("", :skip-empty).put;'  file

Aqui estão as respostas codificadas em Raku, uma linguagem da família Perl que oferece suporte de alto nível para Unicode. A primeira resposta simplesmente pega cada linha e printcorresponde a \Scaracteres que não sejam espaços em branco.

As próximas duas respostas são semelhantes à excelente resposta Perl postada por @terdon. Observe $/como você escreve a variável de captura no Raku ( $<>também funciona). Para quem não gosta de "barra invertida" , você pode colocar parênteses para obter uma captura numerada e usar $0 na substituição. Caso prefira manter espaços em branco entre as palavras, simplesmente exclua a s:g/\s//;afirmação.

As duas respostas finais acima usam comba rotina e splita rotina de Raku, respectivamente. A nova rotina de Raku comb()atua para extrair globalmente correspondências para um Regex desejado. O operador do Raku comb()age de forma inversa , permitindo que o Raku proíba Regexes nulos na rotina split()do Raku , o que esperançosamente torna o código do Raku mais robusto. split()Observe na resposta final que a rotina de Raku ainda usa uma string vazia split()literal .""

Exemplo de entrada (de @terdon):

wat Blinns
allens witter
kemen na
se is goot
µëóþäéß©®·

Exemplo de saída (todas as cinco respostas acima):

w a t B l i n n s
a l l e n s w i t t e r
k e m e n n a
s e i s g o o t
µ ë ó þ ä é ß © ® ·

Finalmente, para verificar se você removeu todas as strings vazias, etc., você pode adicionar uma chamada à rotina raku(or perl), logo antes de out put. Isso mostrará a representação interna dos dados do Raku (cada linha é um .Seqobjeto iterador):

~$ raku -ne '.comb(/\S/).perl.put;'   file
("w", "a", "t", "B", "l", "i", "n", "n", "s").Seq
("a", "l", "l", "e", "n", "s", "w", "i", "t", "t", "e", "r").Seq
("k", "e", "m", "e", "n", "n", "a").Seq
("s", "e", "i", "s", "g", "o", "o", "t").Seq
("µ", "ë", "ó", "þ", "ä", "é", "ß", "©", "®", "·").Seq


https://docs.raku.org/routine/comb    
https://raku.org