regex - 在 PCRE 中将字符串截断为大小

Question

使用单个正则表达式行（这在应用程序的配置文件中）我需要捕获电子邮件地址的本地部分。

如果它只包含数字，则不加修改地传递它。如果上面有任何非数字字符，则最多截断为 11 个字符。

我做了这个简单的程序来测试，但如果 localpart 超过 11 个字符，则不匹配（打印整个电子邮件地址）。

#!/usr/bin/env perl

my @emails = ('the-chuck.t1.norrisson@chuck.com', '358451399991@chucksphon.com', 'ph33t@gmail.com', 'the-average.guyisbald@example.com', 'alongnameit@11chars.com', 'alongnameitis@13chars.com', 'a1234567890@11charnum.com');

for my $email (@emails){

    # will put $1$2 on the substituion spot
    $email =~ s/^(\d+)@.+|^([a-zA-Z0-9._%+-]{1,11})@.+/  /;

    print '===> ' . $email  . " \n\n ";

}

我哪里错了？

Answer 1

您需要包含一个正则表达式原子，例如\S*?以防字符数超过 11...

    $email =~ s/^(\d+)@.+|^([a-zA-Z0-9._%+-]{1,11})\S*?@.+/$1$2/;

使用它会产生正确的输出：

[mpenning@Bucksnort ~]$ perl sample.pl
===> the-chuck.t

 ===> 358451399991

 ===> ph33t

 ===> the-average

 ===> alongnameit

 ===> alongnameit

 ===> a1234567890

 [mpenning@Bucksnort ~]$