Re: Mixing builtin char-classes and negation

I think you want something like this:

$a = "FATHER ANDY";
$a =~ s/[^(A\s)]/-/g;
print "$a\n";
[download]

gives

-A---- A---
[download]

HTH, --traveler

Comment on Re: Mixing builtin char-classes and negation Select or Download Code

Replies are listed 'Best First'.
Re: Re: Mixing builtin char-classes and negation by sauoq (Abbot) on Jun 16, 2003 at 21:11 UTC
He didn't say anything about parentheses. `$a = "(woozle)"; $a =~ s/[^(A\s)]/-/g; print "$a\n";` [download] gives `(------)` [download] -sauoq "My two cents aren't worth a dime.";	[reply] [d/l] [select]
Re: Re: Re: Mixing builtin char-classes and negation by traveler (Parson) on Jun 16, 2003 at 21:22 UTC
`print "I will not copy stuff from other programs without fully testin +g it" while 1;` [download]	[reply] [d/l]