Temen2 adakah yg punya sample script perl untuk grouping.
Biasanya aku menggunakan awk, tetapi karena data besar dan keterbatasan
maksimal record katanya perl bisa/atau mungkin pakai bahasa pemrograman
lain.
Berikut kalo pake awk

bash-3.00$ more a1

a|8

a|1

a|10

b|2

c|3

d|4

d|4

e|5

f|6

g|7

g|90

bash-3.00$ awk -F'|' 'BEGIN {}{sum[$1] += $2;s[$1]++;}END{for ( i in sum )
print i" : "sum[i]" : "s[i]}' a1

d : 8 : 2

e : 5 : 1

f : 6 : 1

g : 97 : 2

a : 19 : 3

b : 2 : 1

c : 3 : 1

[Non-text portions of this message have been removed]

__._,_.___

Messages in this topic (1)

Recent Activity:

• New Members 82

--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Gabung, Keluar, Mode Kirim : itcenter-help@yahoogroups.com