perl - Perl 3 个条件的一个衬里

Question

我有这个

if($x<10){                                  
    print "child";
}elseif($x>10 && $x<18){
    print "teenage"
}else{
    print "old"
}

我想放入一个 perl 衬里，我该怎么做，请帮帮我

Answer 1

您可以使用条件运算符。你也只需要说print一次 - 我也将改变你的条件，因为10is not>10也<10，但你的代码认为10is old。

print $x<10 ? 'child' : $x<18 ? 'teenage' : 'old';

Answer 2

for my $x ( 5, 15, 55 ) {
    print "$x is ";
    print (($x<10) ? 'child' : ($x>10 && $x<18) ? 'teenage' : 'old');
    print "\n";
}

Answer 3

Perl 中的条件运算符

您正在寻找条件运算符（三元运算符的一种形式，它充当速记 if 语句，而不是 Perl 特定的）：

print $age < 10 ? "child" : $age < 18 ? "teenage" : "old";

此外，您的代码被视为10旧代码，因为它既不小于也不大于 10，因此我已将该函数切换为我认为您希望它执行的操作。

重用代码

你可以把它变成一个子程序以便于重用：

sub determineAgeGroup {
    my $age = $_[0];
    return $age < 10 ? "a child" : $age < 18 ? "a teenager" : "old";
}

my @ages = (5,10,15,20);

foreach my $age (@ages) {
    print "If you're $age you're " . determineAgeGroup($age) . "\n";
}

对此的输出是：

If you're 5 you're a child
If you're 10 you're a teenager
If you're 15 you're a teenager
If you're 20 you're old

链接到工作演示。

Answer 4

不知道为什么要这样做，但这应该可行：

print (($x<10)?("child"):(($x>10 && $x<18)?("teenage"):("old")))

但仅仅因为它很短并不意味着它比原来的更好——比较支持/调试这两个选项的难度。

如果您只是在玩，您还可以在适当的数组中定义字符串，并对 的值进行一些数学运算$x以获得有效的数组条目。