在 Perl 中，我可以用三元条件运算符放置无限条件吗？

Question

我对一段代码有些挣扎。 这是关于 perl 中的三元运算符。 我不知道如何对其设置更多条件。 从字面上看，我真的不明白这个表达。

my $class = $user_name ? '' : (grep { $_ eq $task_id } @tasks_todo) ? 'class="todo" : 'class="crossed"';

我想用我的新变量设置另一个条件，应该是：

$required ? '' : 'class="todo"' : 'class="crossed"'

$required是 Mojo:Collection 类型，表示由查询获取的集合类型数据。

有人可以向我解释以下条件并告诉我是否可以对三元运算符设置另一个条件吗？ 允许多少个条件以及使用三元运算符的最佳实践是什么？

Answer 1

写这句话的人太聪明了，不利于他们自己。

当您遇到这样的复杂逻辑时，将其拆开一点并将其放入可以单独测试的专用方法中，您不会丢失任何东西。 通过仅返回 class 名称而不是填充的class="todo"属性值，您可以更轻松地使用返回值，即使这意味着现在调用者有责任编写push @classes, css_class(...)后跟一个sprintf 'class=%s', join(' ', @classes); 或类似的。

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw( any );
use Test::More;

sub css_class {
    my ($user_name, $task_id, $tasks_todo) = @_;

    return '' unless $user_name;

    if (any { $task_id eq $_ } $tasks_todo->@*) {
        return 'todo';
    }

    return 'crossed';
}

my @cases = (
    {
        args => [undef, 'blah', []],
        expected => '',
    },
    {
        args => ['bob', 'notdone', ['notdone']],
        expected => 'todo',
    },
    {
        args => ['bob', 'done', ['notdone']],
        expected => 'crossed',
    },
);

for my $case (@cases) {
    is css_class($case->{args}->@*), $case->{expected};
}

done_testing;

Output：

$ prove -v pp.pl
pp.pl ..
ok 1
ok 2
ok 3
1..3
ok
All tests successful.
Files=1, Tests=3,  0 wallclock secs ( 0.08 usr +  0.03 sys =  0.11 CPU)
Result: PASS

Answer 2

如果设置了 $username，则 $class-Variable 设置为空，否则，如果 $task_id 在 @task_todos 中，则 $class 设置为 'class="todo"'，如果两者都不为真，则 $class 设置为'class="crossed"'。

您可以使用三元运算符在表达式中添加任意数量的条件，但您应该考虑添加至少一些空格以使其更具可读性，尽管将其放入 if/then/else 会更好。

my $class = $user_name 
             ? ''  
               : (grep { $_ eq $task_id } @tasks_todo) 
                  ? 'class="todo" 
                    : 'class="crossed"';

Answer 3

我通过在前面给出的示例之后添加一个新条件来解决我的问题。

use List::Util qw/any/;
my $class = "";
unless ($user_name) {
   if (any { $_ eq $task_id } @tasks_todo) {
      $class = 'class="todo"'; 
   } 
   else
   {
     $class = 'class="crossed"';
   }
   if ($required ne $month) {
     $class = 'class="crossed"'
}

这成功了，要么我改变了我的查询，所以我得到了正确的东西。