in reply to Re: How do I search for a specific directory on a remote PC?
in thread How do I search for a specific directory on a remote PC?

If you find case sensitivity to be a problem (and on Win*, it doesn't make sense to not do this) then you may want to change this line:

push(@results, $File::Find::name) if(-f $_ && $_ eq $file);

into:

push(@results, $File::Find::name) if((-f $_) && ($_ =~ /^$file$/i));

I prefer extra parens for readability, though they aren't vital

Bill

Replies are listed 'Best First'.
Re: Re: How do I search for a specific directory on a remote PC?
by blakem (Monsignor) on Jan 07, 2002 at 12:40 UTC
    Regexes are overkill for case insensitive comparisons... how about:
    if (lc $_ eq lc $file and -f $_)
    for speed, clarity and correctness... (your regex has issues with special chars and trailing newlines...)

    -Blake