regex - $1 不包含值

Question

我正在编写一个脚本，该脚本使用正则表达式从文本文件中识别和提取各种不同格式的年份集。这是有问题的代码：

if ($parts[0] =~ /^\(*(\d\d\d\d)\)*$/) {
    # Matches a single 4 digit date in parentheses such as (1979)
    $start = $1;
    $end = $1;
} 
elsif ($parts[0] =~ m{\d\d\d\d\/\d\d\d\d} ) {
    # Matches cases like 1948/1972
    warn "Found a $1";
    #do some other stuff
}

我遇到的问题是它找到与 中的表达式匹配的日期elsif，但$1不保存该值，即"Found a "，它一遍又一遍地打印出一条消息，但没有$1. 谁能告诉我我在这里做错了什么？如果这是一个愚蠢的错误，我深表歉意。

谢谢！

Answer 1

首先，启用警告。

它没有设置$1，因为您没有在m{\d\d\d\d\/\d\d\d\d}正则表达式中捕获任何内容。也许你的意思是做m{(\d\d\d\d/\d\d\d\d)}？

Answer 2

您需要在部分()实际使用 with 之前捕获匹配项。$1elsif

此外，正则表达式可以缩短如下：

if ($parts[0] =~ /^\(*(\d{4})\)*$/) {
    # Matches a single 4 digit date in parentheses such as (1979)
    $start = $end = $1;
} 
elsif ($parts[0] =~ /^(\d{4}\/\d{4})$/ ) {
    # Matches cases like 1948/1972
    warn "Found a $1";
    #do some other stuff
}