Đếm số lần xuất hiện trong cột đầu tiên của tệp

Chúng tôi có tập tin này:

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

và hơn 1000.

Tôi muốn đếm số lần mỗi giá trị xảy ra trong cột đầu tiên.

1  3 
3  1
52 2

Điều này có nghĩa là chúng tôi đã thấy 1ba lần.

Làm thế nào tôi có thể làm điều đó, trong Perl, AWK hoặc Bash?

Nếu đầu vào được sắp xếp, bạn có thể sử dụng uniq:

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

Nếu không, hãy sắp xếp nó trước:

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

Đầu ra:

  3 1                                      
  1 3
  2 52

Đầu ra được hoán đổi so với yêu cầu của bạn, bạn có thể sử dụng awk '{ print $2, $1 }'để thay đổi điều đó.

1 3 
3 1
52 2

Ngoài ra còn có thành ngữ awk, không yêu cầu đầu vào được sắp xếp:

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

Đầu ra:

1 3
52 2
3 1

Vì đầu ra ở đây xuất phát từ hàm băm nên nó sẽ không được đặt hàng, chuyển đến sort -nnếu cần:

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

Nếu bạn đang sử dụng GNU awk, bạn có thể thực hiện sắp xếp từ bên trong awk:

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

Trong hai trường hợp cuối, đầu ra là:

1 3
3 1
52 2