Làm cách nào tôi có thể xóa từ thứ 5 của mỗi dòng trong một tệp?

Tôi muốn xóa từ thứ 5 của mỗi dòng trong một tệp.

Nội dung hiện tại của tệp:

File is not updated or and will be removed  
System will shut down f within 10 seconds  
Please save your work 55 or copy to other location  
Kindly cooperate with us D  

Sản lượng dự kiến:

File is not updated and will be removed  
System will shut down within 10 seconds  
Please save your work or copy to other location  
Kindly cooperate with us

Thế còn cut:

$ cut -d' ' -f1-4,6- file.txt 
File is not updated and will be removed  
System will shut down within 10 seconds  
Please save your work or copy to other location  
Kindly cooperate with us

• -d' ' đặt dấu phân cách là không gian

• -f1-4,6- chọn trường thứ nhất đến thứ 4 (từ), để lại trường thứ 5 và sau đó tiếp tục in từ thứ 6 sang phần còn lại.

Một giải pháp với cut:

cut -d ' ' -f1-4 -f6- FILE

awk: xóa trường thứ 5

awk '{for (i=5; i<NF; i++) $i = $(i+1); NF--};1' file

Nếu bạn muốn lưu tệp tại chỗ: /programming//q/16529716/7552

Bạn chỉ có thể xóa nội dung của trường thứ 5, nhưng để lại 2 dấu tách trường đầu ra liên tiếp:

awk '{$5 = ""};1' file

Với POSIX sed:

sed -e 's/[^[:alnum:]_][[:alnum:]_][[:alnum:]_]*//4' <file

glenn đưa ra một giải pháp tương đương với

awk '{$ 5 = ""; in} ' tập tin

Như ông và những người khác đã chỉ ra, điều này

1. dải khoảng trắng hàng đầu và dấu vết từ mỗi dòng,
2. nén từng chuỗi khoảng trắng (khoảng trắng và / hoặc tab) vào một khoảng trắng và
3. để lại hai khoảng trống giữa thứ tư và sáu từ.

Một hack để khắc phục vấn đề thứ ba là

awk '{$ 5 = ""; in} ' tập tin | sed / s / / '

Điều này sẽ vẫn để lại một hoặc nhiều (các) không gian được thêm vào cuối bất kỳ dòng nào có năm hoặc ít hơn các từ đi vào. Nếu bạn có thể xác định một từ sẽ không bao giờ xuất hiện trong đầu vào,

awk '{$ 5 = "kỳ lân"; in} ' tập tin | sed 's / * kỳ lân //'

sẽ xử lý ngay cả điều đó (nhưng nó vẫn để lại vấn đề 1 và 2).

 sed 's/^\(\([[:blank:]]*[^[:blank:]]\{1,\}\)\{4\}\)[[:blank:]]*[^[:blank:]]*/\1/' YourFile > Output.txt

• posix sed dựa trên dấu tách không gian / tab (lớp meta [: blank:]])
• giữ khoảng trắng sau từ thứ 5 nhưng xóa từ trước

Mạnh mẽ hơn (sed lấy mẫu dài nhất có thể và mẫu có *thể bỏ lỡ phân tách hoặc từ trong phiên bản đầu tiên) nhưng phiên bản dài hơn một chút

sed 's/^\([[:blank:]]*\([^[:blank:]]\{1,\}[[:blank:]]\{1,\}\)\{4\}\[^[:blank:]]\{1,\}/\1/' YourFile > Output.txt

Perl.

perl -ne 'print $_ =~ /^(\w+ +\w+ +\w+ +\w+ +)\w+ (.*)/,"\n"' file

Một khả năng khác, giả sử GNU cắt giảm:

cut -d' ' -f5 --complement file.txt

Sử dụng Perl> 5.10 (và xuất thành công tất cả các dòng: 0)): -

perl -nE '/^((\w+ +){4})\w+ *(.*)/; say $1.$3' file