Re: matching with special characters

[Samy_rio]

Hi madtoperl, Try this,

use File::Find;
foreach my $dir (@INC){
  find (sub {
    $searchstr= 'C:/Perl/lib/Time/Local.pm';
    if( $searchstr =~ "\Q$File::Find::name\E" ){
      print " Module $File::Find::name is found\n" ;
     $localflag=1;
    }
  },$dir);
}
__END__
 Module C:/Perl/lib is found
 Module C:/Perl/lib/Time is found
 Module C:/Perl/lib/Time/Local.pm is found

Or Change if statement as:

if( $searchstr eq "$File::Find::name" )

Output is:(Alone)
-----------------
 Module C:/Perl/lib/Time/Local.pm is found