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