Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: regexp w/ special chars

by davido (Cardinal)
on Aug 28, 2003 at 16:56 UTC ( #287447=note: print w/replies, xml ) Need Help??


in reply to regexp w/ special chars

Perl gives you several mechanisms to ensure that you are able to put what might otherwise look like metacharacters into a match string as literal characters rather than metacharacters. In your example above, the cleanest method would be to write the substitution regexp like this:

$string =~ s/\Q$token\E/$date/;

In the preceeding example, the \Q and \E tell the regexp engine to treat everything between those two tags as literal characters. They can also be used within the text of a regexp, for example:

$test_string =~ s/\Q[A-Z]{3}\E([A-Z]{3})/$1/;
In the preceeding example, everything between the \Q and \E is treated as literal characters, and everything else is treated as a regular expression (which matches any letter between A and Z repeated three times).

Another way to do it is to employ the quotemeta() function like this:

my $token = quotemeta ( '[DATE:%Y-%m-%d]' );

And then write the substitution regexp like this:

$string =~ s/$token/$date/;

You'll have to decide which of those methods makes the most sense for your particular situation. There is YAWTDI (Yet Another Way To Do It). That is to escape the characters that would be seen as special (or meta-)characters.

my $token = '\[DATE:%Y-%m-%d\]';

And then you would write the substitution regexp like this:

$string =~ s/$token/$date/;

The third method is sometimes clumsy, and sometimes efficient. If, for example, the string contained in $token was intended to actually contain some metacharacters, and at the same time, contain literal characters that would be mistaken as metacharacters, escaping the literals that could be mistaken as metas suddenly becomes a better way to do it.

Hope this helps.

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2021-06-25 12:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (136 votes). Check out past polls.

    Notices?