Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Regexp pattern match problem

by Samy_rio (Vicar)
on Aug 20, 2007 at 07:09 UTC ( #633723=note: print w/replies, xml ) Need Help??

in reply to Regexp pattern match problem

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

#!/usr/bin/perl use strict; use warnings; open FIN, "<C:\\" 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] ---------- 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.

Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://633723]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2017-07-25 20:54 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (379 votes). Check out past polls.