Perl中用于确定字符串变量是否与列表中的字符串匹配的惯用方法是什么？

规范的一部分说“有些名字很特别,例如Hughie,Dewey,Louis和Donald.其他名字可能会在项目的整个生命周期中随意添加.每当你输入其中一个名字时,请玩quack.wav.”

我可以写……

while (<>) {
    if ($_ =~ /Hughie|Dewey|Louis/) {
        quack() ;
    }
    elsif ($_ =~ /Donald/ {
        quack() ;
        you_re_fired_apprentice() ; # Easter egg don't tell QA
    }
}

…但是,虽然要实施,但它看起来是WTF-y：二进制搜索在哪里？如果鸭子名字的数量突然大幅增加怎么办？它根本不会扩展！

我可以在临时目录中使用这些名称创建空文件,然后使用“文件存在”API,但这看起来很迂回,我必须确保它们最后被删除.

当然有更好的方法吗？

解决方法

你可以写,但你应该这样写：

my %ducks = map {$_ => 1} qw(Hughie Dewey Louis);

while (<>) {
    if ($ducks{$_}) {
        quack() ;
    }
    elsif ($_ eq 'Donald') {
        quack() ;
        you_re_fired_apprentice() ; # Easter egg don't tell QA
    }
}

创建哈希需要一点时间,但不能超过O(n).使用哈希的查找是O(1),因此它比顺序搜索(通过grep或带有替换的正则表达式)更有效,假设您将检查多于一个或两个项目.

顺便说一下,你拥有的正则表达式将与搜索字符串中的任何位置匹配.如果想要完全匹配,则需要添加起始锚点和结束锚点.