UNIX: Sostituire Newline w/Colon, Preservare Newline Prima EOF

Question

Ho un file di testo ("INPUT.TXT") del formato:

A<LF> 
B<LF> 
C<LF> 
D<LF> 
X<LF> 
Y<LF> 
Z<LF> 
<EOF> 

che ho bisogno di riformattare a:

A:B:C:D:X:Y:Z<LF> 
<EOF> 

So che puoi farlo con "sed". C'è un miliardo di hit di Google per fare ciò con "sed". Ma sto cercando di enfatizzare la leggibilità, la semplicità e l'utilizzo dello strumento corretto per il lavoro corretto. 'sed' è un editor di riga che consuma e nasconde i newline. Probabilmente non è lo strumento giusto per questo lavoro!

Penso che lo strumento corretto per questo lavoro sarebbe "tr". Posso sostituire tutte le newline con due punti con il comando:

cat INPUT.txt | tr '\n' ':' 

C'è il 99% del mio lavoro svolto. Ho un problema, ora, però. Sostituendo tutte le newline con i due punti, non solo ottengo un colon estraneo alla fine della sequenza, ma perdo anche il ritorno a capo alla fine dell'input. Assomiglia a questo:

A:B:C:D:X:Y:Z:<EOF> 

Ora, ho bisogno di rimuovere i due punti dalla fine dell'input. Tuttavia, se provo a passare questo input elaborato attraverso 'sed' per rimuovere il colon finale (che ora, penso, sia un uso corretto di 'sed'), mi trovo con un secondo problema. L'input non è più terminato da un newline! 'sed' fallisce completamente, per tutti i comandi, perché non trova mai la fine della prima riga di input!

Sembra che l'aggiunta di una nuova riga alla fine di alcuni input sia un compito molto, molto comune, e considerando che io stesso ero solo tentato di scrivere un programma per farlo in C (che richiederebbe circa otto righe di codice), Non riesco a immaginare che non ci sia già un modo molto semplice per farlo con gli strumenti già disponibili nel kernel di Linux.

Answer 1

Questo dovrebbe fare il lavoro (cat e echo sono inutili):

tr '\n' ':' < INPUT.TXT | sed 's/:$/\n/' 

Utilizzando solo sed:

sed -n ':a; $ ! {N;ba}; s/\n/:/g;p' INPUT.TXT 

Bash senza esterni:

string=($(<INPUT.TXT)) 
string=${string[@]/%/:} 
string=${string//: /:} 
string=${string%*:} 

utilizzando un ciclo in sh:

colon='' 
while read -r line 
do 
    string=$string$colon$line 
    colon=':' 
done < INPUT.TXT 

Utilizzando AWK:

awk '{a=a colon $0; colon=":"} END {print a}' INPUT.TXT 

Oppure:

awk '{printf colon $0; colon=":"} END {printf "\n" }' INPUT.TXT 

Edit:

Ecco un altro modo in puro Bash:

string=($(<INPUT.TXT)) 
saveIFS=$IFS 
IFS=':' 
newstring="${string[*]}" 
IFS=$saveIFS 

Edit 2:

Ecco ancora un altro modo che fa uso echo:

echo "$(tr '\n' ':' < INPUT.TXT | head -c -1)" 

Answer 2

Ecco un'altra soluzione: (assume un set di caratteri in cui ':' è ottale 72, es. ascii)

 
perl -l72 -pe '$\="\n" if eof' INPUT.TXT 

Answer 3

Vecchia domanda, ma

paste -sd: INPUT.txt