There is an implicit join of the list being done when the regular expression is being compiled. This is using the $", dollar-double-quote, variable as the separator character, which defaults to a space. So, the character class that is used in the substitution contains a space, and therefor spaces are removed. Better for oneself to do the join:
use strict;
use warnings;
use re 'debug'; # shows whats-what
my $id='TEST TEST';
print "$id\n";
my @filename_filter=('*','|','<','>','?','/');
my $filename_filter_joined = join '',@filename_filter;
#empty separator character
$id =~ s/[$filename_filter_joined]//g;
print "$id\n";
__END__
~~Output~~
TEST TEST
Compiling REx "[*|<>?/]"
Final program:
1: ANYOF[*/<>?|][] (12)
12: END (0)
stclass ANYOF[*/<>?|][] minlen 1
Matching REx "[*|<>?/]" against "TEST TEST"
Matching stclass ANYOF[*/<>?|][] against "TEST TEST" (9 chars)
Contradicts stclass... [regexec_flags]
Match failed
TEST TEST
Freeing REx: "[*|<>?/]"
Good luck. -c
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|