Xử lý văn bản - nối mỗi hai dòng bằng dấu phẩy

Tôi có hơn 1000 dòng trong một tập tin. Tệp bắt đầu như sau (số dòng được thêm):

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

Tôi cần chuyển đổi tệp này thành một tệp, với các mục được phân tách bằng dấu phẩy bằng cách nối mỗi hai dòng. Dữ liệu cuối cùng sẽ giống như

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

Những gì tôi đã cố gắng là - cố gắng viết một kịch bản shell và sau đó echochúng với dấu phẩy ở giữa. Nhưng tôi đoán một lớp lót hiệu quả đơn giản hơn sẽ thực hiện công việc ở đây có thể là trong sed/ awk.

Có ý kiến ​​gì không?

Chỉ cần sử dụng cat(nếu bạn thích mèo ;-)) và paste:

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

Giải thích: pasteđọc từ một số tệp và dán cùng các dòng tương ứng (dòng 1 từ tệp đầu tiên với dòng 1 từ tệp thứ hai, v.v.):

paste file1 file2 ...

Thay vì tên tệp, chúng ta có thể sử dụng -(dấu gạch ngang). pastelấy dòng đầu tiên từ file1 (đó là stdin). Sau đó, nó muốn đọc dòng đầu tiên từ file2 (cũng là stdin). Tuy nhiên, vì dòng stdin đầu tiên đã được đọc và xử lý, nên cái đang chờ trên luồng đầu vào là dòng thứ hai của stdin, pastevui vẻ dán vào dòng đầu tiên. Các -dtùy chọn đặt dấu phân cách để trở thành một dấu phẩy chứ không phải là một tab.

Ngoài ra, làm

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

PS Có, người ta có thể đơn giản hóa những điều trên để

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

hoặc là

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

trong đó có lợi thế của việc không sử dụng cat.

Tuy nhiên, tôi đã không sử dụng thành ngữ này cho mục đích rõ ràng, vì lý do rõ ràng - nó ít dài dòng hơn và tôi thích cat(CATS LÀ NICE). Vì vậy xin vui lòng không chỉnh sửa.

Ngoài ra, nếu bạn thích dán vào mèo (dán là lệnh ghép các tệp theo chiều ngang, trong khi mèo nối chúng theo chiều dọc), bạn có thể sử dụng:

paste file.in | paste -d, - -

Trong trường hợp bất kỳ ai hạ cánh ở đây đang tìm cách kết hợp tất cả các dòng vào một lớp lót CSV, hãy thử

cat file | tr '\n' ','

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

Sử dụng sed, nối (N) cứ sau 2 dòng và thay thế dòng mới (\ n) bằng ",".

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

Cũng lưu ý rằng vì chúng tôi chỉ thay thế một ký tự bằng một ký tự khác (mọi dòng mới khác bằng dấu phẩy), chúng tôi có thể làm việc trên tệp đầu vào tại chỗ:

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

(nhưng hãy cẩn thận, nó có thể không hoạt động trên các hệ thống không phải Unix có bộ kết thúc CRLF (như của Microsoft) mà một số POSIX được mô phỏng pastecó thể xử lý theo cách không phải Unix)

Đây là một lớp lót (mặc dù có khả năng hàng triệu lệnh-run-er) sử dụng Bash thuần túy:

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

Tôi sử dụng một lớp con (phần phụ) để tôi sẽ không phải lưu trữ và khôi phục IFS. Cái nào khác nên làm để không làm xáo trộn môi trường người dùng trong trường hợp nguồn có nguồn gốc. Thay thế sẽ là để vượt qua IFS mới chỉ readnhư trong IFS= read -r name, IFS= read -r code.

Thực tế là tất cả các lệnh trong vòng lặp được xây dựng trong trình bao làm cho hiệu năng của nó có thể chấp nhận được và thậm chí còn nhanh hơn các giải pháp khác cho các tệp nhỏ. Nhưng nhiều người sẽ coi đó là một thực hành tồi và người ta nên cẩn thận khi khái quát nó với bất cứ điều gì khác.

Đối với bộ câu trả lời hoàn chỉnh, một awkgiải pháp khả thi có thể là:

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

Hạt dẻ già của một awkthành ngữ

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

Có thể với perl quá,

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

Ví dụ:

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

Đầu ra: (lưu ý: xargs -L number_of_columnshoạt động độc đáo với hầu hết số lượng cột không chỉ mỗi hai dòng)

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

Giải pháp POSIX với pr:

pr -2 -a -t -s, file

http://pub.opengroup.org/onlinepub/9699919799/utilities/pr.html