Matching a string with a $ in it

[tjlst15]

How do I match the folloing string in a line of text? I have to use the $team variable, so I can't escape the $ signs.

Example:


$team = '$moneymaker$';
next if ( $string !~ /$team/ );

It never matches because it evaluates the $moneymaker in the $team string. How do I avoid that?

 

[travs69]

$team = '\$moneymaker\$';

 

[MillerH]

Whenever dealing with literals within regular expressions, take advantage of the quotemeta escape sequence to escape any special characters while still allowing for the interpolation of variables.

[blue]$team[/blue] = [red]'[/red][purple]$moneymaker$[/purple][red]'[/red][red];[/red]
[olive][b]next[/b][/olive] [olive][b]if[/b][/olive] [red]([/red] [blue]$string[/blue] !~ [red]/[/red][purple][purple][b]\Q[/b][/purple][blue]$team[/blue][purple][b]\E[/b][/purple][/purple][red]/[/red] [red])[/red][red];[/red]

is equivalent to:

[olive][b]next[/b][/olive] [olive][b]if[/b][/olive] [red]([/red] [blue]$string[/blue] !~ [red]/[/red][purple][purple][b]\$[/b][/purple]moneymaker[purple][b]\$[/b][/purple][/purple][red]/[/red] [red])[/red][red];[/red]

- Miller

 

[KevinADC]

try using the \Q..\E modifiers:

$team = '$moneymaker$';
next if ( $string !~ /\Q$team\E/ );

------------------------------------------
- Kevin, perl coder unexceptional!

 

[KevinADC]

see, Miller agrees with me

------------------------------------------
- Kevin, perl coder unexceptional!

 

[tjlst15]

Nice, that worked perfectly. Thanks Guys.