Perl 正则表达式匹配字符串包含字母/数字/点

Question

我正在尝试匹配包含字母数字、数字和点的字符串。

• 以字母 [a-z|A-Z] 开头，后跟用点分隔的数字 在 [1.2.3.5] 之间并且仅以数字结尾。

我尝试匹配的一些示例：

my @patternsTomatch = (
 'SAN100.25.36.2',   # Valid string 
, 'DF1.2.3.5',       # Valid string
, 'BADPATTERN',      # In-Valid string
, '12BADPATTERN',    # In-Valid string
, '.DF1.2.3.5',       # In-Valid string
, 'SAN100.25.36.2.'  # In-Valid string
);

foreach my $pattern (@patternsTomatch) {
   if ( $pattern =~ /^([a-z|A-Z]+)(\d+\.)(.*)$/ ) { print " $pattern \n"; }
}

但上述尝试无法正常工作？

另外，需要一个正则表达式来匹配固定格式字符串 XC1.2.3.4_25 在单独的条件下。

• 以字母 [a-z|A-Z] 开头，后跟用点分隔的数字 在 [1.2.3.5] 之间，后跟只有一个下划线并以 only 结尾 数字。

谢谢。

Answer 1

您可能首先匹配 1+ 个字符 [A-Za-z]+（请注意，您不需要字符类中的管道），然后重复匹配的数字，中间有一个点：

^[A-Za-z]+\d+(?:\.\d+)+$

regex demo

---

要匹配末尾的下划线和数字，您可以在断言字符串末尾之前在模式末尾添加匹配下划线和 1+ 数字：

^[A-Za-z]+\d+(?:\.\d+)+_\d+$

Regex demo

Answer 2

我想你想要更多这样的东西：

my @candidates = (
  'SAN100.25.36.2',   # Valid string
  'DF1.2.3.5',        # Valid string
  'BADPATTERN',       # In-Valid string
  '12BADPATTERN',     # In-Valid string
  '.DF1.2.3.5',       # In-Valid string
  'SAN100.25.36.2.'   # In-Valid string
);

# store the pattern in a variable to get it out of the way 
# of the logic
my $pattern = qr/
    \A          # beginning of string
    [a-z]+      # latin letters, case insensitive
    \d+         # digits
    (?:         # groups of . and digits
        \.
        \d+
    )+
    (?:         # optional _ digits at end (or leave this group out)
        _
        \d+
    )?
    \z          # end of string
    /ix;        # /i - case insenstive  /x - expanded format

foreach my $candidate ( @candidates ) {
   if( $candidate =~ $pattern ) {
     print "$candidate matched\n";
     }
   else {
     print "$candidate missed\n";
     }
}

Answer 3

使代码尽可能简单

use strict;
use warnings;

use feature 'say';

my @match = grep { chomp; /^[a-z]+\d+(:?\.\d+)+(:?_\d+)?$/i } <DATA>;

map{ say } @match;

__DATA__
SAN100.25.36.2
DF1.2.3.5
BADPATTERN
12BADPATTERN
.DF1.2.3.5
SAN100.25.36.2.
XC1.2.3.4_25

输出

SAN100.25.36.2
DF1.2.3.5
XC1.2.3.4_25