1 #! perl

     2 

     3 # Copyright (c) 2009 Symbian Foundation Ltd

     4 # This component and the accompanying materials are made available

     5 # under the terms of the License "Eclipse Public License v1.0"

     6 # which accompanies this distribution, and is available

     7 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 #

     9 # Initial Contributors:

    10 # Symbian Foundation Ltd - initial contribution.

    11 # 

    12 # Contributors:

    13 #

    14 # Description:

    15 # Make up for lack of "sort | uniq" on Windows

    16 

    17 use strict;

    18 my $line;

    19 

    20 my %uniq;

    21 while ($line = <>)

    22   {

    23   $uniq{$line} = 1;

    24   }

    25 

    26 print sort keys %uniq;

    27