как положить | между линиями содержимого текстового файла?

Question

У меня есть файл, содержащий:

L1 
L2 
L3 
. 
. 
. 
L512 

Я хочу изменить его содержание:

L1 | L2 | L3 | ... | L512 

Это кажется так просто, но в настоящее время 1 час Im сидит и пытается сделать это, я попытался сделать это sed, но не получил то, что я хочу. Кажется, что sed просто вставляет пустые строки между контентом, любые предложения, пожалуйста?

Answer 1

С СЭД это требует, чтобы прочитать весь вход в буфер, а затем заменить все символы новой строки по |, как это:

sed ':a;N;$!ba;s/\n/ | /g' input.txt 

Часть 1 - b uffering входа

:a определяет метку под названием «а» N получает следующую строку из входных данных и добавляет его в шаблоне буфер $!ba перескакивает на a, если конец ввода не будет достигнут

Часть 2 - замена новых строк от |

s/\n/|/ выполнить команду замены по образцу buffern

---

Как вы можете видеть, это очень неэффективно, так как требует, чтобы:

• прочитать полный ввод в память
• работает три раза на входе: 1. чтение, 2. Подставив, 3. печати

Поэтому я бы предложил использовать AWK, которые могут сделать это в одном цикле:

awk 'NR==1{printf $0;next}{printf " | "$0}END{print ""}' input.txt 

Answer 2

Вот один sed

sed ':a;N;s/\n/ | /g;ta' file 
L1 | L2 | L3 | ... | L512 

И один awk

awk '{printf("%s%s",sep,$0);sep=" | "} END {print ""}' file 
L1 | L2 | L3 | ... | L512 

Answer 3

Несколько вариантов, в том числе MENT ioned здесь:

paste -sd'|' file 
sed ':a;N;s/\n/ | /g;ta' file 
sed ':a;N;$!ba;s/\n/ | /g' file 
perl -0pe 's/\n/ | /g;s/ \| $/\n/' file 
perl -0nE 'say join " | ", split /\n/' file 
perl -E 'chomp(@x=<>); say join " | ", @x' file 
mapfile -t ary < file; (IFS="|"; echo "${ary[*]}") 
awk '{printf("%s%s",sep,$0);sep=" | "} END {print ""}' file 

Answer 4

perl -pe 's/\n/ |/g unless(eof)' file 

Answer 5

если пространство между | не является обязательным

tr "\n" '|' YourFile