Re: Regexp pattern match problem

[Samy_rio]

Hi, Use \Q..\E quotemeta while checking the pattern

#!/usr/bin/perl
use strict;
use warnings;
open FIN, "<C:\\input.data" or die $!;
my @line = <FIN>;
close FIN;

while(<DATA>){
    chomp;
    my $data = $_;

    for my $line (@line){
        chomp($line);
        if($data =~ m/\Q$line\E/){
            print "$line +++++++++ $data\n"
        }else{
            print "$line --------- $data\n"
        }
    }
}

__DATA__
some path/to/foo/bar[1][2]
thing apple/flower[7]
gogo dog/cat[9][8]

input.data
----------
foo/bar[1]
dog/cat[9][8]

Output
------
foo/bar[1] +++++++++ some path/to/foo/bar[1][2]
dog/cat[9][8] --------- some path/to/foo/bar[1][2]
foo/bar[1] --------- thing apple/flower[7]
dog/cat[9][8] --------- thing apple/flower[7]
foo/bar[1] --------- gogo dog/cat[9][8]
dog/cat[9][8] +++++++++ gogo dog/cat[9][8]

Not necessary to escape the special character in input file.