regex - 如何在 Perl 的数组中搜索固定且不区分大小写的字符串模式？

Question

我想制作一个 perl 脚本来获取值列表(散列中的键)并在数组中搜索它。我需要搜索固定模式，但它可以不区分大小写。这是我的代码:

foreach my $element ( keys %data ) {
    # this line search the exact pattern, but it isn't case insensitive
    if ( first { $element eq $_ } @database_lines ) {
        $counter += 1;
        print "$element\n";
    } else {
        next;
    }
}

一些想法？提前致谢。

Answer 1

我可能会为小写的 @database_lines 内容创建一个散列，然后在其中查找:

my %db_lines;
$db_lines{lc $_} = 1 for @database_lines;

foreach my $element (keys %data) {
    if ($db_lines{lc $element}) {
        $counter++;
        print "$element\n";
    }
}

如果你的 Perl 足够新，你可以使用 fc而不是 lc以提供更准确的不区分大小写的匹配。