How can I check if a Perl array contains a particular value?

by

Best general purpose – Especially short arrays (1000 items or less) and coders that are unsure of what optimizations best suit their needs.

# $value can be any regex. be safe
if ( grep( /^$value$/, @array ) ) {
  print "found it";
}

It has been mentioned that grep passes through all values even if the first value in the array matches. This is true, however grep is still extremely fast for most cases. If you’re talking about short arrays (less than 1000 items) then most algorithms are going to be pretty fast anyway. If you’re talking about very long arrays (1,000,000 items) grep is acceptably quick regardless of whether the item is the first or the middle or last in the array.

Optimization Cases for longer arrays:

If your array is sorted, use a “binary search”.

If the same array is repeatedly searched many times, copy it into a hash first and then check the hash. If memory is a concern, then move each item from the array into the hash. More memory efficient but destroys the original array.

If same values are searched repeatedly within the array, lazily build a cache. (as each item is searched, first check if the search result was stored in a persisted hash. if the search result is not found in the hash, then search the array and put the result in the persisted hash so that next time we’ll find it in the hash and skip the search).

Note: these optimizations will only be faster when dealing with long arrays. Don’t over optimize.

More Related Contents:

  1. Difference of Two Arrays Using Perl
  2. How do I remove duplicate items from an array in Perl?
  3. How can I generate all permutations of an array in Perl?
  4. In Perl, how can I find the index of a given value in an array?
  5. How can I verify that a value is present in an array (list) in Perl?
  6. How do I print unique elements in Perl array?
  7. How can I convert my shell script to Perl? [closed]
  8. search using perl one liner within a file [closed]
  9. How to re-direct the contents to a file instead of printing it to terminal
  10. Sort array of objects by string property value
  11. How do you capture stderr, stdout, and the exit code all at once, in Perl?
  12. How to fix a locale setting warning from Perl
  13. How can I fire and forget a process in Perl?
  14. What’s the best way to make a deep copy of a data structure in Perl?
  15. Getting STDOUT, STDERR, and response code from external *nix command in perl
  16. What is the difference between new Some::Class and Some::Class->new() in Perl?
  17. Iterating hash based on the insertion order?
  18. Why can’t I match my string from standard input in Perl?
  19. How do I choose a package name for a custom Perl module that does not collide with builtin or CPAN packages names?
  20. What’s broken about exceptions in Perl?
  21. How can a slice contain itself?
  22. How do I get the full path to a Perl script that is executing?
  23. Perl subroutine arguments
  24. What does the function declaration “sub function($$)” mean?
  25. How to create recursive hash of hash ? (With unlimited deep)
  26. Which cpan installer is the right one? (CPAN.pm/CPANPLUS/cpanminus)
  27. How do I lock a file in Perl?
  28. Why is the Switch module deprecated in Perl?
  29. Which framework should I use to write modules? [closed]
  30. How can I check whether my Perl installation is 32 or 64 bit?

Leave a Comment