Re: Scurbbing a string

[moritz]

Use regexes with char classes:

#!/usr/bin/perl
use warnings;
use strict;

my $allowed = "pure";
my $re = quotemeta $allowed;

my $str = "p u+r-e";
$str =~ s/[^$re]//g;
print $str, "\n";

[FunkyMonk]

I always believed that there wasn't interpolation inside a character class.

++moritz

[Roy Johnson]

I would have thought the same. But you could get around it by building your RE as a string and then putting that into the s///:

my $allowed = "pure";
my $re = "[^\Q$allowed\E]";

my $str = "p uuu+tr-ed";
$str =~ s/$re//g;
print $str, "\n";