perl5.8 - 如何在perl中用'*'替换字符串中的所有字符

Question

如何获取正则表达式以用*替换perl中字符串中的所有字符？该字符串也有一些 utf-8 或 iso-8859-1 字符。我尝试使用“s/\w/*/g”。但它没有替换 utf-8 或 iso-8859-1 字符。

my $value="hellö";
print "$value\n";
$value =~ s/\w/*/g;
print "after replacing $value\n"; //It prints ****ö.

我希望所有字符都应替换为 * 即 hello 应替换为 *****。

请注意，应跳过一些特殊字符，如 -、_、\ 等。

Answer 1

替换字符串中的所有字符？is 用于匹配单词字符，但仅使用\w点应匹配所有字符： s/./*/g

Answer 2

如果你只想跳过几个字符，你总是可以做一些类似的事情

 s/[^, \/\\\-]/*/g;