diff -r 2719a5d09e27 -r 4f2482f1dd48 common/tools/sortUnique.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/common/tools/sortUnique.pl Tue Jul 14 10:47:57 2009 +0100 @@ -0,0 +1,13 @@ +#!perl -w +use strict; +# Sorts the input, removes duplicates, and outputs it + +# Read it +my @content = <>; + +# Sort it, and grep to remove duplicates +my $previous = "\n\n"; +@content = grep {$_ ne $previous && ($previous = $_, 1) } sort @content; + +# Write it +print @content;