|
Uniq - Perl extension for managing list of values. |
Uniq - Perl extension for managing list of values.
use Array::Uniq;
my @out = uniq sort @input;
my @out = distinct sort @input;
my @out = dups sort @input;
Uniq exports three methods 'uniq', 'distinct' and 'dups'.
All these methods accepts a list and returns a list.
Similar functionality is available at shell prompts of *nix O/S.
This modules is attempting to provide the same to Perl programming,
The usage of the methods provided here is simple. You always provide
a sorted list to any of these methods and accept a sorted list of
values in return.
Suppose @lis1 and @list2 are two available lists defined as
follows:
@list_1 = qw ( first list of values );
@list_1 = qw ( second list of values );
and we run the following commands:
my @output_1 = uniq sort @list1 @list2;
my @output_2 = distinct sort @list1 @list2;
my @output_3 = dups sort @list1 @list2;
Now @output_1 has qw( first list of second values )
@output_2 has qw( first second )
and @output_3 has qw( list of values )
Thus @output_1 has all values from either input lists sans any
redundant values. @output_2 has exactly those values that appear
at most once in combined list. On the other hand @output_3 has
a list of values that appear multiple times in input.
Exported are methods
1) uniq [ similar to 'uniq' shell command ]
2) distinct [ similar to 'uniq -u' shell command ]
3) dups [ similar to 'uniq -d' shell command ]
none.
Syamala Tadigadapa
Copyright 2003 by Syamala Tadigadapa.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|
Uniq - Perl extension for managing list of values. |