How do I remove duplicate items from an array in Perl?

by

You can do something like this as demonstrated in perlfaq4:

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

my @array = qw(one two three two three);
my @filtered = uniq(@array);

print "@filtered\n";

Outputs:

one two three

If you want to use a module, try the uniq function from List::MoreUtils

More Related Contents:

  1. How do I print unique elements in Perl array?
  2. Remove duplicate values from JS array [duplicate]
  3. Difference of Two Arrays Using Perl
  4. How can I check if a Perl array contains a particular value?
  5. How can I generate all permutations of an array in Perl?
  6. In Perl, how can I find the index of a given value in an array?
  7. How can I verify that a value is present in an array (list) in Perl?
  8. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  9. Fastest way to duplicate an array in JavaScript – slice vs. ‘for’ loop
  10. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  11. Specifying file to process to Perl one-liner
  12. How do I run a Perl script from within a Perl script?
  13. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  14. How does double arrow (=>) operator work in Perl?
  15. Why are Perl source filters bad and when is it OK to use them?
  16. Perl 5.20 and the fate of smart matching and given-when
  17. Return only duplicated entries from an array (case-insensitive)
  18. How can I convert the stringified version of array reference to actual array reference in Perl?
  19. How does Perl parse unquoted bare words?
  20. Perl build, unit testing, code coverage: A complete working example
  21. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  22. How can I run a system command in Perl asynchronously?
  23. Combine two 2d arrays and have duplicate rows removed
  24. How do I tell what type of value is in a Perl variable?
  25. What should I use for a Perl script’s shebang line?
  26. How can I find memory leaks in long-running Perl program?
  27. Why do Perl variables need to start with $, %,@ (sigils)?
  28. Print lines from one file that are not contained in another file
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment