Perl代码改进：匹配字符串开头获取数组元素索引的方法

问题根源 #

原代码的问题在于：

• 使用eq进行精确匹配，但'Prayer Amount:%'里的%不是Perl的通配符，eq只会完全匹配字符串，而数组中没有和这个字符串完全一致的元素。
• 在标量上下文里，grep返回的是匹配元素的数量，不是索引，所以没匹配到就返回0。

改进方案 #

要找到数组中以"Prayer Amount:"开头的元素索引，需要用正则表达式锚定字符串开头，结合=~匹配操作符，同时正确获取索引。这里提供两种可行方法：

方法一：用grep结合索引遍历 #

my @Array = ("Case Number: CV-24-987654", 
    "Case Title: BIG NATIONAL BANK vs. IMA N DEFAULT, ET AL.", 
    "Case Designation: FORECLOSURE MARSH. OF LIEN", 
    "Filing Date: 08/10/2024", 
    "Judge: WILL RULE", 
    "Mediator: N/A",
    "Next Action: N/A", 
    "Last Status: INACTIVE",
    "Last Status Date: 10/04/2024", 
    "Prayer Amount: \$115,958.65");

# 遍历数组索引，匹配以"Prayer Amount:"开头的元素
my ($index) = grep { $Array[$_] =~ /^Prayer Amount:/ } 0 .. $#Array;

print "My Index Number Is: $index\n";

• 解释：
  • ^是正则表达式的锚点，匹配字符串的开头，确保只匹配以指定短语开头的元素。
  • 将grep放在列表上下文（用括号($index)接收），这样会返回第一个匹配的索引（如果有多个匹配，会返回所有索引，这里数组只有一个，所以取第一个即可）。

方法二：用foreach循环遍历查找 #

如果需要更直观的控制，也可以用foreach循环逐个检查：

my @Array = ("Case Number: CV-24-987654", 
    "Case Title: BIG NATIONAL BANK vs. IMA N DEFAULT, ET AL.", 
    "Case Designation: FORECLOSURE MARSH. OF LIEN", 
    "Filing Date: 08/10/2024", 
    "Judge: WILL RULE", 
    "Mediator: N/A",
    "Next Action: N/A", 
    "Last Status: INACTIVE",
    "Last Status Date: 10/04/2024", 
    "Prayer Amount: \$115,958.65");

my $index;
foreach my $i (0 .. $#Array) {
    if ($Array[$i] =~ /^Prayer Amount:/) {
        $index = $i;
        last; # 找到第一个匹配后退出循环
    }
}

print "My Index Number Is: $index\n";

• 解释：遍历每个索引，找到匹配项后记录索引并终止循环，适合只需要第一个匹配结果的场景。

注意事项 #

• 如果数组中有多个以"Prayer Amount:"开头的元素，方法一的($index)只会取第一个，若要获取所有索引，直接用my @indices = grep { ... } 0 .. $#Array;即可。
• 正则表达式中的^确保匹配的是字符串开头，避免出现元素中间包含该短语的误匹配。

内容的提问来源于stack exchange，提问作者Brian Douglas