regex - 如何编写一个 Perl 正则表达式来匹配仅包含这些字符的字符串？

Question

我对正则表达式还很陌生。我想编写一个正则表达式来验证给定的字符串是否仅包含某些字符。如果字符串包含除这些字符之外的任何其他字符，则不应匹配。

我想要的角色是:

 & ' : , / - ( ) . # " ; A-Z a-z 0-9

Answer 1

试试这个:

$val =~ m/^[&':,\/\-().#";A-Za-z0-9]+$/;

如果

$val 至少包含一个字符并且完全由该字符集中的字符组成，则将匹配。空字符串将不会被匹配(如果您想要匹配空字符串，请将最后一个 + 更改为 *)。

你可以自己测试一下:

# Here's the file contents. $ARGV[0] is the first command-line parameter.
# We print out the matched text if we have a match, or nothing if we don't.
[/tmp]> cat regex.pl
$val = $ARGV[0];
print ($val =~ m/^[&':,\/\-().#";A-Za-z0-9]+$/g);
print "\n";

一些例子:

# Have to escape ( and & in the shell, since they have meaning.
[/tmp]> perl regex.pl a\(bc\&
a(bc&

[/tmp]> perl regex.pl abbb%c


[/tmp]> perl regex.pl abcx
abcx

[/tmp]> perl regex.pl 52
52

[/tmp]> perl regex.pl 5%2