Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

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:\\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.

Regards,
Velusamy R.


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


Comment on Re: Regexp pattern match problem
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://633723]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2014-12-17 20:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (31 votes), past polls