foreach $Y (@dependantFiles)
{
foreach $X (@namedFiles)
{
if( $X =~ m/\Q$Y\E/i)
{
print "Found it\n"
last;
}
}
}
####
foreach $Y (@dependantFiles)
{
foreach $X (@namedFiles)
{
if (index(lc($X), lc($Y)) >= 0)
{
print "Found it\n"
last;
}
}
}
####
foreach $Y (@dependantFiles)
{
my $lcY = lc($Y);
foreach $X (@namedFiles)
{
if (index(lc($X), $lcY) >= 0)
{
print "Found it\n"
last;
}
}
}
####
foreach $Y (@dependantFiles)
{
my $lcY = lc($Y);
foreach $X (@namedFiles)
{
if (lc(substr($X, -length($Y))) eq $lcY)
{
print "Found it\n"
last;
}
}
}