Yah karena sudah 'dipanas-panasin' akhirnya saya merelakan minggu pagi
saya ngerjain yg ini.. hehehe..
On Sun, Jan 31, 1999 at 06:41:35PM +0700, Priyadi Iman Nurcahyo wrote:
> coba pake konstruksi sederhana seperti ini:
> $ cat daftar_subscriber | sed s/^[^\\@]*\\@//g | uniq -c
Masalahnya itu daftar_subscribernya dipisah2 sama ezmlm ke banyak file
dan formatnya bukan per baris, jadi mesti saya bikin perl script dulu
untuk split (dan sekalian saya masukin itu regex substitutionnya).
Trus kalo mau pake uniq mesti di-sort dulu.
Jadi pertama saya gabung dulu filenya:
[~]$ cd subscribers ; for a in `ls`; do cat $a >> ~/daftar; done
Dan hasilnya sbb:
Total pelanggan:
[~]$ cat daftar |./split.pl |wc -l
647
Sepuluh besar:
[~]$ cat daftar |./split.pl |sort |uniq -c |sort -rn |head -n 10
52 hotmail.com
45 usa.net
23 cbn.net.id
19 telkom.net
17 centrin.net.id
16 mailcity.com
15 iname.com
13 softhome.net
12 bdg.centrin.net.id
11 bigfoot.com
Lima besar dari *.id:
[~]$ cat daftar |./split.pl |grep '\.id$' |sort |uniq -c \
|sort -rn |head -n 5
23 cbn.net.id
17 centrin.net.id
12 bdg.centrin.net.id
10 indo.net.id
7 stikom-sby.ac.id
______________________________________________________________________
Utk berhenti langganan kirim email ke [EMAIL PROTECTED]
Sudah cari di arsip? http://www.linux.or.id/milis.php3#arsip-id-linux
Utk info etika diskusi, kirim email kosong ke [EMAIL PROTECTED]
