Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

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]
[davido]: The code seems pretty sane, and relatively foolproof. I guess I can answer my own question; move() should work across filesystems so long as they're mounted, rw, and not filled up.

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2016-12-10 03:13 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (159 votes). Check out past polls.