การนับจำนวนที่เกิดขึ้นในคอลัมน์แรกของไฟล์

เรามีไฟล์นี้:

1 2 
1 3
1 2
3 3
52 1
52 300

และอีก 1,000

ฉันต้องการนับจำนวนครั้งที่แต่ละค่าเกิดขึ้นในคอลัมน์แรก

1  3 
3  1
52 2

ซึ่งหมายความว่าเราเห็น 1 สามครั้ง.

ฉันจะทำสิ่งนั้นใน Perl, AWK หรือ Bash ได้อย่างไร

หากอินพุตถูกเรียงลำดับคุณสามารถใช้ uniq:

<infile cut -d' ' -f1 | uniq -c

ถ้าไม่ใช่ให้เรียงก่อน:

<infile cut -d' ' -f1 | sort -n | uniq -c

เอาท์พุท:

  3 1                                      
  1 3
  2 52

เอาท์พุทเป็นแลกเปลี่ยนเมื่อเทียบกับความต้องการของคุณคุณสามารถใช้ awk '{ print $2, $1 }' เพื่อเปลี่ยนสิ่งนั้น

1 3 
3 1
52 2

นอกจากนี้ยังมีสำนวน awk ซึ่งไม่จำเป็นต้องป้อนข้อมูลเรียง:

awk '{h[$1]++}; END { for(k in h) print k, h[k] }'

เอาท์พุท:

1 3
52 2
3 1

เมื่อเอาต์พุตที่นี่มาจากแฮชจะไม่ถูกสั่งให้ส่งผ่าน sort -n ถ้าจำเป็น

awk '{h[$1]++} END { for(k in h) print k, h[k] }' | sort -n

หากคุณใช้ GNU awk คุณสามารถทำการเรียงลำดับจากภายใน awk:

awk '{h[$1]++} END { n = asorti(h, d, "@ind_num_asc"); for(i=1; i<=n; i++) print d[i], h[d[i]] }'

ในสองกรณีสุดท้ายผลลัพธ์คือ:

1 3
3 1
52 2