grep { is_in(@mylist) } @files_in_the_filesystem

That'll give you the list of files you want (hopefully).

Of course, you'll have to code the is_in subroutine, which will probably contain a bit of code like this:

$newfile =~ /^$oldfile$/i

I hope that sets you in the right direction. Honk if you need more help :-)

$newfile =~ /^$oldfile$/i
[download]

As much as I like regexps, I would be much more likely to write that as:

if ( lc $newfile eq lc $oldfile )
[download]

In my eyes, that's the canonical case-insensitive equality comparision.

--
edan

Yes, you're right :-)

(what was I thinking? :-) )

use File::Find qw( find );

my @desired_files = `cat list_o_dirs`;
my %desired_files;
@desired_files{ map lc, @desired_files } = (1) x @desired_files;

my @hits;
find( $root_dir, sub {
      push @hits, $File::Find::name if exists $desired_files{ lc $File
+::Find::name }
    );
[download]

test
  ->trEE
    ->/A
      ->/b
[download]

use strict;
use warnings;

# hash for file-system data
my %tree;

#build a datastructure that represents directory tree
#for everything below "/test"
build_tree ("/test", \%tree);

# get realpath of "c:/test/tree/a/b"
my $p = getRealPath ("TREE/A/B", \%tree);

print $p;

sub build_tree
{ 
    my $dir  = shift;
    my $ref  = shift;
    my $dirh = shift;

    opendir $dirh, $dir or die $!;
    
    while ( $_ = readdir ($dirh) )
    {

        next if /^\./;
        next unless -d "$dir/$_";
        
        $ref->{subdirs}->{lc($_)} = { name=>$_, subdirs=>{} };
        
        build_tree ("$dir/$_", $ref->{subdirs}->{lc($_)});
    }
    
    closedir $dirh;
}

sub getRealPath 
{
    my @path = split ("/", shift);
    my $ref  = shift;
    
    my $path = "";
    
    for ( @path )
    {
        $path .= "/" . $ref->{subdirs}->{lc($_)}->{name};
        $ref = $ref->{subdirs}->{lc($_)};
    }
    
    return $path;

}
[download]

test/trEE/A/B
[download]

Thanks, that worked beautifully.

Of course, now I've got to figure out how to deal with people putting horrible things like ampersands into their filenames, but that I'm sure I can deal with.

while (<FILE>) {
  $real_filename = `ls -l | grep -i $_`;
}
[download]