ฉันจะลบคำที่ 5 ของทุกบรรทัดในไฟล์ได้อย่างไร

ฉันต้องการลบคำที่ 5 ของแต่ละบรรทัดในไฟล์

เนื้อหาปัจจุบันของไฟล์:

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  

ผลลัพธ์ที่คาดหวัง:

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

เกี่ยวกับ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' ' กำหนดตัวคั่นเป็นพื้นที่

• -f1-4,6- เลือกฟิลด์แรกถึง 4 (คำ) ปล่อยให้ฟิลด์ที่ 5 จากนั้นพิมพ์ต่อจาก 6 ไปยังที่เหลือ

วิธีแก้ปัญหาด้วยcut:

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

awk: ลบฟิลด์ที่ 5

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

หากคุณต้องการบันทึกไฟล์แบบแทนที่: /programming//q/16529716/7552

คุณสามารถลบเนื้อหาของฟิลด์ที่ 5 ได้ แต่จะทำให้มีตัวคั่นฟิลด์เอาต์พุตต่อเนื่องกัน 2 ตัว:

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

ด้วย POSIX sed:

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

Glennเสนอวิธีแก้ปัญหาที่เทียบเท่า

awk '{$ 5 = ""; ไฟล์ } พิมพ์ '

ในขณะที่เขาและคนอื่น ๆ ชี้ให้เห็นสิ่งนี้

1. แถบชั้นนำและช่องว่างต่อท้ายจากทุกบรรทัด
2. บีบอัดแต่ละช่องว่าง (ช่องว่างและ / หรือแท็บ) ลงในช่องว่างเดียวและ
3. เว้นสองช่องว่างระหว่างคำที่สี่และหก

แฮ็คเพื่อแก้ไขปัญหาที่สามคือ

awk '{$ 5 = ""; พิมพ์} ' ไฟล์ | sed 's / / /'

การทำเช่นนี้จะทำให้มีช่องว่างเพิ่มอีกหนึ่งช่องหรือท้ายบรรทัดที่มีห้าคำหรือน้อยกว่านั้นหากคุณสามารถระบุคำที่ไม่เคยปรากฏในอินพุต

awk '{$ 5 = "ยูนิคอร์น"; พิมพ์} ' ไฟล์ | sed 's / * unicorn //'

จะจัดการแม้กระทั่ง (แต่ก็ยังทำให้เกิดปัญหา 1 และ 2)

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

• posix sed ตามตัวคั่นช่องว่าง / แท็บ (คลาสเมตา [: blank:]])
• รักษาช่องว่างต่อไปนี้หลังจากคำที่ 5 แต่ลบออกก่อน

มีประสิทธิภาพมากขึ้น (sed ใช้รูปแบบที่ยาวที่สุดที่เป็นไปได้และรูปแบบที่*อาจพลาดการแยกหรือคำในรุ่นแรก) แต่รุ่นที่ยาวกว่าเล็กน้อย

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

ความเป็นไปได้อีกข้อสมมติว่า GNU ลด:

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

ใช้ Perl> 5.10 (และประสบความสำเร็จในการแสดงผลทุกบรรทัด: 0)): -

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