One question: do you have specific file names to check or are you looking to see if a given directory has two file names which differ only in case?
In either case, I'd just open (with opendir) and read (using readdir) the directory of interest. In the first, I'd just do something like this:
if(scalar( grep { /^$infile$/i } readdir<$dirname>) > 1)
{
raise_a_flag();
}
and in the second, I'd walk through the readdir output and use a hash, with the upcased or downcased file name as the hash key, and raise a flag when there is a duplicated key.
Warning: example code only. Almost certainly guaranteed not to work.
Information about American English usage here and here. Floating point issues? Please read this before posting. — emc
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|