What's wrong with making your very own exists function? It is quick, readable and configurable:

I would write it like this: 


$filename = "$directory/$entry";
if( myExists( $filename, @mounts ) == 0 ){
   push(@mounts, $filename);
}

sub myExists(){
   my $compare = shift;

   foreach my $element (@_){
      if( $element eq $compare ){
         return 1;
      }
   }
   
   return 0;
}

[download]

I know that this is more code than some of the previous solutions, but it has advantages. It is more readable and can allow you to more precisely define what it means to exist. Say for instance that you wanted to only add it if it were unique in the first 256 charachters, or alter it otherwise, this would be easy to do. In addition, it is also more resource friendly and less confusing than maintaining both arrays and hashes.

Good luck

In reply to Re: Testing for a string value within an array by scmason
in thread Testing for a string value within an array by perlMunger

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.