little-things/uniqify

#!/bin/bash
if [[ "$1" != "-c" ]]
then
	# Without count (preserving order, printing the first appearance)
	# In this case, Perl is *much* faster than AWK.
	perl -ne 'print if ! $a{$_}++'
	#awk '!seen[$0]++'
else
	# With count (order undefined)
	# Here, AWK is significantly faster.
	#perl -e 'while (<>) { $a{$_}++; } foreach $key (keys %a) { print "$a{$key} $key"; }'
	awk '{ tot[$0]++ } END { for (i in tot) print tot[i],i }'
fi