Обробка тексту - з'єднуйте кожні два рядки комами

У мене є більше 1000 рядків у файлі. Файл починається наступним чином (додаються номери рядків):

Station Name
Station Code
A N DEV NAGAR
ACND
ABHAIPUR
AHA
ABOHAR
ABS
ABU ROAD
ABR

Мені потрібно конвертувати це у файл із записами, розділеними комами, шляхом з'єднання кожні два рядки. Кінцеві дані повинні виглядати так

Station Name,Station Code
A N DEV NAGAR,ACND
ABHAIPUR,AHA
ABOHAR,ABS
ABU ROAD,ABR
...

Я намагався - спробувати написати сценарій оболонки, а потім echoїх із комою між ними. Але я здогадуюсь, що простіший ефективний однокласник зробив би цю роботу, можливо, в sed/ awk.

Якісь ідеї?

Просто використовуйте cat(якщо вам подобаються коти ;-)) та paste:

cat file.in | paste -d, - - > file.out

Пояснення: pasteчитає з декількох файлів і вставляє разом відповідні рядки (рядок 1 з першого файлу з рядком 1 з другого файлу тощо):

paste file1 file2 ...

Замість імені файлу ми можемо використовувати -(тире). pasteбере перший рядок з file1 (що є stdin). Потім він хоче прочитати перший рядок з file2 (що також stdin). Однак, оскільки перший рядок stdin вже був прочитаний та оброблений, то тепер на вхідному потоці чекає другий рядок stdin, який pasteщасливо склеюється з першим. Цей -dпараметр встановлює роздільник як кома, а не вкладка.

Крім того, зробіть

cat file.in | sed "N;s/\n/,/" > file.out

PS Так, можна спростити вищесказане

< file.in sed "N;s/\n/,/" > file.out

або

< file.in paste -d, - - > file.out

що має перевагу не використовувати cat.

Тим НЕ менше, я не використовував цю ідіому навмисне , для наочності - це менш багатослівним , і я , як cat(Котам NICE). Тому, будь ласка, не редагуйте.

Крім того, якщо ви віддаєте перевагу вставці котам (paste - це команда об'єднувати файли по горизонталі, а кішка об'єднує їх вертикально), ви можете використовувати:

paste file.in | paste -d, - -

У випадку, якщо хтось, хто тут приземлився, хоче об'єднати всі лінії в один лайнер CSV, спробуйте

cat file | tr '\n' ','

sed 'N;s/\n/,/' file

Використовуючи sed, з'єднайте (N) кожні 2 рядки та замініть новий рядок (\ n) на ",".

paste -sd ',\n' file.in > file.out

Також зауважте, що оскільки ми просто замінюємо один символ на інший (кожен інший новий рядок комою), ми можемо працювати над вхідним файлом на місці:

paste -sd ',\n' file.in 1<> file.in

(але будьте обережні, це може не працювати в системах, що не мають Unix, які мають термінали CRLF (наприклад, Microsoft), які деякі емульовані POSIX pasteможуть обробляти не-Unix способом)

Ось однолінійний (хоча потенційно мільйони команд запустіть-er) за допомогою чистого Bash:

(IFS=; while read -r name; do read -r code; printf '%s\n" "$name,$code"; done < file.in) > file.out

Я використовую нижню оболонку (парантез), щоб мені не довелося зберігати та відновлювати IFS. Що інакше слід зробити, щоб не зіпсувати середовище користувачів, якщо джерело знайдеться. Альтернативою було б передати , що нові IFS тільки readяк в IFS= read -r name, IFS= read -r code.

Той факт, що всі команди в циклі вбудовані в оболонку, робить її ефективність прийнятною і навіть швидшою, ніж інші рішення для невеликих файлів. Але багато людей вважають це поганою практикою, і слід бути обережними, узагальнюючи її до чого-небудь іншого.

Для повного набору відповідей можливим awkрішенням може бути:

awk 'NR%2==1 {printf $0","} NR%2==0 { print $0}' *file*

Хриплий старий каштан awkідіоми

awk '{ORS=NR%2?",":"\n";print}' file
Station Name,Station Code
A N DEV NAGAR,ACND
ABHAIPUR,AHA
ABOHAR,ABS
ABU ROAD,ABR

Можливо і з perl,

perl -pe 's/^\d+\.\s+//;$.&1?chomp:print","' file

Наприклад:

seq 0 70 | xargs -L 2 | sed 's/ /,/g'

Вихід: (Примітка: xargs -L number_of_columnsчудово працює з більшістю будь-якої кількості стовпців, а не кожні два рядки)

0,1
2,3
4,5
6,7
8,9
10,11
12,13
14,15
16,17
18,19
20,21
22,23
24,25
26,27
28,29
30,31
32,33
34,35
36,37
38,39
40,41
42,43
44,45
46,47
48,49
50,51
52,53
54,55
56,57
58,59
60,61
62,63
64,65
66,67
68,69
70

POSIX рішення з pr:

pr -2 -a -t -s, file

http://pubs.opengroup.org/onlinepubs/9699919799/utilities/pr.html