5

在尝试验证字符串是否仅由字母字符组成时,我想到了两种可能的正则表达式解决方案。

第一个检查字符串中的每个字符是否都是字母数字:

/^[a-z]+$/

第二个尝试在字符串中的某处查找不是字母数字的字符:

/[^a-z]/

(是的,我可以在这里使用字符类。)

长字符串是否有显着的性能差异?(如果有的话,我猜第二个变种更快。)

4

2 回答 2

4

仅通过查看它,我会说第二种方法更快。

然而,我做了一个非科学的快速测试,结果似乎没有定论:

正则表达式匹配与否定


PS我从第一种方法中删除了组捕获。这是多余的,只会减慢它的速度。

于 2012-09-05T18:31:50.523 回答
2

写了这个快速的 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 秒。

于 2012-09-05T19:00:25.007 回答