Re: Scurbbing a string

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";
[download]

Perl 6 in German -- Difficult Sudoku

Comment on Re: Scurbbing a string Download Code

Replies are listed 'Best First'.
Re^2: Scurbbing a string by FunkyMonk (Bishop) on Aug 24, 2007 at 21:09 UTC
I always believed that there wasn't interpolation inside a character class. ++moritz	[reply] [d/l] [select]
Re^3: Scrubbing a string by Roy Johnson (Monsignor) on Aug 24, 2007 at 21:31 UTC
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";` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]