Search Results

Or event better (ha!):

[GNU Awk]
WHINY_USERS=1 awk 'END {
for (k in r) t[sprintf("%10d", r[k])] = k
for (k in t) print t[k]}
{ r[$0] = NR }
' filename

If GNU Awk is not available:
...

With GNU Awk:

awk 'END { for (k in r) t[sprintf("%10d", r[k])] = k
n = asorti(t, _)
while (++i <= n) print t[_[i]] }
{ r[$0] = NR }' filename

As I said,
you just need to search the forums to find the following solutions:


awk '!_[$0]++' input

perl -ne'print unless $_{$_}++' input

or:

perl -ne'$_{$_}++||print' input

Is this a homework?
Try searching the forums.