ฉันควรใช้อะไรเมื่อตัดไม่ได้?

ฉันมีไฟล์citiesเช่นนี้:

[1598] San Diego, US (inactive)
[4517] St Louis, US (inactive)
[6346] Orlando, US (inactive)

ฉันต้องการตัดชื่อเมืองออกเพื่อที่ฉันจะได้:

San Diego
St Louis
Orlando

นี่คือสิ่งที่ดีที่สุดที่ฉันสามารถทำได้:

cut -d ',' -f1 cities | cut -d ']' -f2

แต่นั่นยังทำให้ฉันมีช่องว่างหน้าชื่อ มีcutคำสั่ง like ที่ฉันสามารถใช้ที่รับตัวคั่นของอักขระหลายตัวเพื่อให้ฉันสามารถตัดต่อได้]หรือไม่?

Awk (ตรวจสอบข้อมูล Awk ด้วย ) สวยงามด้วยคำถามแบบนั้น ลอง:

awk -F'[],] *' '{print $2}' cities

สิ่งนี้จะกำหนดตัวคั่นฟิลด์-Fเป็น[],] *- ซึ่งหมายถึงการเกิดขึ้นครั้งเดียวของวงเล็บเหลี่ยมปิดหรือเครื่องหมายจุลภาคตามด้วยศูนย์หรือจำนวนช่องว่างใด ๆ แน่นอนคุณสามารถเปลี่ยนสิ่งนั้นให้เหมาะสมกับความต้องการได้ อ่านค่าในนิพจน์ทั่วไป

เมื่อแบ่งบรรทัดแล้วคุณสามารถทำสิ่งที่คุณต้องการด้วยผลการแยก print $2นี่ฉันตัดสินใจที่จะพิมพ์ออกฟิลด์ที่สองเท่านั้นที่มี โปรดทราบว่ามันเป็นสิ่งสำคัญที่จะใช้เครื่องหมายคำพูดเดี่ยวรอบคำสั่ง awk มิฉะนั้น $ 2 จะถูกแทนที่ด้วยเชลล์

คุณสามารถแก้ไขล่าสุดcutในไปป์ไลน์ของคุณเป็น:

cut -d ' ' -f2-

ข้างต้นหมายความว่าตัวคั่นฟิลด์เป็นช่องว่างและเราต้องการเลือกเขตข้อมูลทั้งหมดที่เริ่มต้นจากที่สอง ลำดับที่สมบูรณ์จะกลายเป็น:

cut -d ',' -f1 cities | cut -d ' ' -f2-

สำหรับการวิเคราะห์คำที่ซับซ้อนยิ่งขึ้นคุณควรใช้sed (1) :

sed -e 's/\[[0-9]\+\] \([^,]\+\),.*/\1/' cities

หรือใช้-rเพื่อลดความซับซ้อนของการแสดงออกปกติตามที่แนะนำโดยpepoluan :

sed -re 's/\[[0-9]+\] ([^,]+),.*/\1/' cities

ปกติฉันจะใช้ Perl เมื่อสิ่งต่าง ๆ ยากเกินกว่าจะล่อลวงและตะไคร่

มีหลายวิธีที่คุณสามารถเขียนเป็น Perl ได้ ตัวอย่างเช่นคุณอาจต้องการให้เร็วหรือคุณอาจต้องการจัดการกับปัญหาที่ไม่คาดคิดเล็กน้อยในอินพุต (เช่นสองช่องว่างที่คาดว่าจะมี)

วิธีหนึ่งที่ชัดเจน (สมมติว่า id คือตัวเลขเมืองเป็นตัวอักษรสถานะเป็นตัวอักษร):

while (<>) {
    if (/^\[\d+\] (\w+(?: \w+)*), \w+ \(\w*\)$/) {
        my $city = $1;
        print "$city\n";
    }
}

หรือช้าลง แต่ได้รับอนุญาตมากขึ้น (ทำ backtracking มากขึ้น):

while (<>) {
    if (/^.*\]\s+(.*),.*$/) {
        my $city = $1;
        print "$city\n";
    }
}

หรือเร็วกว่า (ฟิลด์หยุดเมื่อเกิดวงเล็บปิดครั้งแรก):

while (<>) {
    if (/^\[[^]]*\] ([^,]*), \S+ \([^)]*\)$/) {
        my $city = $1;
        print "$city\n";
    }
}

จากบรรทัดคำสั่งมากกว่าสคริปต์คุณสามารถใช้-nตัวเลือกซึ่งโดยทั่วไปจะเพิ่มwhile (<>) { BLOCK }วง:

perl -ne '/^\[[^]]*\] ([^,]*), \S+ \([^)]*\)$/ and print $1, "\n";' cities

หรือถ้าคุณต้องการให้การใช้งานมีลักษณะคล้ายกับการตัดคุณสามารถใช้-Fตัวเลือกซึ่งคล้ายกับ-Fตัวเลือกของ awk ตัวอย่างเช่น:

perl -a -n -F'/[],]\s+/' -e 'print $F[1], "\n"' cities

วิธีนี้ถือว่าชัดเจนว่าไม่มีฟิลด์ใดที่จะมีตัวคั่นใด ๆ