gpt4 book ai didi

list - 如何检查变量是否在列表中?

转载 作者:行者123 更新时间:2023-12-05 01:37:44 24 4
gpt4 key购买 nike

有没有办法在 perl 中做这样的事情?

$str = "A"
print "Yes" if $str in ('A','B','C','D');

最佳答案

智能匹配是experimental并将在未来的版本中更改或消失。您将在 Perl 5.18+ 版本中收到相同的警告。以下是替代方案:

使用 grep

#!/usr/bin/perl
use strict;
use warnings;
my $str = "A";
print "Yes" if grep {$_ eq 'A'} qw(A B C D);

使用任何

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(any);
print any { $_ eq 'A' } qw(A B C D);

使用哈希

#!/usr/bin/perl
use strict;
use warnings;
my @array = qw(A B C D);
my %hash = map { $_ => 1 } @array;
foreach my $search (qw(A)) #enter list items to be searched here
{
print exists $hash{$search};
}

另见:

  • match::smart - 提供匹配运算符 |M|它的行为或多或少与(从 Perl 5.18 开始)实验性智能匹配运算符相同。
  • Syntax::Feature::Junction - 为任何、全部、无或一个提供关键字
  • 您也可以使用List::Util::first更快,因为它会在找到匹配项时停止迭代。

关于list - 如何检查变量是否在列表中?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39585661/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com