在尝试验证字符串是否仅由字母字符组成时,我想到了两种可能的正则表达式解决方案。
第一个检查字符串中的每个字符是否都是字母数字:
/^[a-z]+$/
第二个尝试在字符串中的某处查找不是字母数字的字符:
/[^a-z]/
(是的,我可以在这里使用字符类。)
长字符串是否有显着的性能差异?(如果有的话,我猜第二个变种更快。)
在尝试验证字符串是否仅由字母字符组成时,我想到了两种可能的正则表达式解决方案。
第一个检查字符串中的每个字符是否都是字母数字:
/^[a-z]+$/
第二个尝试在字符串中的某处查找不是字母数字的字符:
/[^a-z]/
(是的,我可以在这里使用字符类。)
长字符串是否有显着的性能差异?(如果有的话,我猜第二个变种更快。)
写了这个快速的 Perl 代码:
@testStrings = qw(asdfasdf asdf as aa asdf as8up98;n;kjh8y puh89uasdf ;lkjoij44lj 'aks;nasf na ;aoij08u4 43[40tj340ij3 ;salkjaf; a;lkjaf0d8fua ;alsf;alkj
a a;lkf;alkfa as;ldnfa;ofn08h[ijo ok;ln n ;lasdfa9j34otj3;oijt 04j3ojr3;o4j ;oijr;o3n4f;o23n a;jfo;ie;o ;oaijfoia ;aosijf;oaij ;oijf;oiwj;
qoeij;qwj;ofqjf08jf0 ;jfqo;j;3oj4;oijt3ojtq;o4ijq;onnq;ou4f ;ojfoqn;aonfaoneo ;oef;oiaj;j a;oefij iiiii iiiiiiiii iiiiiiiiiii);
print "test 1: \n";
foreach my $i (1..1000000) {
foreach (@testStrings) {
if ($_ =~ /^([a-z])+$/) {
#print "match"
} else {
#print "not"
}
}
}
print `date` . "\n";
print "test 2: \n";
foreach my $j (1..1000000) {
foreach (@testStrings) {
if ($_ =~ /[^a-z]/) {
#print "match"
} else {
#print "not"
}
}
}
然后运行它:日期;<perl_file>; 日期
它不是 100% 科学的,但它给了我们一个好主意。第一个 Regex 需要 10 或 11 秒来执行,第二个 Regex 需要 8 秒。